Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Почему не сохроняются в файл ничего после openpicturedialog [D5, Win95/98, WinME, WinXP]

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

hooky-mars (2002-06-09 12:43:00) [1]

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

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

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

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

Song (2002-06-07 23:07:00) [2]
Если нажать отмена в первый раз, то ничего не запишется т.к. запись будет вестись в файл "" - null, но ошибки не выскочит, так сделан метод. Если такая штука произойдёт повторно, то просто будет перезапись старого файла.
Не проверять Execute на True - большая ошибка.

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

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

Igit (2002-06-07 22:45:00) [3]
Санкью за помощь, столько советов.
А если нажать на "Отмена", то ничего не будет:)))

esVer (2002-06-07 22:35:00) [4]
Тебе уже написали:
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. Кончай фигнёй маяться и с утра бегом в магазин за учебником...

Anatoly Podgoretsky (2002-06-07 22:32:00) [5]
snoup © (07.06.02 22:08)
Ты очень много знаешь :-)

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

hooky-mars (2002-06-07 22:25:00) [7]

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

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

Pat (2002-06-07 22:14:00) [8]
if openpicturedialog1.execute then listbox1.items.add(openpicturedialog1.filename);
:-)))

snoup (2002-06-07 22:08:00) [9]
>Anatoly Podgoretsky ©
Я не самоуверенный я просто пишу то что знаю!

Anatoly Podgoretsky (2002-06-07 22:04:00) [10]
Нам бы твою самоувернность :-)

snoup (2002-06-07 22:02:00) [11]
>hooky-mars ©
я не знаю что у вас за ошибка но у меня все работает проверьте ещё одно у компанента TOpenPictureDialog:
FileMustExist:=False;
попробуйте поставить true;
И вообще че вы хотите я дал вполне рабочий код а за настройки компанентов я не отвичаю сами с ними разберайтесь!

hooky-mars (2002-06-07 21:55:00) [12]

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

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

hooky-mars (2002-06-07 21:52:00) [13]

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

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

Anatoly Podgoretsky (2002-06-07 21:40:00) [14]
На чем основана твоя уверенность

snoup (2002-06-07 21:25:00) [15]
Ну если нажата ОТМЕНА то просто никакого действия не произойдет!

hooky-mars (2002-06-07 21:23:00) [16]

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

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

hooky-mars (2002-06-07 21:22:00) [17]

> openpicturedialog1.execute;

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

snoup (2002-06-07 21:20:00) [18]
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.
Так же и с мемо!

esVer (2002-06-07 21:18:00) [19]
Чтобы получитиь правильный ответ, надо правильно задать вопрос.
Что ты вообще делаешь-то? Если смотреть на вопрос - то нифига не понятно...

hooky-mars (2002-06-07 21:09:00) [20]
Может openpicturedialog1.FileName надо.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »