摘要:
type TForm8 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type TmyKeyValue ... 阅读全文
摘要:
//需要引用System.IOUtils单元procedure TForm7.Button3Click(Sender: TObject); var sFileName: string; tstream: TStreamWriter; begin Memo1.Clear; Memo1.Lines.Add(TPath.GetFileName(Application.ExeName))... 阅读全文