![]() |
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 01:43 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