Wywołanie procedury na podstawie zawartości zmiennej

Witam!

Jest sobie kod:

program jakisprogram;

uses a,b,c,...,z;

Var
  zmienna:string;

Procedure pierwsza;
Begin
  //kod
End;

Procedure druga;
Begin
  //kod
End;

Begin
  zmienna:='pierwsza';
  zmienna; //powinno wywołać procedurę "pierwsza"
  zmienna:='druga';
  zmienna; //powinno wywołać procedurę "druga"
End.

Pytanie brzmi następująco: czy da się bez większego kombinowania, mieszania w to delphi oraz "ficzerów" z lazarusa, uruchomić procedurę której nazwa jest zawarta w zmiennej?

Chyba mam dejavu. Przecież niedawno @Integers pytał tutaj o coś identycznego w Delphi. Poszukaj sobie wątków w tym dziale, których jest On autorem.

Sharkson napisał(a):

Pytanie brzmi następująco: czy da się bez większego kombinowania, mieszania w to delphi oraz "ficzerów" z lazarusa, uruchomić procedurę której nazwa jest zawarta w zmiennej?

można np użyć Tablice asocjacyjne w Delphi by ztablicować wskaźniki na procedury i wywoływać je w zależności od nazwy.

Sharkson napisał(a):

Sharkson napisał(a):

Pytanie brzmi następująco: czy da się bez większego kombinowania, mieszania w to delphi oraz "ficzerów" z lazarusa, uruchomić procedurę której nazwa jest zawarta w zmiennej?

Odpowiedź brzmi NIE

Ciągle ktoś o takie coś pyta i w przypadku Twojego programu, odpowiedź brzmi nie; Jeżeli chciałbyć uruchomić metodę należącą do rekordu lub klasy - można to wykonać za pomocą RTTI; Zobacz na poniższe linki:

• http://stackoverflow.com/questions/10192534/delphi-invoke-record-method-per-name
• http://stackoverflow.com/questions/4186458/delphi-call-a-function-whose-name-is-stored-in-a-string
  Oczywiście materiałów jest więcej, a powyższe to pierwsze lepsze z Google.

Dziękuję za odpowiedzi. A jest może w takim razie możliwość przekazania pewnej funkcji informacji jaką procedurę uruchomić? Jeśli nie w postaci zmiennej to może bezpośrednio? Wcześniej rzeźbiłem w php'ie. Tak, wiem, że to dwa różne światy, wiele przyzwyczajeń zostało.

Ty chyba chcesz wywoływać funkcję przez tzw. nazwę,
co występuje chyba w językach 4-tgo poziomu, np. cliper, czy inne takie... siki weroniki.

W językach uniwersalnych raczej nie ma czegoś takiego, chociaż akurat free pascal ma metody dynamiczne przez numery, oraz nazwy - stringi...

Sharkson napisał(a)

A jest może w takim razie możliwość przekazania pewnej funkcji informacji jaką procedurę uruchomić?

Tak - wystarczy wskaźnik na taką procedurę i znajomość ewentualnych parametrów i ich typów; Przykład masz poniżej:

type
  TNumberProc = procedure(ANumber: Integer);

  procedure Even(ANumber: Integer);
  begin
    Write('Number ', ANumber, ' is even');
  end;

  procedure Odd(ANumber: Integer);
  begin
    Write('Number ', ANumber, ' is odd');
  end;

  procedure ShowNumberInfo(ANumberProc: TNumberProc; ANumber: Integer);
  begin
    ANumberProc(ANumber);
  end;

var
  spRandom: TNumberProc;
  intRandom: Integer;
begin
  Randomize();
  intRandom := Random(1000);

  if intRandom and 1 = 0 then
    spRandom := @Even
  else
    spRandom := @Odd;

  ShowNumberInfo(spRandom, intRandom);
  ReadLn;
end.

Wskaźnik spRandom zostaje ustawiony na odpowiednią procedurę, według parzystości wylosowanej liczby; Następnie zostaje on przekazany wraz ze zmienną intRandom do procedury ShowNumberInfo, w której to procedura zostaje wywołana i do której zostaje przekazany parametr ANumber;

Ewentualnie możesz posłużyć się tablicą ze wskaźnikami na procedury, np.:

type
  TNumberProc = procedure(ANumber: Integer);

  procedure Even(ANumber: Integer);
  begin
    Write('Number ', ANumber, ' is even');
  end;

  procedure Odd(ANumber: Integer);
  begin
    Write('Number ', ANumber, ' is odd');
  end;

  procedure ShowNumberInfo(ANumberProc: TNumberProc; ANumber: Integer);
  begin
    ANumberProc(ANumber);
  end;

const
  NUMBER_PROCS: array [Boolean] of TNumberProc = (@Odd, @Even);
var
  spRandom: TNumberProc;
  intRandom: Integer;
begin
  Randomize();

  intRandom := Random(1000);
  spRandom := NUMBER_PROCS[intRandom and 1 = 0];

  ShowNumberInfo(spRandom, intRandom);
  ReadLn;
end.