请教string转换pchar的问题

[ehappy]

procedure TFrm_Main.WriteLog(LogStr: string);
.......
LogStr := FormatDateTime('yyyy"/"mm"/"dd hh:nn:ss ', Now) + LogStr + #13#10;
//2007 4 9 修改日志内容日期格式
FFileStream.Write(PChar(LogStr)^, Length(LogStr));

程序运行时有时会出现漏记的问题,概率约在万分之一,我找不出其他的问题,会不会这里转换出问题了,请大家指点

[stherix]

写完Stream记得Flush一下

[僵哥]

建议楼主找别的地方的问题，看看具体是哪里出现了内存重复释放或者越界操作。

[zhengfengpei]

LogStr := FormatDateTime('yyyy"/"mm"/"dd hh:nn:ss ', Now) + LogStr + #13#10;
LogStr会不停地增长，对吗？
代码没有问题

测试：
stream := TFileStream.Create('C:\t.txt', fmCreate );
for i := 0 to 10000 do begin
LogStr := FormatDateTime('yyyy"/"mm"/"dd hh:nn:ss ', Now) + #13#10;
//2007 4 9 修改日志内容日期格式
stream.Write(Pointer(LogStr)^, Length(LogStr));
end;

stream.Free;