Добрый день!!!
Требуется одновременно открыть множество слоев. Происходит утечка памяти.
Вот маленький код:
var Lr : ILayer;
i : integer;
begin
for i := 1 to 1000 do
begin
Lr := CoLayer.Create;
Lr.Open('C:\Zulu\Zulu 5.2\Examples\Gidro\VODA.b00');
Lr := nil;
end;
end;
В чем я не прав?
Версия 5.2.0.2370, Delphi 7.
Требуется одновременно открыть множество слоев. Происходит утечка памяти.
Вот маленький код:
var Lr : ILayer;
i : integer;
begin
for i := 1 to 1000 do
begin
Lr := CoLayer.Create;
Lr.Open('C:\Zulu\Zulu 5.2\Examples\Gidro\VODA.b00');
Lr := nil;
end;
end;
В чем я не прав?
Версия 5.2.0.2370, Delphi 7.