Eigene Prozedur : kein zugrifff auf eigenschaften von Label

**mkinzler**

Im Interface-Teil in der Dekaration der Formularklasse ergänzen:

Delphi-Quellcode:

			<TFormname> = class (TForm)

  ...

  procedure losAusgeben(var zufall: integer);

  ..

end;

Und dann bei der Implementation:

markieren

Delphi-Quellcode:

			procedure <TFormname>.losAusgeben(var zufall: integer);

...

**KodeZwerg**

Oder du nimmst ein label im aufruf entgegen.
Dann ist es universeller.

markieren

Delphi-Quellcode:

			procedure MachWas(const zahl: integer; const Label: TLabel);

Begin

  Label.Caption := IntToStr(zahl);

End;

...

// aufruf dann so irgendwo:

MachWas(1, CrewLabel);

Ungetestet aber sollte funzen.

Ps: beim aufruf muss der scope passen.
Also aus irgend einer 'Form1.blabla' methode.
Sonst "Machwas(9, Form1.CrewLabel)"

**couver**

Zitat von KodeZwerg:

Oder du nimmst ein label im aufruf entgegen.
Dann ist es universeller.

markieren

Delphi-Quellcode:

			procedure MachWas(const zahl: integer; const Label: TLabel);

Begin

  Label.Caption := IntToStr(zahl);

End;

...

// aufruf dann so irgendwo:

MachWas(1, CrewLabel);

Ungetestet aber sollte funzen.

Ps: beim aufruf muss der scope passen.
Also aus irgend einer 'Form1.blabla' methode.
Sonst "Machwas(9, Form1.CrewLabel)"

Also damit kann ich jetzt leider nix anfangen.

**couver**

Zitat von mkinzler:

Im Interface-Teil in der Dekaration der Formularklasse ergänzen:

markieren

Delphi-Quellcode:

			<TFormname> = class (TForm)

  ...

  procedure losAusgeben(var zufall: integer);

  ..

end;

Und dann bei der Implementation:

markieren

Delphi-Quellcode:

			procedure <TFormname>.losAusgeben(var zufall: integer);

...

DANKESCHÖN!!! Das funktioniert jetzt Einwandfrei! Und ich habe noch was gelernt an perfekt.

VIelen Dank für die Hilfe
Schöne Grüße!

P.S: Mein erster Forums eintarg überhaupt iwo und schon direkt so positive erfahrung: SCHÖÖÖN!