Label aus anderer Unit verwenden

[himitsu]

Dein Richtig1.Show; heißt in Wirklichkeit Self.Richtig1.Show; . (Delphi macht das Self innerhalb von Methoden automatisch implizit davor)

Also, du gehst da über die Instanz des Fensters auf die Komponenten, welche darin liegen, bzw. eigentlich auf die Felder (Variablen), welche publisched in der Klasse deklariert sind.
Will man auf eine andere Form, dann braucht man eine Variable, in welcher die Instanz zu dieser Form abgelegt ist und kann daber dann auch auf deren Eigenschaften zugreifen.

Zitat von Fractal:

(Und ja, ihr seht schon, dass ich >9000 Units hab, aber wills für den Anfang erstmal so probieren.)

Dann simmt (A) mit dem Design deiner Anwendung grundsätzlich etwas nicht. (ich wette viele der Fenster sind im Prinzip "gleich" aufgebaut und unterscheiden sich nur im "Inhalt" weniger Dinge)
und (B) solltest du gerade dann deine Units, Klassen, Variablen und vorallem Komponenten aussagefähig benennen damit man schon am Namen erkennt um was es sich handelt.

[Popov]

@Fractal

Also der Code ist jetzt richtig, womit wir zu dem kommen was evtl. Sir Rufo meinte: was ist seine Intention (oder so in der Art)? Oder anders gefragt - hat die Funktion Zugriff auf Label Zahl?

Laut Bild ist es die "Unit3", und das Fenster hat den Namen "Ergebnisse", Klasse "TErgebnisse". Die Prozedur mit der Rechnung ist in der Klasse "TFrage1". Daraus folgt - das Label "Zahl" ist auf dem Formular "Ergebnisse" und wird aus "TFrage1.SpeedButton2Click" aufgerufen.

Ich weiß zwar nicht wie das intern aussieht, aber "Ergebnisse.Zahl.Caption := ..." könnte die Lösung sein.

[Fractal]

Zitat von Popov:

Ich weiß zwar nicht wie das intern aussieht, aber "Ergebnisse.Zahl.Caption := ..." könnte die Lösung sein.

Damit hats funktioniert, danke .

(Um den Counter wieder auf 0 zu setzen):

Code:

procedure TErgebnisse.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  n := StrToIntDef(Ergebnisse.Zahl.caption, 0);
  n := 0;
  Ergebnisse.Zahl.caption := IntToStr(n);
end;

[Popov]

Delphi-Quellcode:

procedure TErgebnisse.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  Ergebnisse.Zahl.caption := IntToStr(0);
end;

Würde auch gehen.

Delphi-Quellcode:

procedure TErgebnisse.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  Ergebnisse.Zahl.caption := '0';
end;

Auch.

Delphi-Quellcode:

procedure TErgebnisse.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  Ergebnisse.Zahl.caption := '';
end;

Würde aber auch gehen, wegen StrToIntDef(n, 0);

[himitsu]

oder

Delphi-Quellcode:

procedure TErgebnisse.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  //n := StrToIntDef(Ergebnisse.Zahl.caption, 0);
  n := 0;
  Ergebnisse.Zahl.caption := IntToStr(n);
end;

Der Compiler hat aber bestimmt auch erwähnt, daß n nicht verwendet wurde. (der Wert der ersten Zuweisung)
Vorallem, wozu sollte der alte Wert erst ausgelesen werden, wenn dann sowieso ein neuer/anderer Wert zugewiesen wird?

ABER, WO um Himmels Willen ist n deklariert?

[bcvs]

Ich würde das sowieso etwas anders angehen:

Merke dir eine Grundregel: Visuelle Controls dienen nur zur Anzeige, nicht zum Speichern von Daten. In deinem Fall wird die aktuelle Anzahll der richtigen Antworten aber nur als Caption im Label Zahl gespeichert.

Überlege dir eine geeignete Datenstruktur für dein Quiz z.B.

Delphi-Quellcode:

var 
QuizErgebnisse = record
  //.. ganz viele nützliche Felder
  AnzahlRichtig : integer;
end;

Dieser Record muss natürlich beim Programmstart oder vor einem neuen Spiel sinnvoll initialisiert werden.

Dein Form TErgebnisse erweiterst du um eine Methode, die die Anzahl derRichtigen Fragen entgegennimmt und irgendwie darstellt. Dabei kannst du dir auch die vielen einzelnen übereinanderliegenden Labels sparen:

Delphi-Quellcode:

procedure TErgebnisse.ShowErgebnis(AnzahlRichtig:integer);
begin
  Label.Caption:='Du hast '+IntToStr(AnzahlRichtig)+' / 10 Fragen richtig beantwortet!';
end;

In TFrage steht dann nur:

Delphi-Quellcode:

procedure TFrage1.SpeedButton2Click(Sender : TObject);
begin
  inc(QuizErgebnisse.AnzahlRichtig);
  Ergebnisse.ShowErgebnis(QuizErgebnisse.AnzahlRichtig);
end;

TFrage1 muss jetzt gar nicht wissen, wie TErgebnisse das Ergebnis anzeigt. Wenn du dafür später mal ein ganz anderes Control als ein Label nehmen wilst, brauchst du nur TErgebnisse.ShowErgebnis zu ändern.