Es klingt logisch, aber es funktioniert nicht.
Delphi-Quellcode:
procedure Tver.Button4Click(Sender: TObject);
var strom: TStringStream;
i: integer;
text: string;
begin
strom := TStringStream.Create(text);
strom.Write(anz,SizeOf(anz));
for i:= 1 to anz - 1 do
pwli[i].speichern(strom);
ShowMessage(text);
strom.Free;
end;
Die Variable Text hat immer den Wert ''.