WriteBinaryStream

[wiwa]

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]

[Muetze1]

Moin!

TStream ist die abstrakte Basisklasse für die Stream Objekte (gleiches Prinzip wie bei TStrings). Somit musst du beim Create einer ihrer Ableitungen instanziieren. Z.B. TMemoryStream, TFileStream, TStringStream, TResourceStream, etc....

MfG
Muetze1

[wiwa]

Danke,
werd's gleich probieren.