Ошибка

[LeoN]

При запуски проги она сохраняет в файл ListBox(пустой) и начинает вылазить
1.ошибка
2.повторное нажатие F9
3.Ошиба (Untitled-2.jpg)
Объясните почему

[Квэнди]

Боюсь шаманов найти сложно, показывайте исходный код

[Carbon]

ListBox1.Items.SaveToFile('1.txt');

Сохраняет без ошибок, даже если ListBox пустой или файл отсутствует.

[LeoN]

Вот код той формы:

procedure TForm5.FormShow(Sender: TObject);{форма запуска проги}
Var
cnt,num:integer;{временные переменные}
begin
 Put:=GetCurrentDir;{путь проги}
 Num:=0;{просто вставилюа вдруг сработает?}
 Application.MessageBox(PChar(put+'\LoaD.dat'),'',0);              {просто для проверки пути}
 If FileExists(put+'\LoaD.dat')=True then
  Begin
   FormRes.ListBox8.Items.LoadFromFile(put+'\LoaD.dat');
   cnt:=FormRes.ListBox8.Count;
  End
 Else
  Begin
   FormRes.ListBox8.Items.SaveToFile(put+'\LoaD.dat');
   Close;
  End;
 while Cnt>=num do
  Begin
   If FileExists(put+FormRes.ListBox8.Items.Strings[num])=True then
   FormRes.ListBox5.Items.LoadFromFile(FormRes.ListBox8.Items.Strings[num]);


  End;
end;

Думаю все легко и вы разберетесь

[rpy3uH]

последний цикл будет работать вечно, потому что cnt в любом случае будет 0 или больше

[LeoN]

я же сказал что не дописаны ошибка возникает в сохранении.
Ещё проблема когда и вытаскиваю значение через IndexOf в ListBox значение = -1,т.е. не определяется.