Delphi-PRAXiS - Delphi WriteBinaryStream

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi WriteBinaryStream (https://www.delphipraxis.net/25561-writebinarystream.html)

WriteBinaryStream

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]

Re: WriteBinaryStream

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

Re: WriteBinaryStream

Danke,
werd's gleich probieren.