Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
| procedure TForm1.Button1Click(Sender: TObject); begin edit1.text:=strtoint(a);<---felhler:inkompatible typen 'string'und 'integer' edit2.text:=strtoint(b);<---s.o. edit3.text:=strtoint(c);<---s.o. repeat button1.caption:= ('Noch mal !') ; x:=(random(103)+1); y:=(random(103)+1); z:=(random(103)+1);
until (a<>b) and (a<>c) and (b<>c);
edit1.text:=inttostr(x); edit2.text:=inttostr(y); edit3.text:=inttostr(z); end; |
ach ja, a, b, c sind vars und integer.
hatte die ganze zeit keinen porbleme damit, aber auf einmal(hab daran nichts geändert) ging es nicht mehr
Code-Tag hinzugefügt. Marc