Нужна помощь с передачей даных в процедуру

[programer_tang]

Суть вопроса состоит в следующем: я хочу написать рекурсивную процедуру на вход которой будет подаватся какаято переменная (ые), которая должна изменятся в процесе рекурсии. Если в процедуру передавать только значение переменной то там создается копия и в конце роботи программы переменная остается с начальным значением. Поскольку в роботе процедури переменние могут будут разные, то я так понимаю нужно работать через указатели.
Вот тут возникла проблема (ниже приведен упрощенный код процедуры) у меня вышло роботать только с первым элементом масива, никак неполучается роботать с 2..N, подскажите как это сделать. Или подскажите другое решение этой ситуации.

Зарание благодарен,

var
  Form1: TForm1;
  s : array [1..10] of TPoint;
  P1 : ^TPoint;
  procedure test(d: pointer; counter:integer);  forward;

procedure test(d: pointer; counter:integer);
begin
if counter >- 1 then
begin
  dec(counter);
  Tpoint(d^).X := counter;
  Tpoint(d^).Y := counter;
  test(d,counter);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
P1 :=@s[1];
test(P1,5);
showmessage(inttostr(s[1].X));
end;

[Баламут]

Может все-таки стоит передать массив в процедуру как var-параметр? Т.е. procedure test(var d: array of TPoint; counter: integer).

[programer_tang]

то: Баламут

Спсб помогло.

Но для общего развития всеже хотелось бы узнать как работать с масивами через указатели...

[Mixasik]

Зачем, если есть динамические массивы?

[Баламут]

В общем-то var-параметр по сути своей и есть указатель, но если очень уж хочется в явном виде... Смотри, примерно так

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type TMyArray = array[0..0] of TPoint;
PMyArray = ^TMyArray;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    s: PMyArray;
    procedure test(d: pointer; counter: integer);
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
GetMem(s, SizeOf(TPoint) * 3);
test(s, 3);
end;

procedure TForm1.test(d: pointer; counter: integer);
var
  i: integer;
begin
for i := 0 to 2 do
begin
  PMyArray(s)^[i].X := i;
end;

for i := 0 to 2 do
begin
  Memo1.Lines.Add(IntToStr(PMyArray(s)^[i].X));
end;
end;

end.

[programer_tang]

Понятно, большое спасибо за помощь.