Unter einer Procedure eine andere Procedur aufrufen

[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;