其中的一些代码: procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin historyindex:=-1; historylist:=tstringlist.Create; speedbutton1.Enabled:=false; speedbutton3.Enabled:=false; listbox1.Visible:=false; if fileexists('net.ini') then begin ass
示例: procedure TForm1.Button1Click(Sender: TObject); var pMyFile:textfile; pStr : string; begin if OpenDialog1.Execute then begin Assignfile(pMyFile,OpenDialog1.FileName); Reset(pMyFile); while not Eof(pMyFile) do begin Readln(pMyFile,pStr); //fn_Del
复制文件的Delphi代码示例,用自定义的窗体来实现传统的复制文件功能,主要是展示在Delphi下如何定义复制文件的函数,打基础的代码。复制的核心代码: if edtSFile.Text then begin AssignFile(FormF,edtSFile.Text); Reset(FormF,1); if edtTFile.Text then begin AssignFile(ToF,edtTFil e.Text); ReWr