TStrings in record = Problem

**Super_Chemiker**

Hi

Delphi-Quellcode:

			  TSaven = record

    BRS: TStrings;

    PTr: TStrings;

  end;

markieren

Delphi-Quellcode:

			var

  Form1: TForm1;

  Save: TSaven;

  Datei: TFileStream;

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

     try

       Datei := TFileStream.Create('CalcyData.dat',fmCreate);

       Save.BRS := ZL.Items;

       save.PTr := form2.ListBox1.Items;

       Datei.Write(Save,SizeOf(Save));

       Datei.Free;

     except

     end;

end;

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

begin

     calc := 0;

     try

     Datei := TFileStream.Create('CalcyData.dat',fmOpenRead);

     Datei.Read(Save,SizeOf(Save));

     ZL.Items := save.BRS;

     form2.ListBox1.Items := save.PTr;

     except

     ZL.Items.Text := 'Bisherige Rechenschritte:';

     end;

     Datei.Free;

end;

zl und listbox1 sind listboxes

Problem: wenn ich das ding nutze, werden den listboxes items hinzugefügt, aber wenn ich es beende und wieder öffne sind die weg!!
wo liegt mein problem denn nun?

Grüße

TStrings in record = Problem

TStrings in record = Problem

Forumregeln