L
lcl_003
Unregistered / Unconfirmed
GUEST, unregistred user!
我在线程里执行死循环和另外一台机器通讯，当判断数据有效的时候就在一个窗体的Tchart
上画线，刚开始运行很好，但是运行20分钟后线程就死了，我设断点根本就进不来，这是什么
原因啊。我在Tchart上画线是画满2000点就清掉重画。但是我发现内存也在不挺的增加，虽然
幅度很小，基本上内存到11M多的时候线程就死了，但是程序没死。这会是什么原因啊？
procedure MyThread.Execute;
begin
while (not terminated)do
begin
do
something....
Synchronize(seechartview);
end;
end;
procedure mythread.seechartview();
var
i: byte;
begin
for i := 0 to high(chartview1)do
begin
if chartview1 <> nil then
chartview1.Timer1.Enabled := True;
end;
end;
上画线，刚开始运行很好，但是运行20分钟后线程就死了，我设断点根本就进不来，这是什么
原因啊。我在Tchart上画线是画满2000点就清掉重画。但是我发现内存也在不挺的增加，虽然
幅度很小，基本上内存到11M多的时候线程就死了，但是程序没死。这会是什么原因啊？
procedure MyThread.Execute;
begin
while (not terminated)do
begin
do
something....
Synchronize(seechartview);
end;
end;
procedure mythread.seechartview();
var
i: byte;
begin
for i := 0 to high(chartview1)do
begin
if chartview1 <> nil then
chartview1.Timer1.Enabled := True;
end;
end;