如何新增一個檔案並把值寫入 |
尚未結案
|
delphi
初階會員 發表:52 回覆:64 積分:38 註冊:2002-05-21 發送簡訊給我 |
各位前輩:
如何新增一個檔案並把值寫入
我ㄉ程式
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;
謝謝 逃避不一定躲得過
面對不一定最難受
孤單不一定不快樂
得到不一定能長久
失去不一定不再有
轉身不一定最軟弱
別急著說別無選擇
別以為世上只有對與錯
許多事情的答案都不是只有一個
所以我們永遠有路可以走
你能找個理由難過
也一定能找到快樂
懂得放心的人找到輕鬆
懂得遺忘的人找到自由
懂得關懷的人找到朋友
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
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. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |