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;