Is not valid integer value

[Роспотребнадзор]

private
{ Private declarations }
public
{ Public declarations }
end;

var
key:byte;
i,y,n:integer;
Form1: TForm1;
settingz:tinifile;
tap,sin,zel,bel,rsb,sab:integer; // здесь вроде бы пока все нормально


implementation


procedure TForm1.Timer1Timer(Sender: TObject);

begin
bel:=strToint(sedit2.text); // тут тоже вроде бы все норм
rsb:=strToint(sedit4.text);// аналогично

case sradiogroup1.itemindex of
0: begin
keybd_event(ord(RSB)+Ord('0'), 0, 0, 0); //
keybd_event(ord(RSB)+Ord('0'), 0, KEYEVENTF_KEYUP, 0);

application.ProcessMessages();
for I := 0 to 9 do begin
application.ProcessMessages();
sleep(50);
end;
keybd_event(ord(bel)+Ord('0'), 0, 0, 0);
keybd_event(ord(bel)+Ord('0'), 0, KEYEVENTF_KEYUP, 0);

end;

Компилируется нормально, но при старте сразу появляется окно с надписью "Is not valid integer value" /horror

[Ginrey]

функциями try и except пользуйся

[D.E.Z.E.R.T.I.R]

bel:=strToint(sedit2.text);

rsb:=strToint(sedit4.text);

может тут пусто или буквы или ","? миксер делаешь)))

[Роспотребнадзор]

миксер делаешь)))
Долго мучился, и в конце концов исходники угробил. Так что теперь уже не узнать, что там /problem

[Ginrey]

а для чего работал то? обычно если начинают то заканчивают))

[metra3]

а для чего работал то? обычно если начинают то заканчивают))

всмысле для чего? миксер наш дорабатывать пытался)

[Ginrey]

всмысле для чего? миксер наш дорабатывать пытался)

ну так он написал что все забросил. я вот и говорю для чего начинал

[Роспотребнадзор]

ну так он написал что все забросил. я вот и говорю для чего начинал

Я не писал что забросил. Я лишь написал что угробил исходник /dgs
Начну писАть что нибудь новое