摘要：
procedure TForm1.Button1Click(Sender: TObject);var s:string; List: TStringList;begin List:=TStringList.Create; s:=ExtractFilePath(Application.EXEName)+'123.txt'; List.Sorted:=true; List.Duplicates:=du... 阅读全文
摘要：
//uses 子句一般这样写usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;//这样写更清晰，因为Delphi忽略换行usesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs... 阅读全文