Открыть и сохранить edit

[cyx]

Подскажите пожалуйста, как открыть сохраненные значения заново в edit?

1. procedure TForm4.Button4Click(Sender: TObject);
   begin
   saveDialog1.Execute;
   saveDialog1.Files.Add('1 - '+edit4.text);
   saveDialog1.Files.Add('2 -'+edit5.text);
   SaveDialog1.Files.SaveToFile(saveDi alog1.FileName+'.txt');
   end;

[Stilet]

Нда... Не сразу дошло что тут написано... Видать пора мне с Уискей завязывать.
А мона вопросец: А че именно так?

[Serge_Bliznykov]

cyx, у Вас сохранение , мягко говоря, криво написано!

присоединяюсь к вопросу, зачем так?!!!

[Stilet]

сохранение , мягко говоря, криво написано!

Обиднее всего что оно работает!!!
Этож весь мир перед глазами пробежал. Мои розовые ИТ очки раскололись надвое, и прежней спокойной ООП жизни больше не будет никогда...

[cyx]

все умеют судить, лучше бы помогли правильно сделать

[Toxa]

парсить строку, открыть файл в stringlist и в нем с помощью pos, posex и copy получать данные
хотя для этой цели лучше использовать ini-файл

[Stilet]

лучше бы помогли правильно сделать

1)

if SaveDialog.Execute then
 with TStringList.Create do begin
  Append('1 - '+edit4.text);
  SaveToFile(saveDi alog1.FileName+'.txt');
  Free;
 end;

2)

if SaveDialog.Execute then
 with TIniFile.Create(saveDi alog1.FileName+'.txt') do begin
  WriteString('Секция','1',edit4.text);
  Free;
 end;

А сопли типа все умеют судить оставь себе.
Кто тебе виноват, что ты не захотел читать книги и статьи по Делфи, и непонятно откуда выдрал сей чудеснейший код, который только велением щучьим работает?.
Читай. Учись. Практикуйся. Иначе забудь о ИТ сфере, и вообще о любой другой сфере.