Показать сообщение отдельно
  #9  
Старый 14.11.2011, 22:15
monax_111 monax_111 вне форума
Прохожий
 
Регистрация: 13.11.2011
Сообщения: 11
Репутация: 10
Радость

Цитата:
Сообщение от angvelem
Динамические массивы всегда адресуются с 0.
Код:
for ch:=1 to 750 do ...

знаю, сглупил

Цитата:
это кака.
И пока непонятна сама цель сей Великой задачи.

вообще моя задача - быстрая работа с изображение, в основном со значениями RGB. сначала я по дедовскому способу создал многомерный массив TColora и с помощью двух циклов засовывал значение Bitmap.canvas.pixels[x,y] в массив))
но это было оч долго и меня это не утраивало.
то что ты назвал какой оч быстро перекидывает из bitmapa в массив, с которым я работал.
сейчас я вообще попытался обойтись без массива, и все значения цветов получать прям из памяти... кстати успешно)!)!)!)

Код:
var
br,bg,bb:byte;
 P: ^byte;
begin
 for ch:=0 to 749 do
 begin

 P:=pointer(b.ScanLine[ch]);
 for ch1 :=0 to 999 do
 begin
 br:=p^;
 inc(p);
 bg:=p^;
 inc(p);
 bb:=p^;
 inc(p);
 image1.Canvas.pixels[ch1,ch]:= br shl 16 or bg shl 8 or bb;
 end;
 end;
end;
вывод( image1.Canvas.pixels[ch1,ch]) пока плохо сделан, но он служит лишь для проверки значений)
Ответить с цитированием