Значение через указатель.

[Alex Cones]

Procedure MyProc(RM, Pal : Pointer)

Вызываю:

MyProc(@RealMatrix, @PalletteMap);

Где

RealMatrix:Array[0..87499] of Integer;
PalletteMap : Array[0..127] of Integer;

Как мне брать значения из массивов в MyProc?

P.S. Мне вообще кажется, что я бредятину написал .

[BOBAH13]

Procedure MyProc(RM, Pal : Pointer);
...
var prm, ppal: PInteger;
var i: Integer;

prm := rm;
ppal := pal;

for i:= 0 to 87499 do
begin
  // prm^ - value of i (index)
  Inc(prm);
end;

ну так для понимания.... ничего сложного вообще

[Любите вы, уважаемый, окончания слов "съедать"]

[Скандербег]

Можно же в параметрах объявлять и передавать динамические массивы.

Procedure MyProc(RM, Pal : array of integer);
var I : Integer;
begin
   for I := 0 to High(RM) do
    ...
end;
...
  MyProc(RealMatrix, PalletteMap);

[Alex Cones]

for i:= 0 to 87499 do
begin
  // prm^ - value of i (index)
  Inc(prm);
end;

А здесь надо прибавлять только один байт к адресу или 4 (SizeOf(Integer)=4)?

[BOBAH13]

Inc - почитайте что делает функция. Ей передается типа PInteger - и вот подумайте, это указатель (адрес) в 32х системе, на сколько будет увеличен prm в байтах ? Тяжелый вопрос

[maxionans]

Сообщение от Alex Cones

Procedure MyProc(RM, Pal : Pointer)

Вызываю:

MyProc(@RealMatrix, @PalletteMap);

Где

RealMatrix:Array[0..87499] of Integer;
PalletteMap : Array[0..127] of Integer;

Как мне брать значения из массивов в MyProc?

Объяви два типа

type
  PIntArray = ^TIntArray;
  TIntArray = array[ 0..( MaxInt div SizeOf( Integer ) ) - 1 ] of Integer;

И либо подправь объявление твоей процедуры на procedure MyProc(RM, Pal : PIntArray), либо обращайся в ней к элементам массива таким образом:
PIntArray(RM)^[ Index ]
PIntArray(Pal)^[ Index ]

[russian-stalker]

а зачем указатели? разве так не проще:

type
 TRM=Array[0..87499] of integer;
 TPal=Array[0..127] of integer;      
...
Procedure MyProc(RM: TRM; Pal : TPAL);
begin
 showmessage(inttostr(RM[0]));
 showmessage(inttostr(Pal[2]));
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
 RealMatrix:Array[0..87499] of Integer;
 PalletteMap : Array[0..127] of Integer;
begin
 RealMatrix[0]:=444;
 PalletteMap[2]:=555;
 MyProc(realmatrix,pallettemap);
end; 
...

Или если массивы с непостоянным размером, то:

type
 TRM=Array of integer;
 TPal=Array of integer;

или ещё проще:

Procedure MyProc(RM,Pal : Array of integer);
begin
 showmessage(inttostr(RM[0]));
 showmessage(inttostr(Pal[2]));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 RealMatrix:Array[0..87499] of Integer;
 PalletteMap : Array[0..127] of Integer;
begin
 RealMatrix[0]:=444;
 PalletteMap[2]:=555;
 MyProc(realmatrix,pallettemap);
end;

[Alex Cones]

а зачем указатели?

Слишком большое значение через стек гонять грешно.

Все, всех благодарю...

[Скандербег]

В случае передачи параметров по ссылке, значения параметров, в т.ч. и массивов, в процедурный стек не копируются. Можно обойтись и без явного использования старомодных указателей - все равно в этом случае параметры и есть указатели на массивы.

Procedure MyProc(var RM, Pal : array of integer);