各位前輩: 如何新增一個檔案並把值寫入 我ㄉ程式 if FileExists(ExtractFilePath(paramstr(0)) 'log.txt') then begin backstr.Clear; assignfile(f, ExtractFilePath(paramstr(0)) 'log.txt'); reset(f); readln(f, tempstr); while Trim(tempstr) <> '' do begin if Trim(tempstr) <> '' then backstr.Add(Trim(tempstr)); readln(f, tempstr); end; closefile(f); end else begin 這邊要如何寫 end; 謝謝 逃避不一定躲得過 面對不一定最難受 孤單不一定不快樂 得到不一定能長久 失去不一定不再有 轉身不一定最軟弱 別急著說別無選擇 別以為世上只有對與錯 許多事情的答案都不是只有一個 所以我們永遠有路可以走 你能找個理由難過 也一定能找到快樂 懂得放心的人找到輕鬆 懂得遺忘的人找到自由 懂得關懷的人找到朋友

What is backstr? A TStringList? If backstr is a TStringList then:

if FileExists(ExtractFilePath(paramstr(0))   'log.txt') then begin
    backstr.LoadFromFile(ExtractFilePath(paramstr(0))   'log.txt');
    backstr.SaveToFile('c:\log.txt');
end;

If you are going to copy a file, using CopyFile should be better.