LittleBeer - Mi 03.07.02 17:02
Titel: sring und int problem, neu aufgetaucht. vorher ging alles
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