Unter einer Procedure eine andere Procedur aufrufen

[EMS]

Hallo
Wie oben schon geschrieben.
Ich habe nun eine Prozedure fertig die funktioniert.
Diese möchte ich nun zusätzlich in einer anderen aufrufen.
wie muss ich das programmieren?

procedure TForm1.Button2Click(Sender: TObject);
begin
...
...
procedure TForm1.Button3Click(Sender: TObject);
...
...
...
end;

funktioniert nicht?
Was mach ich hier falsch?

[DeddyH]

Die Methode heißt Button3Click und hat einen TObject-Parameter, und so muss sie auch aufgerufen werden.

[Popov]

Da gibt es zwei Möglichkeiten.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
...
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Button2Click(nil);
end;

oder

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
...
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Button2Click(Sender);
end;

Sender ist das Objekt von der die Prozedur aufgerufen hat. Bei Button3Click wahrscheinlich Button3. Das kann man ganz sicher erkennen mit

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  if Sender = Button3 then ShowMessage('Button3 wurde geklickt');

Somit ist die zweite Methode allgemein nicht falsch. Wenn es aber keine Rolle spielt, dann einfach nil als Parameter mitschicken.

[terence14]

Ich verwende folgende Möglichkeiten:

Delphi-Quellcode:

procedure TForm1._procedure1(Sender: TObject);
begin
// mach was
end;

procedure TForm1._procedure2;
begin
//mach was
end;

procedure _procedure3;
begin
//mach was
end;

procedure TForm1.bButton1Click(Sender: TObject);
begin
_procedure1(Sender);

_procedure2;

_procedure3;
end;

MfG,
terence

[delnu]

Zitat:

procedure TForm1.Button2Click(Sender: TObject);
begin
...
...
procedure TForm1.Button3Click(Sender: TObject);
...
...
...
end;

Was daran falsch ist ? Nun, vor der zweiten Prozedur fehlt das "end" der ersten, und zu Beginn der zweiten das "begin" !

Um lokale Funktionen/Prozeduren innnerhalb einer anderen unterzubringen, kann dies z.B. so aussehen :

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);

procedure local_proc;
begin
end;

fuction local_func: boolean;
begin
 local_func:=true;
end;

begin { Hier beginnt Button2Click }
 if local_func then local_proc; // Wenn das Ergebnis von "local_func" true ist, "local_proc" aufrufen 
end;

[Luckie]

Da jetzt die Lösung klar ist, noch etwas zum Programmierstil. Ich halte das für schlechten Programmierstil. Zum einem wird da etwas in die GUI gewurschtelt, was da nicht hingehört und zum anderen leidet dabei die Übersichtlichkeit. Besser wäre es die Routine auszulagern in eine separate Routine und diese dann von beiden Ereignissen aufzurufen.

[Popov]

Ob schlechter Programmierstil, das ist eine Sache für sich, aber es wird irgendwann unpraktisch. Denn nicht selten überlegt man es sich anders und was mal in Prozedur für Button1 lag, ist plötzlich etwas fehl am Platz, wenn man es sich anders überlegt und den Button entfernt, weil man z. B. den Aufruf jetzt über Menü durchführt. Und plötzlich steht da Button1Click und es gibt keinen Button.

Delphi-Quellcode:

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure ButtonClick(Sender: TObject);
  end;

...

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Sender = Button1 then
    ShowMessage('Hallo Welt!');

  if Sender = Button2 then
    ShowMessage('Hallo Galaxis!');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ButtonClick(Sender);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ButtonClick(Sender);
end;