Prozedurname variabel ansteuern

[Whistler]

Guten Abend,

ein Button "Weiter" soll bei Klick "Prozedur1" aufrufen. Klickt man erneut, "Prozedur2", dann "Prozedur3" und so weiter! Irgendwie stehe ich gerade auf dem Schlauch, ich weiß nicht wie ich das realisieren sollte.

Als WorkARound mache ich atm folgendes:

Delphi-Quellcode:

// In Jeder Prozedur wird die Variable "aktuelle_prozedur" (Type Integer) um "1" erhöht
aktuelle_prozedur := aktuelle_prozedur + 1;
// Nun prüft ich beim "OnClick" Event des Buttons den Wert von "aktuelle_prozedur" und rufe entsprechende Prozedur auf
if aktuelle_prozedur = 1 then Prozedur1;
if aktuelle_prozedur = 2 then Prozedur2;
if aktuelle_prozedur = 3 then Prozedur3;

Nachteil:
Ich habe ziemlich viele Prozeduren und es kommen und gehen oft welche. Da habe ich keine Lust immer neue "IF-Schleifen" zu schreiben (ja, ist eigentlich keine Arbeit...) bzw. welche weg zunehmen.

[Nothine]

mit nem array of procedure vielleicht?

Delphi-Quellcode:

var AoP: array[1..3] of procedure(Sender: TObject)

dann müsstest du allerdings die prozeduren auch irgendwo am start einmal alle zuweisen...

[Boombuler]

Hi

vielleicht hilft dir das hier weiter:

Tipp von SwissDelphiCenter

MfG
Boombuler

[eddy]

Hallo Whissi,

nutze doch einfach Button.Tag

Am Anfang definieren und bei jedem Klick nach Wunsch ändern.

Code:

case button.tag of
  1: begin
       proz1; 
       button.tag := 2;
     end;
  2: begin
       proz2; 
       button.tag := 3;
     end;
  3: begin
       proz3; 
       button.tag := 1;
     end;
end;

mfg
eddy

[roderich]

hallo Whissi,

darf man fragen, was Du damit vorhast ?
Vielleicht kann man es auch anders (besser ?!) implementieren....

Roderich

[Whistler]

Ist nur ein simpler Dialog. Der User wird was gefragt, klickt auf Weiter und er wird wieder was gefragt.

Aber ich glaube es ist wohl besser, es über die Variable "Schritt" ect. zu machen und dann eben IF Anfragen einzubinden "If Schritt = 1 then Prozedur1;" usw... denn es werden je nach Auswahl mal Schritte bei Weiter übersprungen und und und...

[Blutiger Anfänger]

Alle können die selbe Methode haben die dann eben entsprechend des Tag-Werts was anderes tut.