Почему не сохроняются в файл ничего после openpicturedialog

← →
Igit (2002-06-07 20:29) [0]

У меня есть ListBox. После клика по буттону
openpicturedialog1.Execute;
listbox1.Items.AddStrings(openpicturedialog1.Files);
в listbox1 имя файла добавляется, но... когда я
собираюсь софранить весь listbox1 в файл
writeln(wall_ini, listbox1.Items.Text);
у меня вобще ничего туда не записывается.
Во всё записывается, кроме файла.
С memo та же проблема

← →
hooky-mars (2002-06-07 21:09) [1]

Может openpicturedialog1.FileName надо.

← →
esVer (2002-06-07 21:18) [2]

Чтобы получитиь правильный ответ, надо правильно задать вопрос.
Что ты вообще делаешь-то? Если смотреть на вопрос - то нифига не понятно...

← →
snoup (2002-06-07 21:20) [3]

procedure TForm1.Button1Click(Sender: TObject);
begin
openpicturedialog1.execute;
listbox1.items.add(openpicturedialog1.filename);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.items.SaveToFile("c:\test.txt")
end;

end.
Так же и с мемо!

← →
hooky-mars (2002-06-07 21:22) [4]

> openpicturedialog1.execute;

А есали была нажата "отмена"

← →
hooky-mars (2002-06-07 21:23) [5]

> snoup © (07.06.02 21:20)
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> openpicturedialog1.execute;
> listbox1.items.add(openpicturedialog1.filename);
> end;

А есали была нажата "отмена"

← →
snoup (2002-06-07 21:25) [6]

Ну если нажата ОТМЕНА то просто никакого действия не произойдет!

← →
Anatoly Podgoretsky (2002-06-07 21:40) [7]

На чем основана твоя уверенность

← →
hooky-mars (2002-06-07 21:52) [8]

> Ну если нажата ОТМЕНА то просто никакого действия не произойдет!

Выскачет ошибка!

← →
hooky-mars (2002-06-07 21:55) [9]

> snoup © (07.06.02 21:25)
> Ну если нажата ОТМЕНА то просто никакого действия не произойдет!

Вы вообще проверяет то, что советуете?

← →
snoup (2002-06-07 22:02) [10]

>hooky-mars ©
я не знаю что у вас за ошибка но у меня все работает проверьте ещё одно у компанента TOpenPictureDialog:
FileMustExist:=False;
попробуйте поставить true;
И вообще че вы хотите я дал вполне рабочий код а за настройки компанентов я не отвичаю сами с ними разберайтесь!

← →
Anatoly Podgoretsky (2002-06-07 22:04) [11]

Нам бы твою самоувернность :-)

← →
snoup (2002-06-07 22:08) [12]

>Anatoly Podgoretsky ©
Я не самоуверенный я просто пишу то что знаю!

← →
Pat (2002-06-07 22:14) [13]

if openpicturedialog1.execute then listbox1.items.add(openpicturedialog1.filename);
:-)))

← →
hooky-mars (2002-06-07 22:25) [14]

> snoup © (07.06.02 22:08)
> >Anatoly Podgoretsky ©
> Я не самоуверенный я просто пишу то что знаю!

Ведь дело не идёт не сколько о заполнении listbox`са, а о сохранения файла!

← →
snoup (2002-06-07 22:32) [15]

← →
Anatoly Podgoretsky (2002-06-07 22:32) [16]

← →
esVer (2002-06-07 22:35) [17]

Тебе уже написали:
if openpicturedialog1.execute then
listbox1.items.add(openpicturedialog1.filename);
я дополню
if listbox1.items.count>0 then
listbox1.items.SaveToFile("c:\test.txt")
else
ShowMessage("Пустота...");

P.S. Кончай фигнёй маяться и с утра бегом в магазин за учебником...

← →
Igit (2002-06-07 22:45) [18]

Санкью за помощь, столько советов.
А если нажать на "Отмена", то ничего не будет:)))

← →
Song (2002-06-07 23:07) [19]

Если нажать отмена в первый раз, то ничего не запишется т.к. запись будет вестись в файл "" - null, но ошибки не выскочит, так сделан метод. Если такая штука произойдёт повторно, то просто будет перезапись старого файла.
Не проверять Execute на True - большая ошибка.

На count проверять не надо т.к. файл будет пустым при Count=0, а это никому не мешает и ошибкой не является.

Уважаемый, snoup, ошибка Ваша, не стоит огрызаться, если не правы. Надеюсь Вас не обидел.
Song

← →
hooky-mars (2002-06-09 12:43) [20]

> snoup © (07.06.02 22:32)
> >hooky-mars ©
> Ну так ты обьясни что именно ты хочешь там и так написано
> как созранить файл с вложенными данными!

Ведь графический файл надо сначало создать, а потом добавить его в листбокс.А инече это нимет сбысла, даже если была нажата кнопка "Сохранить", так как в лисбокс добавится не существующий файл, что какраз и видно из вашего кда:

> procedure TForm1.Button1Click(Sender: TObject);
> begin
> openpicturedialog1.execute;
> listbox1.items.add(openpicturedialog1.filename);
> end;

Притаком деле возможно ошибки и не происходит, но и несохраняется графический файл.

Почему не сохроняются в файл ничего после openpicturedialog Найти похожие ветки