Integer in String Variabeln umwandeln

b43ck3r · Hält's aus hier Beiträge: 10

hoi leute,
schreibe ein programm zum zahlen raten, sprich man würfelt eine random zahl
zwischen 0 und 100 und muss sie mit 7 versuchen erraten, will das ganze mit inputbox lösen,
leider hab ich dann 2 verschiedene variabeltypen: integer und string...

hier mein programm bisher:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var zufallszahl : Integer;  eigenezahl : string;
begin
randomize;
zufallszahl := random(100) + 1;
eigenezahl := InputBox('Zahlen raten', 'Geben sie eine Zahl zwischen 0 und 100 ein', '');
if zufallszahl < eigenezahl then
eigenezahl := InputBox('Zahlen raten', 'Ihre Zahl ist zu Hoch', '')
else if zufallszahl > eigenezahl then
eigenezahl := InputBox('Zahlen raten', 'Ihre Zahl ist zu niedrig', '')
else if zufallszahl = eigenezahl then
eigenezahl := InputBox('Zahlen raten', 'Treffer!', '');
end;

danke schonmal für die hilfe...
wie gesagt, fehlermeldung wegen den variabeltypen...

AXMD · Verfasst: Di 15.02.05 20:14

1.) InputBox liefert keinen Integer zurück - sondern einen String - unwandeln also mit StrToInt
2.) Formatier bitte den Code, der is grauenvoll zu lesen

AXMD

Sprint · Beiträge: 849

Werfe mal einen Blick in die Delphi Hilfe: IntToStr, TryIntToStr, IntToStrDef, StrToInt, TryStrToInt, StrToIntDef.

_________________
Ciao, Sprint.

HaRaH · Beiträge: 65

versuch mal statt

markieren

Delphi-Quelltext

1:	if zufallszahl < eigenezahl then

markieren

Delphi-Quelltext

1:	if zufallszahl < StrtoInt(eigenezahl) then

b43ck3r · Hält's aus hier Beiträge: 10

danke an euch alle,
habs hinbekommen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);
var zufallszahl, i : Integer;  eigenezahl : string;
begin
randomize;
zufallszahl := random(100) + 1;

eigenezahl := InputBox('Zahlen raten', 'Geben sie eine Zahl zwischen 0 und 100 ein', '');

for i := 1 to 7 do
begin
if zufallszahl < StrtoInt(eigenezahl) then
eigenezahl := InputBox('Zahlen raten', 'Ihre Zahl ist zu Hoch', '')
  else if zufallszahl > StrtoInt(eigenezahl) then
  eigenezahl := InputBox('Zahlen raten', 'Ihre Zahl ist zu niedrig', '')
    else if zufallszahl = StrtoInt(eigenezahl) then
    eigenezahl := InputBox('Zahlen raten', 'Treffer!', '');
end;

showmessage('Game over du Vollidiot, probiers nochmal!')

end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme