case ... of

← →
Igit © (2003-10-23 13:24) [0]

хотелось бы
case Sender of
Form1.Button13 : lpszText:=Pchar("Exit");
Form1.Button12 : lpszText:=Pchar("Hide");
........................................
end;
но ругается, мол Ordinal type required.
приходться так:
if Sender =
Form1.Button13 then lpszText:=Pchar("Exit");
if Sender =
Form1.Button12 then lpszText:=Pchar("Hide");
...........................................

подскажите что делать?

← →
Skier © (2003-10-23 13:28) [1]

> подскажите что делать?

Использовать св-во TButton.Tag

← →
clickmaker © (2003-10-23 13:29) [2]

Раздать всем батонам тэги и дальше:

case TButton(Sender).Tag of
13:
12:
end;

← →
Внук © (2003-10-23 13:31) [3]

Оператор case действительно употребим только для порядковых типов. Можно использовать свойство Tag и писать
case (Sender as TComponent).Tag of
1:
2:
...
А еще лучше ввести вместо 1,2,... перечислимый тип.

← →
Skier © (2003-10-23 13:31) [4]

>Igit © (23.10.03 13:24)
А вообще расскажи про изначаньную задачу - что нужно сделать с кнопками ? Может быть найдётся решение поизящней...

← →
Внук © (2003-10-23 13:34) [5]

:))))))))

Form1.Button13.Tag:=integer(PChar("Exit"));//Tag = адрес строковой константы
...............
lpszText:=Pchar(TComponent(Sender).Tag);

case ... of Найти похожие ветки