Zahl in Text umwandln nur wie?

[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 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;

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 randomize; Wenn du jetzt Zufall; mehrmals aufrufst, wirst du immer die selbe 'Zufalls'zahl bekommen.