Eigene Prozedur : kein zugrifff auf eigenschaften von Label

[couver]

Moin!

ich würde gerne eine eigene Prozdedur schreiben um einen Code etwas aufzuräumen und vonnda aus die Caption eines label ändern aber Delphi sagt da plötzlicher kennt das label nicht aber in einer button click prozedur erkennt er es?

könnt ihr mir helfen?

Code:

procedure losAusgeben(var zufall: integer);
begin
  dec(leerCount);
  NameLbl.Caption := dinerRonnebergerCrew[zufall,0]; //Da spinnt er rum wegen dem Label
  dinerRonnebergerCrew[zufall,0]:= '';
end;

Danke!

[mkinzler]

Es handlet sich hier um eine freie Prozedur und nicht um eine Methode. Wandele diese in eine Methode der Form um, oder füge den Forminstanzvariablennamen als Suffix hinzu (wovon ich aber abraten würde!)

[couver]

Zitat von mkinzler:

Es handlet sich hier um eine freie Prozedur und nicht um eine Methode. Wandele diese in eine Methode der Form um, oder füge den Forminstanzvariablennamen als Suffix hinzu (wovon ich aber abraten würde!)

Ok, danke für die Schnelle antwort... leider weiß ich nicht genau wie ich daraus eine Methode mache? könntest du mir da vllt. weiterhelfen?

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

Delphi-Quellcode:

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

[KodeZwerg]

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

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.

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:

Delphi-Quellcode:

<TFormname> = class (TForm)
  ...
  procedure losAusgeben(var zufall: integer);
  ..
end;

Und dann bei der Implementation:

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!

[Andreas13]

Zitat von couver:

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

Du hast eben das Beste aller möglichen Delphi-Foren ausgewählt...
Willkommen im Club!
Gruß, Andreas

[Blup]

Noch ein anderer Hinweis zu var, out, const:
Diese verwendet man nur wenn der Parameter als Referenz übergeben werden soll.
Das ist in diesem Beispiel nicht sinnvoll.

[DieDolly]

Ich glauber ihr verwirrt ihn oder sie nur mit all den Vorschlägen. mkinzler Vorschlag iist das was gesucht ist.