Hallo community,
@Bummi: o.k., das ist die Antwort. In den Hilfen findet der Laie die Funktionsbeschreibung eben nicht. Ich hatte die Vorstellung, dass man am Anfang des Schreibprozesses die Anzahl der strings (count) speichern könnte.
@jaenicke: stimmt.
Schade, dass tstringllist dieses Verhalten nicht kann.
Meine Lösung wäre dann zwar umständlich, aber möglich:
Delphi-Quellcode:
procedure tstorepersistent_UA.writeotherdata(astream: tstream);
var i:integer;
begin
astream.write(astringlist.count,sizeof(astringlist.count));
for i:=0 astringlist.count-1 do
begin
i:=length(astringlist[i])*sizeof(char);
astream.write(i,sizeof(i));
astream.write(pointer(astringlist[i])^,i);
end
end;
Enstprechendes umgekehrt beim Wiedereinlesen.
Habe ich noch nicht getestet.
Danke an alle!
MfG
Uwe