L
lcl_003
Unregistered / Unconfirmed
GUEST, unregistred user!
我要和另外一台机器进行通讯，为了不影响通讯我使用了线程，因为要定时通讯所以在线程
里使用了goto，但是我发现如果我一创建这个线程cpu的占用率就是100%，打开窗体也变慢了
不知道是不是因为线程的原因，这样做可以吗？或者有什么好的办法？
procedure MyThread.Execute;
var
time0,time1:integer;
label start1;
begin
time0:=timegettime();
start1:
time1:=timegettime();
if time1-time0>200 then
begin
do
something.........(和另外一台机器通讯)
end;
goto start1;
end;
里使用了goto，但是我发现如果我一创建这个线程cpu的占用率就是100%，打开窗体也变慢了
不知道是不是因为线程的原因，这样做可以吗？或者有什么好的办法？
procedure MyThread.Execute;
var
time0,time1:integer;
label start1;
begin
time0:=timegettime();
start1:
time1:=timegettime();
if time1-time0>200 then
begin
do
something.........(和另外一台机器通讯)
end;
goto start1;
end;