Vereinfachung von Procedurenaufrufe

[SirThornberry]

Das ganze geht zu vereinfachen. Dazu MUSS ki_status_0 bis ki_status_K jedoch im Published definiert sein (also nicht im Private, public oder protected).
Anschließend geht folgendes:

Delphi-Quellcode:

type
  TObjProc = procedure of Object;
var LMethod: TObjProc;
begin
  @LMethod := MethodAddress('ki_status_' + ki_status[1]);
  if Assigned(LMethod) then
    LMethod;

[Premutos]

Zitat:

Zitat von Khabarakh

Meinst du Chimairas Version? Dort musst du nur den Prozedurenzeigertyp ändern:

Delphi-Quellcode:

[...] of procedure(sqw: string);

ja soweit war ich :)
aber was ich meinte ist das ich mehrere proceduren hab mit verschiedenen parametern

zb.

procedure dweji(jij:integer);
procedure dwedw;
procedure hdueh(jijws.pchar; plop:boolean; suhu:string);
procedure ddwdwe(jijided:string):string;

wie funktioniert das dann?

[Khabarakh]

Wie willst du dann die Parameter übergeben?

Delphi-Quellcode:

Methods[i](myString, myInt);

oder Ähnliches kann ja dann nicht mehr funktionieren. Aber auch wenn du die Parameter z.B. in einem dynamischen Array hälst, ist der Prozeduraufruf mit Delphi AFAIK nicht möglich. Unter .NET mit Reflection wäre dies allerdings ein Leichtes :wink: .

[Premutos]

Zitat:

Zitat von Khabarakh

Wie willst du dann die Parameter übergeben?

Delphi-Quellcode:

Methods[i](myString, myInt);

oder Ähnliches kann ja dann nicht mehr funktionieren. Aber auch wenn du die Parameter z.B. in einem dynamischen Array hälst, ist der Prozeduraufruf mit Delphi AFAIK nicht möglich. Unter .NET mit Reflection wäre dies allerdings ein Leichtes :wink: .

hmm .net geht in meine fall leider nicht, sonst gibt es keine möglichkeit ?