Переменное количество параметров любого типа

Автор: Neil

Вы можете определить список параметров процедуры как "Foo : ARRAY of const" и использовать почти ЛЮБОЙ тип параметра. Вот пример. Разместите на форме компоненты Memo и Button и добавьте строку "procedure Display(X : array of const);" в определения класса формы после комментария { Private Declarations }. Создайте функцию типа этой:

procedure TForm1.Display(X: array of const);
var
  I: Integer;
begin
  Memo1.Clear;
  for I := 0 to High(X) do
    with TVarRec(X[I]) do
      with Memo1.Lines do
        case VType of
          vtInteger: Add('Integer:'#9 + IntToStr(VInteger));
          vtBoolean: if VBoolean then
              Add('Boolean:'#9'True'
            else
              Add('Boolean:'#9'False');
          vtChar: Add('Char:'#9 + VChar);
          vtExtended: Add('Float:'#9 + FloatToStr(VExtended^));
          vtString: Add('String:'#9 + VString^);
          vtPointer: Add('Pointer:'#9 + Format('%p', [VPointer]));
          vtPChar: Add('PChar:'#9 + StrPas(VPChar));
          vtObject: Add('Object:'#9 + VObject.ClassName);
          vtClass: Add('Class:'#9 + VClass.ClassName);
        end;
end;

Теперь в обработчике события кнопки OnClick вызываем процедуру Display и передаем ей "что попало". Числа, строки, PChar-ы, объекты! Например:

Display([42, 1.234, 'A', 'Васек Трубачев', Form1, TButton]);

Практичестки это программа с переменным числом параметров. Но самом деле параметр один, но он является массивом, содержащим переменное количество параметров различного типа. Потрясающе!

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 662 • TDictionary Custom Sort 6 668 • Fast Watermark Sources 6 449 • 3D Designer 9 382 • Sik Screen Capture 6 783 • Patch Maker 7 191 • Айболит (remote control) 7 180 • ListBox Drag & Drop 6 029 • Доска для игры Реверси 97 652 • Графические эффекты 7 354 • Рисование по маске 6 655 • Перетаскивание изображений 5 512 • Canvas Drawing 5 895 • Рисование Луны 5 637 • Поворот изображения 5 124 • Рисование стержней 3 717 • Paint on Shape 2 928 • Генератор кроссвордов 3 832 • Головоломка Paletto 3 069 • Теорема Монжа об окружностях 3 881 • Пазл Numbrix 2 553 • Заборы и коммивояжеры 3 293 • Игра HIP 2 258 • Игра Go (Го) 2 181 • Симулятор лифта 2 574 • Программа укладки плитки 2 188 • Генератор лабиринта 2 691 • Проверка числового ввода 2 339 • HEX View 2 675 • Физический маятник 2 325