Thema: Delphi Procedure einbinden

Einzelnen Beitrag anzeigen

BenjaminH

Registriert seit: 14. Okt 2004
Ort: Freiburg im Breisgau
713 Beiträge
 
Turbo Delphi für Win32
 
#7

Re: Procedure einbinden

  Alt 13. Mär 2005, 18:49
Ja, prozeduren, die nicht zu einer Klasse (wie in deinem Beispiel TForm1) gehören, sind erst ab der Stelle im Code gültig, wo sie stehen.
Du kannst die Prozedur Button3Click von überall her ausführen, obwohl sie ganz unten steht.
Das liegt daran, das sie hier zu finden ist:
Delphi-Quellcode:
 TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);

private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
Würdest du die Prozedur LabelLeer so hineinschreiben würde es auch funktionieren:
Delphi-Quellcode:
 TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);

private
{ Private-Deklarationen }
procedure LabelLeer;
public
{ Public-Deklarationen }
end;
Benjamin
  Mit Zitat antworten Zitat