procedure TForm1.Button1Click(Sender: TObject); var f: TextFile; begin AssignFile(f, 'c:\z.txt'); if FileExists('c:\z.txt') then Reset(f) else Rewrite(f); Append(f); Writeln(f, 'hello'); Writeln(f, 'abc'); ... CloseFile(f); end;
function TForm1.WriteSyslog(LogFile,strID,strMess: String): Integer; var strTemp: String; tFile: TextFile; begin AssignFile(tFile,LogFile); strTemp := Copy(strID+' ',1,6)+strMess; try if FileExists(LogFile) then Append(tFile) else ReWrite(tFile); Writeln(tFile,strTemp); finally CloseFile(tFile); end; Result := 0; end;
var f: TextFile;
begin
AssignFile(f, 'c:\z.txt');
if FileExists('c:\z.txt') then
Reset(f)
else
Rewrite(f);
Append(f);
Writeln(f, 'hello');
Writeln(f, 'abc');
...
CloseFile(f);
end;
var
strTemp: String;
tFile: TextFile;
begin
AssignFile(tFile,LogFile);
strTemp := Copy(strID+' ',1,6)+strMess;
try
if FileExists(LogFile) then
Append(tFile)
else
ReWrite(tFile);
Writeln(tFile,strTemp);
finally
CloseFile(tFile);
end;
Result := 0;
end;
使用对象TStringList都可以,不过处理复杂些