Как увеличить выделяемую под прогу память

← →
Diver (2004-05-06 00:58) [0]

Пишу прогу, и тут бац она частично перестает работать, перестают работать три взамосвязанных цикла... Думал заглюкавило делфа, но скорее это не хватает памяти выделенной под работу программы. Подскажите как ее увеличить? Заранее благодарен.

← →
DVM © (2004-05-06 01:03) [1]

4 Гб не хватает?

> и тут бац она частично перестает работать

как это?

← →
Rouse_ © (2004-05-06 01:06) [2]

> перестают работать три взамосвязанных цикла
Скорее стек...

← →
Diver (2004-05-06 01:08) [3]

Да не выполняет алгоритм заложенный в серии из трех циклов, убираю один цикл, все пашет.

← →
DVM © (2004-05-06 01:10) [4]

> Diver (06.05.04 01:08) [3]

Код циклов поглядеть можно? Если не очень большой.

← →
Anatoly Podgoretsky © (2004-05-06 01:13) [5]

Больше 2 гб не выйдет, а это выделеяется автоматически.

← →
Diver (2004-05-06 01:15) [6]

наброски проги распознавания рисунков...
for y0 := 0 to bm2.Height-bm1.Height-1 do
begin
pr:=0;min:=100;
for y := 0 to bm1.Height - 1 do
begin
p1 := bm1.ScanLine[y];
p2 := bm2.ScanLine[y0+y];
for x := 0 to bm1.Width * 3 - 1 do
begin
r:=p1[x]-p2[x];
if r>255/2 then r:=256-r;
if r<-225/2 then r:=-(256+r);
pr:=pr+r/255*100;
end;
end;
if min>pr/x/y then
begin
min:=pr/x/y;
ymin:=y0;
Form1.Caption := currtostr(min)+"%";
end;
end;

← →
Diver (2004-05-06 01:17) [7]

работа идет с масивами бмпешек, которые в свою очередь немаленькие

← →
DVM © (2004-05-06 01:26) [8]

> Diver (06.05.04 01:17) [7]

попробуй убери Form1.Caption := currtostr(min)+"%";
Лавина сообщений посылается.

← →
DVM © (2004-05-06 01:27) [9]

> for y0 := 0 to bm2.Height-bm1.Height-1 do

здесь отрицательное число не может появиться?

← →
Diver (2004-05-06 01:30) [10]

убирал даже
begin
min:=pr/x/y;
ymin:=y0;
Form1.Caption := currtostr(min)+"%";
end;
и отрицательных чисел тоже нет
пробую задать другие алгоритмы вместо сатых тот же результат

> pr:=pr+r/255*100;

может здесь выход за пределы integer происходит?

← →
Diver (2004-05-06 01:36) [12]

у меня real, да все там верно, не кантачит и все.

А убирание какого цикла проблему решает?

← →
Diver (2004-05-06 01:40) [14]

первого

> if min>pr/x/y then
В приведенном коде это излишнее - гораздо проще и правильней сделать в виде
type
...
B, R, G: Byte

Во вторых - не видно работы потоков...

Как увеличить выделяемую под прогу память Найти похожие ветки