Kann mir jemand bei meinen quellcode helfen?

Gast Erhaltene Danke: 1

bei diesem quellcode schreibt er immer den fehler dass mit string und integer irgendetwas nicht passt:

Quelltext

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

begin
label4.caption :=inttostr(spinedit1.value);
timer1.enabled :=true;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
timer1.enabled :=false;
label4.Caption :='';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if strtoint (label4.caption)<spinedit2.value then
label4.caption:= inttostr(strtoint(label4.caption)+1);

danke

(12.12. 09:04 Tino) Code-Tags hinzugefügt.

Ehemaliges Mitglied Erhaltene Danke: 1

So auf den ersten Blick würde ich sagen ist alles in Ordnung. Liegt der fehler denn in den Code-Abschnitten, die du gepostet hast?

Nur ist das natürlich eine typische offtopic Frage für ein delphi-Forum. :roll:

littlemike1005 · Beiträge: 187

PUUUHHHHH entweder bin ich blind oder da ist kein fehler.

Ehemaliges Mitglied Erhaltene Danke: 1

Ich sehen auch keinen, deswegen frage ich ja, ob der Fehler überhaupt in den geposteten Code-Abschnitten liegt.

littlemike1005 · Beiträge: 187

AHA ich habes

gast was steht im obkjectinspektor bei label4.caption???? steht da label4 oder ein anderer string??? schreib da mal ein integer rein dan funzt es.

weil du wandelst sonst einen string in einen integerwert und das funzt nicht.

gruss michael

Gast Erhaltene Danke: 1

Anonymous hat folgendes geschrieben:

label4.Caption :='';
...
if strtoint (label4.caption)<spinedit2.value then
label4.caption:= inttostr(strtoint(label4.caption)+1);
...

label4.Caption enthält nicht immer eine Zahl.

Gruß Tom

littlemike1005 · Beiträge: 187

ja gut du setzt zwar label4.caption:=''; aber da ist dann immer noch ein string drin schreib label4.caption:='0'; und es funzt ich habe es ausprobiert.

was steht denn noch in label4.caption? du darfst aber deine prozedure nur benutzen wenn sich in label4.coation ein integer befindet sonst geht es nicht. oder du musst es vor begin der procedur abfangen.

strtoint geht nur wenn im string eine zahl steht. kombinationen "12 X" sind auch nicht zulässig

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme