Выполнить список функций в цикле

[BARNEY]

Доброго времени суток.

У меня около 100 проверочных функции... по сути проверочная программа...

функции записаны в столбик как

if  fun1 then
if  fun_dat then
// и так  в низ 100 раз :)

когда их было мало было удобно..но с каждым днём из всё больше... объединить их нельзя.. ибо они часто меняются... да и править не удобно.

вопрос как можно их записать компактнее... чтобы удобно было с ними работать... Лучше в массив... и в цикле его бы прогнать.... Но не знаю как функцию записать в массив.

Хочется примерно так

const a: arrey[0..100] of ?????  = (fun1,fun_dat)
begin
 for I=0 to 100 do
  if (not a[i]) then break;
end;

[Stilet]

Лучше в массив

Легко:

 type fun=function (i:integer):integer;

 function q(i:integer):integer;begin Result:=i;end;
 function w(i:integer):integer;begin Result:=i*2;end;

 var a:array[1..2] of fun;k,i:integer;

begin
 a[1]:=q;a[2]:=w;
 for i:=1 to 2 do k:=k+a[i](i);
 writeln(k);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Единственное что придется в массив эти функции заводить, но это можно и в отдельном модуле сделать. И вторая сложность - описание всех таких функций должно быть однотипным.

[xexxex]

Может чутка подправить и попробовать так

 type fun=function (const i:array of const):integer;
 function q(const i:array of const):integer;
 begin Result:=i[0].VInteger; Result := Result + StrToInt(string(i[1].VAnsiString)) end;
 function w(const i:array of const):integer;begin Result:=i[0].VInteger*2;end;
 var a:array[1..2] of fun;k,i:integer;

[BARNEY]

кажет начинаю понимать.... функции у меня все boolean и выдают true или false
и если не трудно можно пояснить что и зачем жирным выделено.

 function q(i:integer):integer;begin Result:=i;end;
 function w(i:integer):integer;begin Result:=i*2;end;

[Sparkman]

Сообщение от BARNEY

кажет начинаю понимать.... функции у меня все boolean и выдают true или false

еще список параметров должен быть одинаковым

[BARNEY]

тут легче им параметры не передаются... они глобальные они сами их берут какие надо т.е. надо тупо выполнять по 1 ..если вернёт false то цикл прерывается и идёт след запись.

такая запись это и даёт.... но это не удобно в коде и ошибки ловить тоже

if  fun1 then
if  fun_dat then

[veniside]

может сразу взять dUnit?

[BARNEY]

veniside
можете считать меня извращенцем.... но я пользуюсь только стандартными компонентами... ибо костыли надоели...при переходу из версии в версию.

подскажите что пихать в

function q:boolean;begin Result:=??? end;
 function w:boolean;begin Result:=??? end;

или я не так чего понял?

[Stilet]

Да это я так для примера дал, мол массив с функциями у которых тела разные
Что тебе туда пхать уже твое дело, я показал только как их можно в цикле вызвать

[veniside]

> я пользуюсь только стандартными компонентами

dUnit входит во все версии Дельфи, начиная с 2005