Integer and String Fehler

Zlatan · Beiträge: 175

Könnte jemand diesen Quelltext korrigieren?

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 Zahl : Integer;
begin
 Zahl:= random(5)+1;
 Randomize;
 Panel2.Caption:= Zahl;

 if Zahl =1
 then shape6.Left:= shape6.Left +10
 else if Zahl=2
 then shape6.Left:= shape6.Left +20
 else if Zahl=3
 then shape6.Left:= shape6.Left +30
 else if Zahl=4
 then shape6.Left:= shape6.Left +40
 else if Zahl=5
 then shape6.Left:= shape6.Left +50
 else shape6.Left:= shape6.Left +60
end;

end.

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Do 03.02.2011 um 15:28

Bergmann89 · Verfasst: Do 03.02.11 11:52

Hey,

Zahlen kann man nicht an einen String übergeben, dazu muss man sie erst mit IntToStr in einen String umwandeln:

markieren

Delphi-Quelltext

1:	Panel2.Caption := IntToStr(Zahl);

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

elundril · Verfasst: Do 03.02.11 11:53

Sag mal, haust du mit deinem Kopf auf die Tastatur und gibst uns das ergebnis dann zum verbessern? das ist der zweite thread mit dem gleichen text nur halt mit anderem Source-Code. Deswegen ab jetzt von mir nur noch Hilfe zu Selbsthilfe:

Christians Crashkurs
Delphi-Wikibook

Oder du sagst uns wo genau das Problem ist und warum es so sein könnte.

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

MaxWurzel · Beiträge: 77 Erhaltene Danke: 10

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var Zahl : Integer;
begin 
  Zahl:= random(6)+1; 
  Panel2.Caption:= inttostr(Zahl);
  shape6.Left:= shape6.Left + zahl * 10; 
end;

randomize im formcreate aufrufen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme