Unterschiedliche Daten speichern u. auslesen

[DGL-luke]

file = evil; mach es doch mit streams!

Delphi-Quellcode:

type TEntry = record
 length:integer;
 value:string;
end;

procedure ListboxSave(lb: TListBox);
var stream:TFileStream;
    temp:TEntry;
begin
stream:=TFileStream.create('Listbox.lbs',fmCreate);

for i:=0 to lb.Items.count-1 do
 begin
  temp.length:=length(lb.Items[i]);
  temp.value := lb.Items[i];
  stream.write(temp);
 end;
 
stream.free;
end;

mit dem record ist das ganze zwar ein wenig oversized, aber das prinzip sollte klar sein.

zum laden dann:

Delphi-Quellcode:

stream.position:=0;
stream.read(temp.length,sizeof(integer));
stream.read(temp.value,temp.length);

EDIT: code nullmal bearbeitet und 100% fool proof und DAU-sicher( wenn ich mich nicht vertippt hab )