Delphi 5 : Langer String in tFileStream

Computer: Software & Programmierung Programmierung allgemein
#1

Wie kann ich einen AnsiString in ein FileStream schreiben?

Um in FileStream einen Wert zu schreiben, muss man den Speicherbedarf (Count) angeben.

[function Write(const Buffer; Count: Longint): Longint; override;]

Doch wie gross ist dieser bei einem langen String? Wie bekomme ich den Speicherbedarf der im String gespeicherten Informationen heraus, um diese dann in tFileStream zu speichern?

Vielen Dank für jede Hilfe
Marc

#2

Length(String)

#3

var
clData : Cardinal;
Data : string; // oder sonstwas

begin
clDate := Length(Data);
Write(clData, 4);
Write(Pointer(Data)^, clData);
end;