ListBox в файл (ЧУДЕСА)

[atihiy2010]

Доброго всем дня и ночи. Привожу 2 примера кода.

procedure TForm7.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('items.plc');
ListBox1.ItemIndex:=0;
end;
procedure TForm7.Button1Click(Sender: TObject);
var z:string;
begin
if OpenDialog1.Execute then
z:=ExtractFilePath (OpenDialog1.FileName);
ListBox1.Items.Add(z);
end;
procedure TForm7.Button5Click(Sender: TObject);
begin
ListBox1.Items.SaveToFile('items.plc');
end;

При таком раскладе нехочет сохранять...
А при таком:

procedure TForm7.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('items.plc');
ListBox1.ItemIndex:=0;
end;
procedure TForm7.Button6Click(Sender: TObject);
begin
ListBox1.Items.Add('Путь к файлу');
end;
procedure TForm7.Button5Click(Sender: TObject);
begin
ListBox1.Items.SaveToFile('items.plc');
end;

Все отлично сохраняет. Хотя в первом случае в ListBox добавляются строки. Целый день мучаюсь с этой бедой. Что к чему не пойму. Подскажите пожалуйста.

[veniside]

> При таком раскладе нехочет сохранять...

думаю, что он сохраняет, но не туда, где вы это ожидаете )
Т.к. OpenDialog1.Execute() меняет текущую директорию, а при сохранение у вас путь не указан, то файл 'items.plc' будет создан в той директории, где последний раз был открыт OpenDialog1.

[atihiy2010]

Огромное спасибо за розьяснение моей непонятки. Теперь все ясно. Видать не до конца изучил этот компонент, чтоб его... Дальше буду думать как заставить сохранить туда где прога, где б она ни была. Еще раз спасибо.

[veniside]

Компонент тут в общем не при чём, это винда так работает.
А заставить просто — указывайте полный путь при сохранении. Если нужно сохранять туда, откуда программа была запущена, то:

SaveToFile(ExtractFilePath(ParamStr(0)) + 'items.plc');

[atihiy2010]

Ясно, обьявляется огромная благодарность.

[victor5]

Вау, спасибо всем за пример "ListBox в файл", то что надо, как раз искал, + можно добавить ширование текста и будет то что надо! ;о)

[victor5]

Вот еще на простора инета нашел:

Сохранить содержимое:
ListBox.Items.SaveToFile('list.txt' );
Загрузить из файла:
ListBox.Items.LoadFromFile('list.tx t');