Для правильного вопроса надо знать половину ответа
Только передачей параметров в массиве.
procedure TForm1.Display(X: array of const);
var
I: Integer;
begin
for I := Low(X) to High(X) do
...
end;
Display([42, 1.234, 'A', 'Васек Трубачев', Form1, TButton]);
Ответ написан
Комментировать
Комментировать
Оценили как «Нравится»
Войдите на сайт
Чтобы задать вопрос и получить на него квалифицированный ответ.
