Массив процедур или идеи получше?

[Alex Cones]

 Procedure AddBlue(Var T : TTexture; Value : Integer);
 Procedure AddGreen(Var T : TTexture; Value : Integer);
 Procedure AddRed(Var T : TTexture; Value : Integer);
 Procedure Brigthness(Var T : TTexture; Value : Integer);
 Procedure ConvertToBW(Var T : TTexture);
 Procedure DrawCircle(Var T : TTexture; CenterX, CenterY, Radius, Color : Integer);
 Procedure DrawLine(Var T : TTexture; X1, Y1, X2, Y2, Color : Integer);
 Procedure DrawPoint(Var T : TTexture; PointX, PointY, Color : Integer);
 Procedure DrawRectangle(Var T : TTexture; X1, Y1, X2, Y2, Color : Integer);
 Procedure DrawTornCircle(Var T : TTexture; CenterX, CenterY, Radius, Color : Integer);
 Procedure FillAll(Var T : TTexture; Color : Integer);
 Procedure GaussBlur(Var T : TTexture; Level : Integer);
 Procedure LinesHorisontal(Var T : TTexture; Color : Integer; Freq : Integer);
 Procedure LinesVertical(Var T : TTexture; Color : Integer; Freq : Integer);
 Procedure Noise(Var T : TTexture; Value : Integer);

Как не трудно заметить, в параметрах сначала идет TTexture, а затем интеджерные значения. Читаю из файла последовательность действий для рисования текстуры. В бинарном файле должна быть пометка, какую процедуру следует брать. Например

BlockRead(F, I, SizeOF(I));
Case I of
0 : Begin
BlockRead(F, J, SizeOf(Integer));
AddBlue(T, J);
End;
1 : ...

И что, так для каждой процедуры? Так дело не пойдет.
Какие имеются мысли:
[*] Намутить массив указателей. Нацелить их на процедуры. Намутить массив количества параметров для соответствующих процедур. А как вызывать - ХЗ.
[*] Намутить каждой функции лишние параметры, чтобы у каждой было одинаковое количество. Все их обзывать не по именам, а запхнуть в массив. Тогда возникают трудности, если я хочу какую-то отдельную функу вызвать не из файла, а рантайм. Так по имени видно, а индекс мало расскажет.

В общем слушаю мысли, даже самые кровожадные.

[Пепел Феникса]

[*] Намутить массив указателей. Нацелить их на процедуры. Намутить массив количества параметров для соответствующих процедур. А как вызывать - ХЗ.

вызывать через массив(по индексу) но если процедуры разные то проблемка
(нужен асм тогда)

*] Намутить каждой функции лишние параметры, чтобы у каждой было одинаковое количество. Все их обзывать не по именам, а запхнуть в массив. Тогда возникают трудности, если я хочу какую-то отдельную функу вызвать не из файла, а рантайм. Так по имени видно, а индекс мало расскажет.

учитывая что имя останется, то в чем проблема?(самый простой способ, правда в файле лишние байты придется занимать(чтоб от case избавится))
но проверку за выход массива не забудь на всяк.
это проще ибо можно без асма тогда.

PS:я сейчас интерпритатор пишу но у меня принцип совсем иной.

[Alex Cones]

учитывая что имя останется

Не понял... В смылсе тот же массив указателей? Или как? Не уловил...

P.S. А нет функи, чтобы узнать количество или общий размер параметров целевой функи?

[Пепел Феникса]

массив функций

type
 TMyFunc=function(var T:Texture;...);
var
FuncAr:array of TMyFunc;

потом просто FuncAr[i](...)
естественно заполнить его не забудь

[Alex Cones]

А як его заполнить? так:?

@FuncAr[0] := @AddBlue;

[T_I_T_A_N]

FuncAr[0] := AddBlue; так

[Пепел Феникса]

просто FuncAr[0] := AddBlue;
достаточно

[alexBlack]

Если сделать процедуры методами класса, то можно вызывать их просто по имени. По моему небольшая плата за универсальность. При добавлении методов к классу не придется заботиться о привязке имени к адресу и о количестве параметров.

{$APPTYPE CONSOLE}

uses ObjAuto;

type
   {$METHODINFO ON}
   TMyClass = class
   public
      procedure test4(N:integer; S:integer);
      //...

   end;
   {$METHODINFO OFF}

procedure TMyClass.test4(N:integer; S:integer);
begin
   writeln(N, ' ', S)
end;

//----------------------------------------------------
var C:TMyClass;
    M, M1:PMethodInfoHeader;
    V:Variant;
    k : array of integer;
    A : array of Variant;
    InfoEnd : Pointer;
    Count, i : integer;
begin
   C := TMyClass.Create;
   try
      M := GetMethodInfo(C, 'test4');
      if M = nil then {}; // неверное имя функции

      // Определение количества параметров
      M1 := M;
      Inc(Integer(M1), SizeOf(TMethodInfoHeader) -
          SizeOf(ShortString) + 1 +
          Length(M^.Name));
      Inc(Integer(M1), SizeOf(TReturnInfo));
      InfoEnd := Pointer(Integer(M) + M^.Len);
      Count := 0;
      while Integer(M1) < Integer(InfoEnd) do begin
         Inc(Count);
         Inc(Integer(M1), SizeOf(TParamInfo) - SizeOf(ShortString) + 1 +
              Length(PParamInfo(M1)^.Name));
      end;

      // Заполнение параметров (чтение из файла)
      SetLength(k, Count-1);
      SetLength(A, Count-1);
      // Первый параметр - ссылка на объект подставляется автоматически
      // в массиве A - только параметры, указанные в объявлении
      // k - порядковые номера параметров
      for i := 1 to Count - 1 do begin
         k[i-1] := i;
         A[i-1] := i+123;
      end;

      // Вызов метода
      ObjectInvoke(C, M, k, A);

   finally
      SetLength(k, 0);
      SetLength(A, 0);
      C.Free;
   end;
   readln;

[Alex Cones]

Дело в том, что модуль Classes не подключен - дюже много весит. Попробую сотворить колдовство из #4 и #7

[Пепел Феникса]

alexBlack, а вот мне это пригодится, ибо у меня строгий ООП.
надо мне Variant изучить, похоже очень полезен мне будет)