Недавно добавленные исходники

•  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

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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



Автор: 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]);

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








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте