Почему получается исключение?

← →
ЮрийК © (2004-08-16 19:27) [0]

"var
FormReminder: TFormReminder;

implementation

{$R *.DFM}

procedure TFormReminder.ShowReminder(const num: Integer);
begin
if (FormReminder = nil) then
Application.CreateForm(TFormReminder, FormReminder);
with FormReminder do begin
case num of
1:
begin
re.Text := Msg1;
end;
2:
begin
re.Text := Msg2;
end;
3:
begin
re.Text := Msg3;
end;
end;
ShowModal;
end;
FormReminder.Free;
FormReminder := nil;
end;
end.
"

Без "with FormReminder do" получаю исключение, а с оным всё нормально. Почему?

← →
ламер © (2004-08-16 19:30) [1]

потому что при вызове TFormReminder.ShowReminder форма ещё не создана и Self = nil.

← →
TUser © (2004-08-16 21:06) [2]

потому что num - Integer, а case можно писать только с перечисляемыми типами и всякими byte/chortint

← →
ламер © (2004-08-16 21:08) [3]

TUser © (16.08.04 21:06) [2]
потому что num - Integer, а case можно писать только с перечисляемыми типами и всякими byte/chortint
полная чушь.

← →
Fay © (2004-08-16 21:11) [4]

Чушь не полная, а частичная 8)
TUser просто забыл, что Integer - очень даже перечисляемый тип

← →
Андрей Сенченко © (2004-08-16 21:11) [5]

ламер © (16.08.04 21:08) [3]
полная чушь.

Работающий пример с не-opdinal типом приведете ?

← →
Fay © (2004-08-16 21:17) [6]

chortint - это по-французски, что-ли?

> Андрей Сенченко © (16.08.04 21:11) [5]

если вы расскажете мне, что такое не-opdinal, то попытаюсь. но по-моему, и так понятно, что именно я имел в виду в 3-м сообщении. а именно:
1. integer - это ordinal-тип;
2. результатом использования case с не-ordinal"ом, будет ошибка времени компиляции, но никак не исключение.

Да, простите. Лоханулся.

Почему получается исключение? Найти похожие ветки