VPF::Открытие файла с текстовой информацией

jaAlex

Дата 28.10.2006, 20:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет

Код


...
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(). Но не работает. Почему???

Это сообщение отредактировал(а) jaAlex - 28.10.2006, 20:45

digs

Дата 28.10.2006, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 62
Регистрация: 14.10.2006

Репутация: нет
Всего: 1

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

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

Это сообщение отредактировал(а) digs - 28.10.2006, 20:52

jaAlex

Дата 28.10.2006, 20:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет

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

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

)

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

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »