本文整理自网络,侵删。
procedure TForm1.Timer1Timer(Sender: TObject);
var
afile: TFileStream;
//DateTime : TDateTime;
str,da,StrToWrite : string;
begin
//DateTime := Time; // store the current date and time
str := TimeToStr(Time); // convert the time into a string
da:= DateToStr(Date);
StrToWrite:= da+' '+str + #13#10; // #13#10 回车 换行
if not FileExists( 'c:/a.txt ') then
begin
try
afile := TFileStream.Create( 'c:/a.txt ', fmCreate);
afile.WriteBuffer(PChar(StrToWrite)^,Length(StrToWrite));
finally
afile.Free;
end;
end
else begin
try
afile := TFileStream.Create( 'c:/a.txt ', fmOpenWrite);
afile.Seek(0, soEnd);
afile.WriteBuffer(PChar(StrToWrite)^,Length(StrToWrite));
finally
afile.Free;
end;
end;
end;
相关阅读 >>
Delphi listview 导出excel txt vcf 单元
Delphi xe10 fdmemtable 数据保存本地和从本地加载
Delphi webbrowser控件实现对ie浏览器的各种控制
Delphi sysutils.stringreplace - 替换
Delphi xe5 使用 android 内置函数几个小测试
更多相关阅读请进入《Delphi》频道 >>