[valere78]

Привет всем!Первый раз в жизни я прошу помощи на счет программирования,но сам уже не знаю что делать!Дело в том что написал программу,какую думаю вам не интересно да и не хотелось бы говорить!
Вот кусок кода который мне интересен!

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure ......; var speed:integer; begin repeat ..... //Тут нужный мне код и тд(ничего сложного ..... // speed:=speed+1; form1.label1.caption:=strtoint(speed);//Вот на эту строку обратите внимания,это тупо счетчик until false; end;

Так вот,ставлю эту процедуру на поток!Все работает на ура!но через какое то время программа вылетает!
Опытным путем выявил что вылетает именно на строке label,стоит ее убрать и программа будет работать сутками!
Может кто то сталкиавлся с такой проблемой?ПРошу мысли в слух как устанить эту ошибку...try except не прелогать!ошибка в памяти так что от него толку мало будет!
Вот скрин ошибки
Безымянный.jpg

[kalinochkind]

Замени strtoint на inttostr!

[NumLock]

Код:

1 2 3 4

var speed:integer;   form1.label1.caption:=strtoint(speed);

как она вообще откомпилировалась?))) а вообще с VCL нужно работать в Synchronize методах! сегодня только что выложил пример по работе с потоками и VCL http://www.delphisources.ru/forum/sh...6463#post66463