procedure TForm1.Button1Click(Sender: TObject); var FileName:TextFile; begin if not FileExists('f:\log.txt') then begin AssignFile(FileName,'f:\log.txt'); Rewrite(FileName); if not FileExists('f:\log.txt') then begin ShowMessage('Cannot create the log file!'); end; CloseFile(FileName); end else begin AssignFile(FileName,'f:\log.txt'); Append(FileName); Writeln(FileName,'Hello'); Flush(FileName); CloseFile(FileName); end; end;
什么.log的文件,不知道是怎么回事。如果是表就简单了。用.log的我还没用过。
var
FileName:TextFile;
begin
if not FileExists('f:\log.txt') then
begin
AssignFile(FileName,'f:\log.txt');
Rewrite(FileName);
if not FileExists('f:\log.txt') then
begin
ShowMessage('Cannot create the log file!');
end;
CloseFile(FileName);
end
else
begin
AssignFile(FileName,'f:\log.txt');
Append(FileName);
Writeln(FileName,'Hello');
Flush(FileName);
CloseFile(FileName);
end;
end;
你登陆的时候,
退出
以及删除文件,增加文件等 ;都可以逐类的记录