VPF::Непонятная ошибка - Форум программистов

denisg729

Дата 11.9.2012, 09:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Подскажите пожалуйста, где ошибка в этом коде

Код


procedure btnFndClick(Sender: TObject); 
var dt: TDateTime;
begin            
    if (me1.Text <> '') and (not TryStrToDate(me1.EditText,dt)) then
    begin    
        errorMsg('Ошибка ввода даты выдачи!');        
        exit;
    end;

*me1 - TMaskEdit

Вылетает ошибка

kami

Дата 11.9.2012, 09:58 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

me1 указывает в никуда.

Возможные причины (навскидку):
1. me1 не создан
2. был вызов me1.Free, соответственно me1 уничтожен, а ссылка на него не обnilена

lomaster

Дата 11.9.2012, 10:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата

procedure btnFndClick(Sender: TObject);

Так нельзя.

Rennigth

Дата 15.9.2012, 22:22 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(lomaster @ 11.9.2012, 10:17

)

Так нельзя.

Почему? Кто мне запретит? smile

--------------------

(* Honesta mors turpi vita potior *)

lomaster

Дата 15.9.2012, 23:12 (ссылка)

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

Загрузка ...

Шустрый

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

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

Запретить никто не может, но и работать не будет.
Потому что процедуры на события имеют семантику как : .. of object. А это обязывает.

kami

Дата 15.9.2012, 23:23 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

Цитата(lomaster @ 15.9.2012, 23:12

)

но и работать не будет

Займусь немножко буквоедством smile

ТС нигде не сказал, что это обработчик события. Посему такое вполне имеет место быть:

Код


implementation
var
  me: TMaskEdit;
...
procedure btnFndClick(Sender: TObject);
...

initialization
  btnFndClick(nil);

Другое дело, что подобное можно отнести к $%#коду.

Rennigth

Дата 15.9.2012, 23:35 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(lomaster @ 15.9.2012, 23:12

)

А это обязывает.

Рекомендует, советует, ..., но никак не обязывает.

Код


type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure btnFndClick(Sender: TObject);
begin
  ShowMessage('ляляля');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  lbtnClickEvent: TNotifyEvent;
begin
  TMethod(lbtnClickEvent).Code := @btnFndClick;
  TMethod(lbtnClickEvent).Data := nil;
  btn1.OnClick := lbtnClickEvent;
end;

Я понимаю что это "не хорошо", но в редких случаях такое приходиться делать.

--------------------

(* Honesta mors turpi vita potior *)

lomaster

Дата 15.9.2012, 23:35 (ссылка)

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

Загрузка ...

Шустрый

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

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

kami, Ну это понятно.. тогда где весь код? а предположил исходя из предложенного(!). Можно кончно было написать - "а где весь код", но уже спросили в 1 посте

Цитата

Другое дело, что подобное можно отнести к $%#коду.

А тут и спорить не с чем ;)

Добавлено через 3 минуты и 8 секунд

Цитата

TMethod(lbtnClickEvent).Code := @btnFndClick;

Ну вот, как и говорил, нельзя так...

Это сообщение отредактировал(а) lomaster - 15.9.2012, 23:37

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