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:

Zitat von mkinzler (Beitrag 1483927)

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:

Zitat von KodeZwerg (Beitrag 1483935)

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:

Zitat von Blup (Beitrag 1483937)

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:

Zitat von DieDolly (Beitrag 1483942)

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!

[couver]

Zitat:

Zitat von mkinzler (Beitrag 1483932)

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:

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

[DeddyH]

Zitat:

Zitat von Andreas13 (Beitrag 1483953)

Du hast eben das Beste aller möglichen Delphi-Foren ausgewählt...

So viele sind es ja auch nicht mehr :wink:

[Blup]

Zitat:

Zitat von couver (Beitrag 1483946)

Zitat:

Zitat von Blup (Beitrag 1483937)

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?

Was zum Lesen: http://docwiki.embarcadero.com/RADSt...meter_(Delphi)

[bernau]

Zitat:

Zitat von Blup (Beitrag 1483937)

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.

Und warum ist es in diesem Falle nicht sinnvoll? Er macht den Code nicht unbedingt schneller. Aber auch nicht langsammer.

Ich habe mal einen Blogpost gelesen, den ich leider nicht mehr zur Hand habe. Dieser hat sehr eindrucksvoll beschrieben, weshalb man const-Parameter den value(standard)-Parametern immer vorziehen sollte. Nicht unbedingt, weil der Code "jetzt" dadurch schneller wird, sondern weil zukünftige Compilerversionen den Code schneller ausführen "könnten".

Ich habe mir angewöhnt "alle" Funktionsparameter mit const zu deklarieren, sofern nicht var oder out benötigt wird.

Zitat:

Zitat von Blup (Beitrag 1483966)

Was zum Lesen: http://docwiki.embarcadero.com/RADSt...meter_(Delphi)

Wo steht dort, dass const-Parameter für den angegebenen Fall nicht sinnvoll sind?

[Blup]

Der Hinweis bezog sich auf Code, in dem der Parameter nicht mit "const" sondern mit "var" übergeben wurde.

"const" kann (im Normalfall) tatsächlich nicht schaden, bringt aber nur bei komplexen Parametern(z.B. Record, String, Interface, Array) tatsächlich Vorteile.
Wer nicht unbedingt hochoptimierten Code benötigt, kann darauf verzichten.

"var" bedeuted, der als Parameter übergebenen Variablen wird innerhalb der Prozedur gegebenen Falls ein neuer Wert zugewiesen.
Der geänderte Wert bleibt auch nach Verlassen der Prozedur in der Variable erhalten und wirkt sich ewentuell auf den weiteren Programmablauf aus.
Da der Code so ein Verhalten nicht vorsieht, ist die Kennzeichnung verwirrend.

[bernau]

Zitat:

Zitat von Blup (Beitrag 1484788)

Der Hinweis bezog sich auf Code, in dem der Parameter nicht mit "const" sondern mit "var" übergeben wurde.

Ahh. Dann habe ich dich wohl falsch verstanden. Ich dachte deine Antwort (#6) bezog sich auf den Beitrag von Codezwerg (#5) und nicht auf den des TE (#1).