[R-18Rus]

Не работают open и save dialogs. Компилятор ошибки не находит.

Код:

procedure TForm1.N3Click(Sender: TObject);
var proezd:TStringList;
begin
if OpenDialog1.Execute then begin
  Proezd:=TStringList.Create;
  proezd.LoadFromFile(OpenDialog1.FileName);
  Label6.Caption:=proezd.Strings[0]+' руб.';
  Label7.Caption:=proezd.Strings[1]+' руб.';
  Label8.Caption:=proezd.Strings[2]+' руб.';
  Label9.Caption:=proezd.Strings[3]+' руб.';
  end;
end;

procedure TForm1.N4Click(Sender: TObject);
var proezd:TStringList;
begin
if SaveDialog1.Execute then
  begin
  Proezd:=TStringList.Create;
  proezd.Add(Label6.Caption);
  proezd.Add(Label7.Caption);
  proezd.Add(Label8.Caption);
  proezd.Add(Label9.Caption);
  proezd.SaveToFile(SaveDialog1.FileName);
  OpenDialog1.FileName:=SaveDialog1.FileName;
  end;
end;

[PS11011010]

Попробуй вместо условия

Код:

SaveDialog1.Execute

поставить условие

Код:

FileExecute(SaveDialog1.FileName)

[cotseec]

в чем проявляется "не работает"? (ошибки, не появляется диалог при нажатии на кнопки и т.д.).
F8 на точке останова в этой процедуре дает что-нибудь?

З.Ы. а диалоги на фому закинуты?

[M.A.D.M.A.N.]

Предположу, что ошибка List index of bounds.

[R-18Rus]

Уже всё заработало. Не знаю как, почему. Нажал на форме на соответствующие кнопки, они меня переместили к данным процедурам, ничего не менял, запустил и всё заработало.

а диалоги на фому закинуты?

=) за кого Вы меня принимаете?

А можете ещё подсказать по InputQuery. Ситуация такая:

При not TryStrToInt выводится InputQuery и если нажать отмена, то переменной присвоится нуль.