Label aus anderer Unit verwenden

[Fractal]

Servus,

bin gerade dabei mir ein kleines Quiz zu erstellen und hänge gerade bei der Anzeige der Ergebnissen.

Ich hab ne Unit wo die Frage angezeigt wird mit jeweils vier Buttons, siehe hier.
Nach zehn Fragen werden mir die Ergebnisse angezeigt.

Wenn ich jetzt auf bspw. den zweiten Button klick (Welcher die richtige Antwort hat), soll sich das Label, das anfangs die Caption "0" hat,
um jeweils 1 erhöhen. Sprich, wenn ich sechs mal auf den richtigen Button geklickt hab (Von zehn Fragen), soll statt der Null eben ne Sechs stehen.

Ich hab's bereits mal so ausprobiert:

Code:

procedure TFrage2.SpeedButton4Click(Sender: TObject);
begin
  n:=strtoint(Zahl.caption);
  n:=n+1;
  Zahl.caption:=inttostr(n);

Zahl ist das Label mit der Caption "0" auf der Ergebnisseite. Die Variable n: Integer; ist definiert und ich hab ebenfalls unter implementation
uses Unitx angegeben.. jedoch bekomm ich immer die Fehlermeldung, dass "Zahl" nicht gefunden wird. Wenn ich das Label Zahl in der selben Unit erstell,
wo sich die Frage befindet, erhöht sich das Ganze von 0 auf 1.

Gibts irgendwie ne Möglichkeit das Problem zu beheben oder gänzlich eine andere Methode? Hab mir diverse andere Threads bereits angeschaut (Buttonclick-Zähler),
jedoch kapier ich nicht ganz wie ich jene Zeilen bei mir einfügen soll, bzw. gehts bei mir ja darum, dass Label aus ner anderen Unit zu verwenden.

Grüße

[Sir Rufo]

Du musst dich dem Probelm andersherum nähern.

Also nicht, wie bekomme ich etwas in das Label rein, sondern wie kommt das Label (ok, eher die Form mit dem Label) an die Information, was es anzeigen soll.

[Popov]

Nun, das Caption von Label enthält keine Zahl, sondern einen String. Natürlich kann man eine Zahl auch als String speichern und andersherum. Dabei muss man natürlich immer aufpassen, dass in dem String mit der Zahl immer nur Zahlen-Buchstaben vorkommen.

Betrachten wir mal dein Code

Delphi-Quellcode:

procedure TFrage2.SpeedButton4Click(Sender: TObject);
begin
  n:=strtoint(Zahl.caption);
  n:=n+1;
  Zahl.caption:=inttostr(n);

StrToInt ist schon die richtige Funktion wenn man ganz sicher weiß, dass der String eine Zahl enthält. Ansonsten kann es zu Konvertierungsfehlern kommen. Unter Umständen ist dafür die Funktion StrToIntDef angebrachter. Es gibt dann keine Fehlermeldung, dafür wird ein Ersatzwert genommen.

Auch das n ist bei dir anscheinend global, obwohl du es zum Konvertieren nur lokal brauchst.

Delphi-Quellcode:

procedure TFrage2.SpeedButton4Click(Sender: TObject);
var
  n: Integer;
begin
  n := StrToIntDef(Zahl.caption, 0);
  n := n + 1;
  Zahl.caption := IntToStr(n);

Vor allem beim ersten Click, wenn Label.caption z.B. leer ist, wird der leere Caption String abgefangen und als Null interpretiert.

Willst du z.B. wissen ob es da einen Fehler gibt, kannst du in StrToIntDef einen Negativwert geben, z. B. so n := StrToIntDef(Zahl.caption, -99); . Schon kannst du erkennen ob es einen Konvertierungsfehler gab.

Als Anfänger (später eher nicht, aber als Anfänger finde ich das noch ok) könntest du den Tag von Label für die Zählung missbrauchen. Die Eigenschaft Tag hat keine sonstige Bedeutung, d. h. man kann damit machen was man will. Du könntest es zum zählen nutzen.

Delphi-Quellcode:

procedure TFrage2.SpeedButton4Click(Sender: TObject);
begin
  Zahl.Tag := Zahl.Tag + 1;
  Zahl.caption := IntToStr(Zahl.Tag);

[Helmi]

Zitat von Popov:

Willst du z.B. wissen ob es da einen Fehler gibt, kannst du in StrToIntDef einen Negativwert geben, z. B. so n := StrToIntDef(Zahl.caption, -99); . Schon kannst du erkennen ob es einen Konvertierungsfehler gab.

Dafür würd ich eher TryStrToInt verwenden

Delphi-Quellcode:

If TryStrToInt(Zahl.Caption, n) then
  //String konnte konvertiert werden
  n := n + 1; // oder inc(n)

[Popov]

Besser schon, aber der Tipp richtet sich an einen Anfänger der noch nicht alle Funktionen kennt (und kennen muss) und vor allem eine simple Möglichkeit den Fehler so schnell zu finden. Denn er nutzt ja einen Label und kein Edit. Ist die Fehlerquelle erst einmal lokalisiert, wird sie beseitigt und kommt nicht erneut vor. Somit ist eine permanente Überprüfung unnötig.

Arbeitet man mit Edit, so dass der Nutzer fehlerhafte Zahlen eingeben kann, kommt man um eine korrekte Überprüfung, wie z. B. mit deiner Funktion, nicht herum.

[himitsu]

Oder man geht davon dau, dass in dem Label immer eine "Zahl" steht und verwendet StrToInt.
Im Fehlerfall liefert das dann automatisch eine entsprechende Fehlermeldung und man sieht daß dort was nicht stimmt.

Bei StrToIntDef würde der Fehler ungehört einfach untergehen ... das ist dann wie ein try ... except {nix} end;