Dieses komische Pointer/Buffer-Gedöns ist mir unheimlich. Was gewinnt man damit?
Was spricht gegen
TFile.AppendAllText(..)
?
Delphi-Quellcode:
uses System.IoUtils, System.Classes, System.SysUtils;
const
fileName = 'x:\myFile.abc';
var
aLogStr: String;
begin
aLogStr := DateTimeToStr(Now) + 'derp' + sLineBreak;
TFile.AppendAllText(fileName, aLogStr);
end.
Wenn man es unbedingt mit einem TStream machen möchte: Dann nimm doch einfach WriteData und wandel deinen Text in ein Byte-Array (TBytes) um:
Delphi-Quellcode:
asBytes := TEncoding.ASCII.GetBytes(aLogStr);
aFileStream.WriteData(asBytes, Length(asBytes));