как сохранит Tsringlist в listbox

[Stilet]

Код покажешь?
Попытки всмысле?

[alman12]

Сообщение от Stilet

Код покажешь?
Попытки всмысле?

var
  Form1: TForm1;
  Persons:TStringList;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned(Persons) then
Persons := TStringList.Create;
Persons.Add(Edit1.Text + ' | ' + memo2.Text);
 Listbox1.Items.Add(Edit1.Text);

 end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if ListBox1.ItemIndex>-1 then begin
  Persons.Delete(ListBox1.ItemIndex);
  ListBox1.Items.Delete(ListBox1.ItemIndex);
 end;
end;

procedure TForm1.Edit2Change(Sender: TObject);
  var x ,i: integer;
   s : string;
begin
  S:=edit2.text;
with ListBox1 do ItemIndex := Perform(LB_SELECTSTRING, ItemIndex, LongInt(S));
//Listbox1.Perform(LB_SELECTSTRING, 0, longint(Pchar(Edit2.text)));

x:= 1 + (listbox1.ItemIndex);
label1.Caption:='N_ '+inttostr(x);
end;


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

begin


end;

procedure TForm1.ListBox1Click(Sender: TObject);
var x : integer;
begin
Memo1.Text := 'name '+ Persons[Listbox1.ItemIndex];
//label1.Caption:=ListBox1.Items[ListBox1.ItemIndex];
x:= 1 + (listbox1.ItemIndex);
label1.Caption:='N_ '+inttostr(x);

end;

end.

[XE5]

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

 begin

// Ни чего тут не пропустил?
 end;

[alman12]

Сообщение от XE5

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

 begin

// Ни чего тут не пропустил?
 end;

не знаю как там написать если знаеш помоги

[XE5]

Помогу после того, как прочитаешь ВЕСЬ этот раздел

[Stilet]

не знаю как там написать

Может нужно завязывать с программированием?

Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0))+'Memo.txt');
ListBox1.Items.SaveToFile(ExtractFilePath(ParamStr(0))+'ListBox.txt');

И загрузка.

Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'Memo.txt');
ListBox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0))+'ListBox.txt');