Fehler: Inkompatible Typen: 'string' und 'Integer'

[Nashy]

Hallo,

ich schreibe gerade an einem Programm, dass in einem Editfeld Zufallszahlen ausgibt. Nach 5 Sekunden verschwindet das Editfeld und der Spieler muss in ein anderes Editfeld die ausgegebene Zahl Eintippen und auf Fertig klicken. Das Programm kontrolliert ob EditAusgabe=Edit1. Sollte die Eingabe nicht stimmen, möchte ich, dass dem Spieler im LabelAusgabe angezeigt wird: Du hast noch y Leben. Dies habe ich wie folgt programmiert:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
begin

if y=0 then
begin
  LabelAusgabe.Text := 'Verloren! Keine Leben mehr!' ;
  ButtonGo.Text := 'Nochmal spielen'      ;
  Timer2.Enabled := false;
  EditAusgabe.Text := '';

end
else
begin
  y:= y-1   ;
  Timer2.Enabled:= false;
  InttoStr (y);
  LabelAusgabe.Text:= 'Du hast noch' + y + 'Leben'

end;
end;

y hab ich als globale Variable definiert mit y: integer=3;

Wenn ich versuche das Programm abspielen zu lassen wird mir der Fehler angezeigt, das in der Zeile
LabelAusgabe.Text:= 'Du hast noch' + y + 'Leben' Inkompatible Typen 'String' und 'Integer' vorkommen. Aber ich habe y ja zuvor mit IntToStr in ein String umgewandelt und somit in dieser Zeile überhaupt kein Integer mehr..

Kann mir jemand sagen, wo das Problem ist, bzw. wie ich es beheben kann?

Vielen Dank!

[Aviator]

IntToStr() gibt immer einen String zurück. Das heißt, dass du das Ergebnis einer Variable zuweisen musst, die vom Typ string ist.

Delphi-Quellcode:

var
  MyStr: string;
begin
  y := 3;
  MyStr := IntToStr(y);
  LabelAusgabe.Text:= 'Du hast noch ' + MyStr + ' Leben';
end;

Oder alternativ noch einfacher, da du nicht zwingend eine Zuweisung benötigst:

Delphi-Quellcode:

begin
  y := 3;
  LabelAusgabe.Text:= 'Du hast noch ' + IntToStr(y) + ' Leben';
end;

Und falls es wirklich ein Label ist, dann verwende bitte die Eigenschaft LabelAusgabe.Caption , denn Text gibt es bei einem Label nicht.

[Nashy]

Hallo,

Danke für deine schnelle Antwort!

Stimmt, das habe ich übersehen.

Mein Delphi zeigt kein Problem mit der Eigenschaft Label.Text.. es funktioniert auch (ich benutze dieses Label auch, um Richtig/Falsch anzeigen zu lassen und das Funktioniert auch wenn ich es ablaufen lasse problemlos.

Edit: Habe eben nach der Eigenschaft Caption geschaut, diese gibt es bei meinem Label nicht. (Fehler: TLabel enthält kein Element Namens Caption)

[Sir Rufo]

Ja, es wäre hilfreich, wenn man angibt mit welcher Delphi-Version und mit welchem Framework (VCL oder FMX) man arbeitet, denn da gibt es teils erhebliche Unterschiede.

Ach ja, wir können weder auf deinen Rechner noch in deinen Kopf schauen

[Dejan Vu]

Ach, und ob 'LabelText' ein TLabel ist oder nicht, wäre vielleicht auch noch interessant. Nicht überall, wo Label draufsteht, ist auch Label drin.

[Sir Rufo]

Zitat von Dejan Vu:

Ach, und ob 'LabelText' ein TLabel ist oder nicht, wäre vielleicht auch noch interessant. Nicht überall, wo Label draufsteht, ist auch Label drin.

Jupp, und dafür schuf man eine Dokumentation auf die man verweisen kann
FMX.StdCtrls.TLabel oder VCL.StdCtrls.TLabel
Im Zweifelsfall gibt man eben an, was man meint, dann wird es - seltsamerweise - klarer