Получить ответ

Лучший ответ по мнению автора

Евгений Ошибся немного. procedure IChtoTrudno; var   i: Integer; begin   Randomize;   i := Random(2);   case i of     0: label1.Caption := a;     1: label1.Caption := b;     2: label1.Caption := c;   end; end; 20.04.11 Лучший ответ по мнению автора

Другие ответы

Евгений var a,b,c: string; begin a := 'Some text'; label1.Caption := a; end; 20.04.11

Евгений procedure IChtoTrudno; var   i: Integer; begin   Randomize;   i := Random(2);   case i of     0: label1.Caption := a;     1: label2.Caption := b;     2: label3.Caption := c;   end; end; 20.04.11 Ответ понравился автору вопроса

Похожие вопросы