Вопрос про ListBox

[dimok-13]

Здравствуйте. Извините за, может быть, глупый вопрос.
Почему не работает код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
ListBox1.Items.Add(OpenDialog1.FileName);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ListBox1.Items.SaveToFile('Save.txt');
end;

Файл save.txt после закрытия остается пустым.

[evg_m]

попробуй в savetofile() указать полный путь

savetofile('d:\myprog\save.txt');

или поищи файл save.txt в тех каталогах куда заходил по кликам Button1

[russian-stalker]

procedure TForm1.Button1Click(Sender: TObject);
begin
if not OpenDialog1.Execute then exit;//Только так
ListBox1.Items.Add(OpenDialog1.FileName);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ListBox1.Items.SaveToFile(extractfilepath(paramstr(0))+'Save.txt');//Надо указывать полный путь
end;

[mihali4]

Совершенно необязательно.
ListBox1.Items.SaveToFile('Save.txt ') и так запишет файл в каталог с проектом.

[evgenidem]

Наиболее оптимальным будет ListBox1.Items.SaveToFile(ExtractFi leName(Application.ExeName)+'Save.t xt')

Если не сохраняется, то попробуйте сохранить проект в другое место. Так тоже иногда бывает.

[Noor]

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

Совершенно необязательно.
ListBox1.Items.SaveToFile('Save.txt ') и так запишет файл в каталог с проектом.

mihali4 - в этом случае файл создается на диске/в каталоге из которого вы выбрали последний файл для добавления в ListBox (Если последний добавляемый файл был D:\temp\temp.txt то и файл save сохранится в каталог D:\temp\, а не в каталоге с программой)

evgenidem Исходя из вашего примера

ListBox1.Items.SaveToFile(ExtractFileName(Application.ExeName)+'Save.txt')

...тоже самое что и с примером mihali4а, только к названию сохраняемого файла прибавляется и название исполняемого файла.
Project1.exeSave.txt

Вот код russian-stalker работает !!!
Хотя предложу от себя

ListBox1.Items.SaveToFile(ExtractFilePath(Application.ExeName)+ 'Save.txt')

[mihali4]

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

mihali4 - в этом случае файл создается на диске/в каталоге из которого вы выбрали последний файл для добавления в ListBox (Если последний добавляемый файл был D:\temp\temp.txt то и файл save сохранится в каталог D:\temp\, а не в каталоге с программой)

С чего вы взяли?
Я уж решил, что начинаю сходить с ума...
Создал проектик, две кнопки и листбокс.

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('C:\Intel\DBF.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Items.SaveToFile('000.txt');
end;

Так вот, файл '000.txt' сохраняется в каталоге с проектом (D:\Borland\Delphi7\Projects), а не на диске С...
Можете проверить.

З.Ы.

Скорее всего есть зависимость от того каким методом идет заполнение ListBox.

Согласен.

[Noor]

Я тоже проверил код который Вы предоставили в посте #4

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
ListBox1.Items.Add(OpenDialog1.FileName);
end;
//------------------
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Items.SaveToFile('Save.txt');
end;
end.

и как результат, файл save создается на диске/в каталоге из которого вы делали поледнее добавление значения в ListBox.
Скорее всего есть зависимость от того каким методом идет заполнение ListBox. Вот Вы его загрузили из файла, а вы попробуйте заполнить его методом топикстартера....через

if OpenDialog1.Execute then
ListBox1.Items.Add(OpenDialog1.FileName);

[SERG1980]

Для Михалыча

Если открывать файл через OpenDialog и не задан полный путь то сохранение идёт в каталог который был выбран в OpenDialog а если открыть вашим способом (Пост №7) то будет так как Вы пишите

[pu4koff]

Есть такая штука как "Current Directory". По умолчанию это папка с исполняемым приложением. Если запускать программу через ярлык, то там в свойствах эту папку при загрузке можно изменить, т.е. уже при запуске программы она не будет соответствовать папке с программой. Так же все стандартные виндовые диалоги (OpenDialog, SaveDialog,...) меняют эту самую "текущую папку" на свою. Сохранение вида ListBox1.Items.SaveToFile('Save.txt '); запишет содержимое в файл: CurrentDirectory / Save.txt. Так же могут быть грабли при печати. Есть так называемые виртуальные принтеры, которые через стандартный диалог запрашивают у пользователя имя файла для сохранения отчёта. В общем, эта самая папка может измениться практически в любом месте и потому надеяться на то, что она соответствует папке с программой, не стоит. Лучше указывать полный путь, посредством приведённых выше примеров с ParamStr(0) и Application.ExeName.