Delphi-tfilestream:将时间和日期写入文件

Question

我试图为每个事件保存一行，其中包含一段文本和发生的时间+日期。

问题是：

1. 时间显示为中文字体
2. 它一次又一次地替换同一行

这是代码：

uses sysUtils, classes;
function log: Boolean;
var
fs: TFileStream;
i : String;
time : TDateTime;
begin
i := 'Boss is dead!';
time := now;
try
fs := TFileStream.Create('log.txt', fmCreate or fmOpenWrite);
fs.Write(PChar(i +TimeToStr(time))^, Length(i +TimeToStr(time)));
fs.write(i, sizeof(i));   
finally
fs.Free; 
end;
end;

谢谢。

Answer 1

通常，当您期望拉丁文本，但看到中文文本时，这意味着您将ANSI文本解释为UTF-16。由此，我推断您打算写出UTF-16文本，但实际上是在写出ANSI文本。这意味着您有一个Unicode之前的Delphi。

至于为什么一直覆盖文件，那是因为您传递了fmCreate。您真正想做的是在写入模式下打开一个现有文件，或者如果不存在文件，则创建一个新文件。Win32 API函数支持OPEN_ALWAYS创建处置。但这在TFileStream.Create中是不可用的。所以您必须使用THandleStream并直接调用CreateFile。请注意，较新版本的Delphi引入了公开OPEN_ALWAYS功能的TFile.Open。但我的推理是，你使用的Delphi太旧了。

假设您可以使用THandleStream，并正确调用CreateFile，那么您只需要写出UTF-16文本。最简单的方法是使用WideString。你可以这样写代码：

var
ws: WideString;
....
Stream.Seek(0, soFromEnd);
ws := TimeToStr(Now) + sLineBreak;
Stream.WriteBuffer(PWideChar(ws)^, SizeOf(WideChar)*Length(ws));

另一方面，也许中国人来自这里：

fs.write(i, sizeof(i));

这段代码只是写一个指向文件的指针。你肯定不想那样做，应该删除那行。为了完整起见，如果您确实有一个Unicode Delphi，那么您将以非常相似的方式编写文本。像这样：

var
s: string;
....
Stream.Seek(0, soFromEnd);
s := TimeToStr(Now) + sLineBreak;
Stream.WriteBuffer(PWideChar(s)^, SizeOf(WideChar)*Length(s));

回到附加到流中，它会像这样运行：

var
hFile: THandle;
....
hFile := CreateFile(
PChar(LogFileName),
GENERIC_WRITE,
FILE_SHARE_READ,
nil,
OPEN_ALWAYS,
FILE_ATTRIBUTE_NORMAL,
0
);
Win32Check(hFile<>INVALID_HANDLE_VALUE);
Try
Stream := THandleStream.Create(hFile);
Try
.... code to write to the stream goes here
Finally
Stream.Free;
End;
Finally
CloseHandle(hFile);
End;

最后，在这个答案中，我不得不对你的环境做出很多猜测。以后，请始终包含您使用的Delphi版本。并始终包含一个明确的目标声明。

Answer 2

关于您的代码，我有几点需要更改。

1. 您有一个函数，它应该返回布尔值，但您从未设置返回值。

2. 这并不是"错误的"，但变量i最常用作数组的整数索引或循环变量。Delphi开发人员将讨厌使用i作为字符串的代码。

3. 看起来你只是在记录文本。TFileStream可能不是最好的类。

我认为这是更干净的代码：

uses System.IoUtils;
...
FileName := 'log.txt';
LogLine  := 'Boss is dead '+TimeToStr(Now);
TFile.AppendAllText(FileName, LogLine);

http://docwiki.embarcadero.com/Libraries/XE7/en/System.IOUtils.TFile.AppendAllText

Answer 3

这个怎么样：

uses SysUtils;
var s: AnsiString;
s := FormatDateTime('yyyy-mm-dd hh:nn:ss', now);
fs.Write(s[1], Length(s));