Registriert seit: 1. Feb 2018
3.691 Beiträge
Delphi 11 Alexandria
|
AW: ANSISTRING unter Linux verfügbar ???
16. Jun 2018, 11:24
Delphi-Quellcode:
if SaveString <> '' then
FS.Write(Pointer(SaveString)^, Length(SaveString) * SizeOf(AnsiChar));
wie lautet hier die Lösung um unter beiden Plattformen mit einer CodeVariante auszukommen ?
Delphi-Quellcode:
procedure SaveBytesToFile(const Data: TBytes; const FileName: string);
var
stream: TBytesStream;
begin
stream := TBytesStream.Create(Data);
try
stream.SaveToFile(FileName);
finally
stream.Free;
end;
end;
So vielleicht? In der Hoffnung es gibt mit Linux auch TBytesStream?
|