запись данных в массив

[phomm]

Первый ответ правильный. Переменная буфер действительно не проинициализирована, она служит для хранения указателя на массив ПРоу, и в момент выполнения указывает на мусор, обращение к 0-му элементу массива на запись - это попытка записать через нерабочий указатель данные в память, на которую указывает указатель (а не в массив, которого в данном случае ещё никакого нет), а при мусорном указателе (мусорном значении переменной-указателя) очень вероятно, что натыкаетесь на защиту страницы памяти (хуже, если не натнкётесь, втихую портить чужую память).
Чтобы этого не было, и я полагаю, то, чего Вы хотели добиться - надо получить копию данных битмапа, и сделать это в своё некое хранилище, таковым должен быть либо массив (явно созданный), либо ещё какая списочная структура, хранящая список указателей (элементов типа ПРоу). Для явного создания массива надо взять либо динамический массив, либо указатель на массив и выделить память под него, в крайнем случае можно взять и статический (но рисунки же разной высоты предполагаются, придётся брать с запасом и заводить параметр кол-ва реальных данных). Лучше всего в данном случае динамический массив, ибо автоуправление памятью и нет мороки статического, достаточно вызвать SetLength(buffer, c.Height); после чего уже можно работать с ячейками массива на запись.

[Михаил22042016]

Сообщение от phomm

Лучше всего в данном случае динамический массив, ибо автоуправление памятью и нет мороки статического, достаточно вызвать SetLength(buffer, c.Height); после чего уже можно работать с ячейками массива на запись.

я не мастер делфи, спорить не стану, но я все делаю через ScanLine, а динамический массив подойдет на сколько мне известно только для BitMap.Canvas.Pixels[x,y]... а это долго в сравнении с ScanLine.
___________________________________ _______________
задавать длину такого массива (для примера) у меня не получается, выдает ошибку.

type
  tXarray = array of PixelRGB;
  Xarray = ^tXarray;
var buf: Xarray; 
  SetLength(buf,Cel.BitMap.Width-1);

___________________________________ _______________
поэтому я сделал так:

type
  PixelRGB = packed record b,g,r: byte; end;
  tXarray = array[-2..2] of PixelRGB;
  Xarray = ^tXarray;
  tYXarray = array of Xarray;  // тут без этой галочки ^



var  buf: tYXarray;
  SetLength(buf,Cel.BitMap.Height-1);
  for y := 0 to Cel.BitMap.Height-1 do       
  begin
    buf[y]:= Cel.BitMap.ScanLine[y];   // записываю в буфер
  end;

а так пользую

buf[y][x].r:=G;
buf[y][x].g:=G;
buf[y][x].b:=G;

удобно, почти как BitMap.Canvas.Pixels[x,y], но быстрее
лучше этого из стандартных средств ничего не знаю