Hallo,
brauche mal Eure Hilfe, warum funktioniert dieser Code nicht?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var f:tinifile;
s:tstream;
begin
f:=tinifile.Create('.\test.ini');
s:=tstream.Create;
lb1.Items.SaveToStream(s); // ListboxItems -> Stream
f.WriteBinaryStream('Exclude','Ausschliessen',s);
s.Free;
f.free;
end;
Bekomme immer einen EAbstractError, lt. Doku sollte es aber so gehen...
Die Test-Anwendung hat nur eine gefüllte Listbox und den Button mit obiger Procedure.
Gruß Wiwa
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]