孤
孤云
Unregistered / Unconfirmed
GUEST, unregistred user!
用多线程来进行循环扫描
procedure TA.Execute;
begin
while truedo
begin
IF Terminated then
Break;
.....
Synchronize(DoScanA);
........
end;
end;
procedure TA.DoScanA;
begin
while a=truedo
begin
............
...........
//由于a在一定时间范围内基本为true，所以会在不断的进行扫描，而且这个扫描必须不断进行的，调试后发现CPU资源占用非常大，基本上陷入死循环了，请问该怎么解决？请大虾帮帮忙，谢谢！
end;
end;
procedure TA.Execute;
begin
while truedo
begin
IF Terminated then
Break;
.....
Synchronize(DoScanA);
........
end;
end;
procedure TA.DoScanA;
begin
while a=truedo
begin
............
...........
//由于a在一定时间范围内基本为true，所以会在不断的进行扫描，而且这个扫描必须不断进行的，调试后发现CPU资源占用非常大，基本上陷入死循环了，请问该怎么解决？请大虾帮帮忙，谢谢！
end;
end;