eigene Proceduren und Functionen???

Crazy K · Beiträge: 16

Hi Ich habe ein kleines Problem. Ich will eine eigene Procedur erstellen, die einfach ein bisschen code ausführt und gut ist gewesen! :-)

also habe ich folgendes gemacht:

Unter Private:

markieren

Quelltext

1:	procedure NeuZeichnen;

und dann weiter unten:

markieren

Quelltext

1:
2:
3:
4:

procedure NeuZeichnen;
begin
blabla
end;

Das funzt aber nicht. Was mache ich falsch??

jensenwb · Beiträge: 36

Ich bin zwar Anfänger, aber wenn ich eine Procedure schreibe mache ich das so.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Haupt: THaupt;
implementation

uses Unit1, Unit3;

{$R *.DFM}

Procedure ueberstunden;
Begin
blablabla
end;

im Private Breich trage ich nichts ein.

Du mußt bloß aufpassen das die Procedure vor dem eigentlichen Aufruf der Procedure ist.

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Du fügst die Procedure der Formularklasse hinzu, wenn du die im Private Bereich deklarierst.
Also musst du auch schreiben

markieren

Quelltext

1:	procedure TForm123.MachWas

Ehemaliges Mitglied Erhaltene Danke: 1

jensenwb hat folgendes geschrieben:

im Private Breich trage ich nichts ein.

Wenn du auf Objekte von deiner Form zu greifen willst, dann ist es aber besser deine Prozedur zu einer Methode von deiner Form-Klasse zu machen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme