|
Registriert seit: 15. Sep 2005
Ort: Neu-Ulm
111 Beiträge
RAD-Studio 2009 Arc
|
Re: TFileStream Strings saven kalppt nicht
3. Nov 2005, 17:19
...und so lädt man sie wieder:
Delphi-Quellcode:
function LoadString(Source: TStream): string;
var
len: integer;
begin
Source.Read(len, SizeOf(len));
SetLength(Result, len);
Source.Read(Result[1], len);
end;
Mach' etwas idiotensicher und irgendjemand erfindet einen besseren Idioten!
|