Delphi-Quellcode:
procedure WriteStringToStream(s: string; fs: TStream);
begin
fs.Write(s[0],length(s));
end;
function ReadStringFromStream(count: Integer; fs: TStream): string;
begin
result := '';
fs.Read(result[0],count);
end;
Das brauchst du... und ich glaube nicht, dass diese Funktionen irgendwo in der
VCL definiert sind.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1