delphi case

Ответ от Кот[гуру]
Case-работает аналогично оператору If
пример
Код:
i:byte;
i:=1;
case i of
begin
0:Label1.caption:='Нуль';
1:Label1.caption:='Один';
2:Label1.caption:='Два' ;
end
else Label1.caption:='Чето много! ';
end;
Т. е
Код:
if i=0 then
label1.caption:='Zero'
else
if i=1 then
label1.caption:='One'
else ...
if i=n
then label1.caption:='Оч. Много'
else label1.caption:='Ничего не подошло';
Кот
Мастер
(2148)
Поверьте, я прекрасно знаю конструкцию case of, это нужно вам, а не мне.
Кроме того гугл мне не нужен, я пользуюсь форумами разработчиков.
Если вам ума не хватило обратиться к этому виду помощи, ждите погоды дальше... Впрочем, если вы считаете, что на ответах научитесь работать с Delphi, вы глубоко заблуждаетесь.