Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Открытие файла с текстовой информацией

Автор: jaAlex 28.10.2006, 20:42

Код


...
var
num: Integer;
...
procedure TForm1.N2Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
 begin
  if num=1 then
   begin
    N22.Click;
    Load(StringGrid1, OpenDialog1.FileName);
   end;
 end;
end;

Всем привет! Вот этот код не работает. Почему? В чем здесь ошибка(если она вообще есть)? N22.Click и Load() не выполняются. Подскажите пожалуйста, а то я что - то запутался. Всем заранее спасибо.

P.S. Значение num загружается из текстового файла, который открывается через OpenDialog1. И вот если его значение 1 (а в файле оно 1) должны выполняться N22.Click и Load(). Но не работает. Почему???

Автор: digs 28.10.2006, 20:49

Если диалог открылся, но эти команды не выполняются, то варианта два:
1. num<>1
2. Отрывается диалоговое окно в другом обработчике, а ты думаешь что в этом

зы. Поставь на строку if num=1 then брейкпоинт и посмотри, чему оно действительно равно

Автор: jaAlex 28.10.2006, 20:55

digs, спасибо за ответ. Я уже разобрался, там было:

Цитата(digs @ 28.10.2006, 20:49

)

2. Отрывается диалоговое окно в другом обработчике, а ты думаешь что в этом

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