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)"

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

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

Das würde ich gerne verstehen was genau einst du damit?

[couver]

Zitat von DieDolly:

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

Danke da hast du recht! (ich bin ein er haha) Ich erne gerade pascal in der 12te im Informatik Kurs deswegen bin ich noch ein wenig verloren: ABer veilen Dank ewuch allen!