Сохранение содержимого в файл и дальнейшая ее загрузка

[xrenomx]

Всем добрый день.Пытался,пыжался по всякому но не получилось.Надо содержимое компонентов edit1,edit2,edit3,edit4 сохранить в файла потом загрузить в компонент TListBox,но у меня возникли проблемы пока с первой частью,вот код(в разделе type описал структуру):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
   str = record
   edit1,edit2,edit3,edit4:String;
   end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
f:TFileStream;
str:string;
begin
f:=TFileStream.Create('E:\test.dat',fmCreate);
f.Write(str,sizeof(str));
f.free;
end;

end.

Содержимое файла - пустое,при предварительном вводе данных в соотв. компоненты
Буду очень благодарен за помощь

[Utkin]

Есть более высокоуровневый вариант. Есть класс TStringList - в простонародье список строк. Ну гугл его отлично знает. Полезен он тем, что имеет два хороших метода - LoadFromFile и SaveToFile. Небольшой обзорчик - http://www.delphibasics.ru/TStringList.php

[veniside]

а учитывая, что элементы ListBox1 являются наследниками от TStringList, задача вобще решается в два действия:

1) сохраняем

  with TStringList.Create() do try
    //
    Add(Edit1.Text);
    Add(Edit2.Text);
    ...
    Add(Edit999.Text);
    //
    SaveToFile('E:\test.dat');
  finally
    Free();
  end;

2) загружаем:

ListBox1.Items.LoadFromFile('E:\test.dat');

[Utkin]

Да , тогда второй пункт тоже в обертке try, а то с файлами часто бывают разные нестыковки...

[xrenomx]

Спасибо за помощь,решил проблему