Как удобнее оформит передачу массива записей в функцию

← →
ANB © (2005-05-19 11:38) [40]

> А как же тогда Form1.Button1 ? :о)
- вот и грю же, не люблю, а приходится.

> А просто открытого - ничего и в ТП не было.
, млин, может я с TC перепутал . . . Давненько не нужно было.

← →
ANB © (2005-05-19 11:38) [41]

> Думкин © (19.05.05 11:37) [39]
- а прототяп и вызов функции сможешь накидать ?

← →
Думкин © (2005-05-19 11:43) [42]

> [41] ANB © (19.05.05 11:38)

Да пробую покрасивее. Колбаса пока.
Посмотри что привел по F1.

← →
Reindeer Moss Eater © (2005-05-19 11:45) [43]

Есть вариант, как у стандартного диалога - через set, тогда список кнопок можно будет задать просто [mbYes, mbNo], но тогда это список будет фиксированным и если кнопки не хватит, то придется опять править модуль.

Передавай в свою функцию только скалярные параметры.
Для списка кнопок передай callback функцию.
Создаваемая форма вызовет ее.
А сами кнопки создашь в колбэке.

Универсально и просто.

← →
ANB © (2005-05-19 11:48) [44]

> Reindeer Moss Eater © (19.05.05 11:45) [43]
- ну нагородил. Еще и callback функцию цеплять. Да мне тогда проще константу определить, как в коде.

← →
Reindeer Moss Eater © (2005-05-19 11:50) [45]

Мой вариант - самый простой.
Не надо городить сложных структур данных.
Плюс взаимная зависиость модулей уменьшается.

← →
ANB © (2005-05-19 11:51) [46]

> Думкин © (19.05.05 11:43) [42]

- точно, Variant open array parameters - самое оно. Ща попробую.

← →
ANB © (2005-05-19 11:52) [47]

> Думкин © (19.05.05 11:43) [42]
- все, копиляется !!! Выложить ?

← →
Думкин © (2005-05-19 12:06) [48]

> [47] ANB © (19.05.05 11:52)

Я твоя внешняя совесть? %)

← →
Polevi © (2005-05-19 12:19) [49]

xml

← →
Думкин © (2005-05-19 12:21) [50]

> [49] Polevi © (19.05.05 12:19)

"Пъясните пжалуста"(с)

← →
Reindeer Moss Eater © (2005-05-19 12:23) [51]

Чо тут пояснять?
Передать xml документ как строку

← →
Alexander Panov © (2005-05-19 12:23) [52]

function ShowDialog (sTitle, sMessage : String; const Buttons : array of RDlgButton) : Integer; function DlgButton(IconInd : Integer; Caption : String):RDlgButton; begin Result.IconInd := IconInd; Result.Caption := Caption; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowDialog("Заголовок","Мессага",[DlgButton(1,"Ok"),DlgButton(2,"Cancel")]); end;

← →
Думкин © (2005-05-19 12:26) [53]

> [51] Reindeer Moss Eater © (19.05.05 12:23)

Ба. Ну в общем в концепцию автора выдирания гланд через ... вкладывается.

← →
GrayFace © (2005-05-19 13:12) [54]

Reindeer Moss Eater © (19.05.05 11:50) [45]
Мой вариант - самый простой.
Не надо городить сложных структур данных.
Плюс взаимная зависиость модулей уменьшается.
Гы. Всего-то делов - написать для каждой кнопочки по процедуре! Я болдею.

← →
Reindeer Moss Eater © (2005-05-19 13:18) [55]

Для каждой кнопочки по процедуре пишут только болдеющие.
Я же пишу всего одну на все кнопки.

> Polevi © (19.05.05 13:56) [56]
- ой да ладно. Поразвлечься уже нельзя. Ну лень мне постоянно писать Create try finally FreeAndNil и еще параметры засовывать. Все же юзают MessageDlg и подобное. И многие пишут такие примочки, как я хочу.
А вариант

> Alexander Panov © (19.05.05 12:23) [52]
- весьма интересен, щас попробую.

Reindeer Moss Eater © (19.05.05 13:18) [55]
Для каждой кнопочки по процедуре пишут только болдеющие.
Я же пишу всего одну на все кнопки.
Тогда надо передавать массив параметров(имена кнопок) и проблема остается.

2ANB: А чем тебе в const не нравится? Перечисляешь все в объявлениях, а код не нагружаешь лишними инициализациями. Я так часто делаю и согласен, что это очень удобно. И все нормально работает.

ANB
Интересно будет взглянуть на пресловутую процедуру. Отправь мне (sergroj@hotbox.ru, sergroj@mail.ru), как готово будет.

ANB © (19.05.05 11:03) [15]
Но, согласись, когда нужно быстро вывести мессагу пользователю, то обычно ShowMessage юзаем. Потому что писать проще.
Нет. Лично я юзаю msgz - моя процедурка с одним (иногда двумя) параметром основных типов.

Как удобнее оформит передачу массива записей в функцию Найти похожие ветки