Zahl in Text umwandln nur wie?

[Maik]

Hi leute

kann mir einer von euch sagen wie ich den Inhalt eines Labels z.b. Label2.caption
in ein Zahl um wandeln Kann um die Zahl dann mit einer anderen zu vergleichen.

[fkerber]

Hi!

Delphi-Quellcode:

zahl:=StrtoInt(Label2.Caption); //bei Ganzzahlen
zahl:=StrtoFloat(Label2.Caption); //bei Kommazahlen

Ciao fkerber

[Maik]

Hi ich würde gerne eine eine 2 Stellige Zahl umwandeln bekomme aber dann immer angezeigt
Undeclared Identifier

[Tpercon]

Dann hast du die variable wo der Cursor steht vergessen als Variable zudeklarieren und der Compiler weiß somit nichts damit anzufangen.
Wie sieht dein Code aus?

@Mods: Falsche Sparte

[sakura]

Zitat:

Zitat von Maik

Hi ich würde gerne eine eine 2 Stellige Zahl umwandeln bekomme aber dann immer angezeigt
Undeclared Identifier

Zeig mal den Code den Du hast?

...:cat:...

[himitsu]

Ich würde mal sagen, dass Zahl auch noch deklariert werden sollte:

Delphi-Quellcode:

Var Zahl: Integer;

Begin
  ...
  Zahl := StrtoInt(Label2.Caption); 
  ...
End;

[Minz]

dann kennt er Label2.caption net

oops sorry das war ja von dir himitsu :)

ich dachte das wäre der Code vom Fragesteller lol

[sakura]

Zitat:

Zitat von Tpercon

@Mods: Falsche Sparte

:shock: Danke :roll:

...:cat:...

[Mikko]

Zitat:

Zitat von Maik

Hi ich würde gerne eine eine 2 Stellige Zahl umwandeln bekomme aber dann immer angezeigt
Undeclared Identifier

Da mußt du deine Variable auch deklarieren.

Um bei fkerber's Beispiel von oben zu bleiben, wäre beim ersten Beispiel "zahl" z.B. integer und beim zweiten Beispiel meinetwegen extended.
Würde dann so aussehen:

Delphi-Quellcode:

//1. Beispiel:
  var zahl: integer;  

//2. Beispiel:
  var zahl: extended;

[tHeRiAn]

Hier mal ein BSP, weiss ja auch net wo genau dein Prob liegt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  zahl,zahl2:integer;
begin
  Label1.Caption:='100';
  zahl:=strtoint(Label1.Caption);
  zahl2:=strtoint(edit1.text);
  if zahl = zahl2 then close
end;
end.

[Maik]

Moin Leute hab hier mal meinen Quellcode gepostet
denn irgendwie klappt das immer noch nicht

Der soll das was in den Label*s steht in eine Zahl umwandeln und diese dann wie einer anderen Zahl die in den Editfenstern eingegeben wird vergleich und sollten die die 6 Zahlen der labels mit denen der Editfenster übereinstimmen soll eine Messagebox ausgegeben werden.

Delphi-Quellcode:

var I: Integer;
    X: Integer;
    code: Integer;
    code2: Integer;
    lottozahl1: Extended;
    lottozahl2: Extended;
    lottozahl3: Extended;
    lottozahl4: Extended;
    lottozahl5: Extended;
    lottozahl6: Extended;
    lottotext1: String;
    lottotext2: String;
    lottotext3: String;
    lottotext4: string;
    lottotext5: string;
    lottotext6: string;
    Zahlwert1: Integer;
    Zahlwert2: Integer;
    Zahlwert3: Integer;
    Zahlwert4: Integer;
    Zahlwert5: Integer;
    Zahlwert6: Integer;

    Zufallzahltext: String;

procedure TForm1.FormCreate(Sender: TObject);
begin
I:=0;
code2:=0;
end;

procedure Zufall;
begin
I := 0;
I := Random(49)+1;

end;

procedure Zahlenvergleich;
begin

If Lottozahl1=Zahlwert1, Lottozahl2=Zahlwert2, Lottozahl3=Zahlwert3,
Lottozahl4=Zahlwert4, Lottozahl5=Zahlwert5, Lottozahl6=Zahlwert6 then ShowMessage('Gewonnen!!! Sie haben 6 Richtige');
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
I:=0;
Zufall;
Str(I,Zufallzahltext);
ShowMessage(Zufallzahltext);
label2.caption:=Zufallzahltext;
Zahlwert1:=StrToInt(label2.caption)

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
I:=0;
Zufall;
Str(I,Zufallzahltext);
ShowMessage(Zufallzahltext);
label3.caption:=Zufallzahltext;
Zahlwert2:=StrToInt(label3.caption)
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
I:=0;
Zufall;
Str(I,Zufallzahltext);
ShowMessage(Zufallzahltext);
label4.caption:=Zufallzahltext;
Zahlwert3:=StrToInt(label4.caption)

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
I:=0;
Zufall;
Str(I,Zufallzahltext);
ShowMessage(Zufallzahltext);
label5.caption:=Zufallzahltext;
Zahlwert4:=StrToInt(label5.caption)
end;



procedure TForm1.Edit1Change(Sender: TObject);
begin
val(edit1.text,lottozahl1,code2);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
val(edit1.text,lottozahl2,code2);
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
val(edit1.text,lottozahl3,code2);
end;

procedure TForm1.Edit4Change(Sender: TObject);
begin
val(edit1.text,lottozahl4,code2);
end;

procedure TForm1.Edit5Change(Sender: TObject);
begin
val(edit1.text,lottozahl5,code2);
end;

procedure TForm1.Edit6Change(Sender: TObject);
begin
val(edit1.text,lottozahl6,code2);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
I:=0;
Zufall;
Str(I,Zufallzahltext);
ShowMessage(Zufallzahltext);
label6.caption:=Zufallzahltext;
Zahlwert5:=StrToInt(label6.caption)
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
I:=0;
Zufall;
Str(I,Zufallzahltext);
ShowMessage(Zufallzahltext);
label7.caption:=Zufallzahltext;
Zahlwert6:=StrToInt(label7.caption)
Zahlenvergleich;
end;



procedure TForm1.Button8Click(Sender: TObject);
begin
I:=0;
Label2.caption:='Warte';
Label3.caption:='Warte';
Label4.caption:='Warte';
Label5.caption:='Warte';
Label6.caption:='Warte';
Label7.caption:='Warte';
Zufallzahltext:='Warte';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
close;
end;

end.

[edit=Sharky]Delphi-Tags gesetzt, bitte demnächst selber machen ;-) Mfg, Sharky[/edit]

[himitsu]

Zitat:

Zitat von Maik

procedure Zahlenvergleich;
begin

If Lottozahl1=Zahlwert1, Lottozahl2=Zahlwert2, Lottozahl3=Zahlwert3,
Lottozahl4=Zahlwert4, Lottozahl5=Zahlwert5, Lottozahl6=Zahlwert6 then ShowMessage('Gewonnen!!! Sie haben 6 Richtige');
end;

:gruebel:

Delphi-Quellcode:

Procedure Zahlenvergleich;
  Begin
   If (Lottozahl1 = Zahlwert1) and (Lottozahl2 = Zahlwert2) and (Lottozahl3 = Zahlwert3) and ( Lottozahl4 = Zahlwert4) and (Lottozahl5 = Zahlwert5) and (Lottozahl6 = Zahlwert6 Then ShowMessage('Gewonnen!!! Sie haben 6 Richtige');
  End;

Ach ja, Für Quellcodes gibt es diesen netten [Delphi]-Tag:

Zitat:

[delphi]Der QuellCode[/delphi]

[Nikolas]

Ich vermisse noch ein

Delphi-Quellcode:

randomize;

Wenn du jetzt Zufall; mehrmals aufrufst, wirst du immer die selbe 'Zufalls'zahl bekommen.