Ошибки с большими массивами

@Patsukin · Регистрация: 26.11.2015

Author24 — интернет-сервис помощи студентам

Нужно заполнить массив ссылками на пиксели. Если между try и except отнять 2 вместо 1 массив создастся но затем все равно вылезет ошибка. С малым фото (а значит малым массивом) проблем нет а значит дело в большом массиве. Убедиться в этом можно заменив ширину-1 высоту-1 на меньшие значения.

Delphi

procedure TForm1.HSSpeedButton3Click(Sender: TObject);
var
Pixel: Array of Array of ^TRGBTriple;
P: ^TRGBTriple;
begin
Image1.Picture.Bitmap.PixelFormat:=pf24bit;
P:=Image1.Picture.Bitmap.ScanLine[Image1.Picture.Height-1];   // сылка на нижний пиксель с лева
 
SetLength(Pixel, Image1.Picture.Width-1);   //создание
try
for X:=0 to Image1.Picture.Width-1 do SetLength(pPixel[X], Image1.Picture.Height-1);
except
showmessage(inttostr(X));
end;
 
for Y:=0 to Image1.Picture.Height-1 do   // заполнение массив
for X:=0 to Image1.Picture.Width-1 do begin
Pointer(Pixel[X, Y]):=Pointer(P);
inc(P);
end;
end;

Добавлено через 22 минуты
Массив не создавался потому что мешала -1 в SetLength(Pixel, Image1.Picture.Width-1) и он выходил за предел в цикле. Отредактировать нельзя поэтому перепишу правильно по новой.

Delphi

SetLength(Pixel, Image1.Picture.Width);   //создание
try
for X:=0 to Image1.Picture.Width-1 do SetLength(pPixel[X], Image1.Picture.Height-1);
except
showmessage(inttostr(X));
end;

Ошибка не пропала а значит вопрос в силе. Сталкиваюсь с этим в 3 раз, тогда помог вынос массива в глобальную переменную, а щас это ничего не дает. Стало быть потому что он здесь на много больше.

Добавлено через 59 минут
Сам не знаю как но ошибки больше нет а код тот же, просто создавал масивы разной длины и проверял через showmessage совпадения id ечеек и значения Х и Y после ошибки и убеждался что все правильно написано и в один момент обнаружил что ошибка перестала доставать хотя ни чего не менял в коде кроме строки for X:=0 to Image1.Picture.Width-1 do SetLength(pPixel[X], Image1.Picture.Height-1) там единица не нужна но это было сделано предварительно, после исправления все ровно была ошибка (проверку проводил после удаления 1).

@krapotkin · 17.10.2017, 09:25

жесть
расход памяти просто гигантский будет. точнее - 1.3 к исходному. не имея никакого выигрыша перед доступом к оригиналу

ну и алгоритм неверный
конец одной строки и начало второй не совпадают, там есть еще несколько байт для выравнивания

Запись Pointer(Pixel[X, Y]):=Pointer(P); бессмысленна
имеет смысл
Pixel[X, Y]:=Pointer(P);
но и это непонятно зачем, когда у вас и элементы массива и P одного типа

@Patsukin · 17.10.2017, 15:57 **[ТС]**

krapotkin
Экономия памети не всегда бонус к производительности, я раньшэ использовал Byte вместо Integer если не было нужды больше 256 и выяснилось что с Integer все работает быстрее на где то десеть процентов а ведь он больше byte который казалось бы использовать рациональнее.

Delphi

type
  StrokaArray = array[0..32767] of TRGBTriple;
  pStrokaArray = ^StrokaArray;
var
VsePixili : array of pStrokaArray;
i: Integer;
begin
for i:=0 to Image1.Picture.Height-1 do
VsePixili[i]:=Image1.Picture.Bitmap.Scanline[i];
end;

С таким подходом перерасхода не будет осталось проверить как быстро это будет работать, если медленнее то пусть перерасходывает в угоду скорости.

Запись Pointer(Pixel[X, Y]):=Pointer(P); бессмысленна
имеет смысл
Pixel[X, Y]:=Pointer(P);

Нет без поинтер работать не будет, проверьте сами.

@krapotkin · 17.10.2017, 16:33

процессор работает с integer
чтобы получить байт, ему приходится занулять еще три
так что тут все ессно

scanline[i] находится с той же скоростью что и pixel[i]
остается только второй индекс
и тут выигрыш тоже не очень очевиден
так что ...
но померять конечно можно

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	17.10.2017, 09:25	2
	жесть расход памяти просто гигантский будет. точнее - 1.3 к исходному. не имея никакого выигрыша перед доступом к оригиналу ну и алгоритм неверный конец одной строки и начало второй не совпадают, там есть еще несколько байт для выравнивания Запись Pointer(Pixel[X, Y]):=Pointer(P); бессмысленна имеет смысл Pixel[X, Y]:=Pointer(P); но и это непонятно зачем, когда у вас и элементы массива и P одного типа 0

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	17.10.2017, 16:33	4
	процессор работает с integer чтобы получить байт, ему приходится занулять еще три так что тут все ессно scanline[i] находится с той же скоростью что и pixel[i] остается только второй индекс и тут выигрыш тоже не очень очевиден так что ... но померять конечно можно 0