![]() |
Zahl in Text umwandln nur wie?
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. |
Re: Zahl in Text umwandln nur wie?
Hi!
Delphi-Quellcode:
Ciao fkerber
zahl:=StrtoInt(Label2.Caption); //bei Ganzzahlen
zahl:=StrtoFloat(Label2.Caption); //bei Kommazahlen |
Re: Zahl in Text umwandln nur wie?
Hi ich würde gerne eine eine 2 Stellige Zahl umwandeln bekomme aber dann immer angezeigt
Undeclared Identifier |
Re: Zahl in Text umwandln nur wie?
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 |
Re: Zahl in Text umwandln nur wie?
Zitat:
...:cat:... |
Re: Zahl in Text umwandln nur wie?
Ich würde mal sagen, dass Zahl auch noch deklariert werden sollte:
Delphi-Quellcode:
Var Zahl: Integer;
Begin ... Zahl := StrtoInt(Label2.Caption); ... End; |
Re: Zahl in Text umwandln nur wie?
dann kennt er Label2.caption net
oops sorry das war ja von dir himitsu :) ich dachte das wäre der Code vom Fragesteller lol |
Re: Zahl in Text umwandln nur wie?
Zitat:
...:cat:... |
Re: Zahl in Text umwandln nur wie?
Zitat:
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; |
Re: Zahl in Text umwandln nur wie?
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. |
Re: Zahl in Text umwandln nur wie?
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:
[edit=Sharky]Delphi-Tags gesetzt, bitte demnächst selber machen ;-) Mfg, Sharky[/edit]
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. |
Re: Zahl in Text umwandln nur wie?
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
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:
|
Re: Zahl in Text umwandln nur wie?
Ich vermisse noch ein
Delphi-Quellcode:
Wenn du jetzt Zufall; mehrmals aufrufst, wirst du immer die selbe 'Zufalls'zahl bekommen.
randomize;
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:55 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz