Создать массив в функции, через указатель. Как?

[TwiX]

Пробовал так:

  type
    TIntAr = array of integer;
    PIntAr = ^TIntAr;

implementation

{$R *.dfm}
procedure CreateArr(a: PIntAr);
var
  b: TIntAr;
begin
  Pointer(b):=a;
  SetLength(b, 1);
  b[0]:=13;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  a: TIntAr;
begin
  CreateArr(@a);
  ShowMessage(IntToStr(a[0]));
end;

Компилится, но не работает)

[notHaker]

Зачем указатель на динамический массив? Он сам по себе указатель...

SetLength() - ещё и возвращает новый указатель на массив после манипуляции. Получается что новый адрес пропадает в процедуре CreateArr().

[Levsha100]

Указатель на указатель 0_0

[TwiX]

Просто я и без указателя пробовал. Вот код:

 type
    TIntAr = array of integer;
    PIntAr = TIntAr;

implementation

{$R *.dfm}
procedure CreateArr(a: PIntAr);
var
  b: TIntAr;
begin
  //b:=a;
  SetLength(a, 1);
  a[0]:=13;
  //b[0]:=13;
  //a:=b;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  a: TIntAr;
begin
  CreateArr(a);
  ShowMessage(IntToStr(a[0]));
end;

Levsha100, такой пост, будто вы слышите о двойном указателе впервые. Теже самые двумерные массивы...

[notHaker]

procedure CreateArr(a: PIntAr);
var
  b: TIntAr;
begin
  //b:=a;
  SetLength(a^, 1);
  a^[0]:=13;
  //b[0]:=13;
  //a:=b;
end;

Наверн так...

[Grag]

Const
  Max=9;
Var
  i,j:integer;
  PArr:array[0..Max,0..Max] of ^real;

begin
  for i:=0 to  Max do  {выделение памяти под массив}
    for j:=0 to Max do
      new(PArr[i,j]);
  .......................  
  PArr[i,j]^:=X; {присвоение значения элементу массива}
end;

[TwiX]

notHaker, что значит ^? Разве не значение по указателю?
Ругается на SetLength - говорит мол указатель нужен.

Grag, массив указателей это слишком) Нужно через SetLength. Да и всё-равно ошибка:

type
    TIntAr = array of ^integer;

implementation

{$R *.dfm}

procedure CreateArr(a: TIntAr);
var
  b: TIntAr;
begin
  new(a[0]);
  a[0]^:=13;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  a: TIntAr;
begin
  CreateArr(a);
  ShowMessage(IntToStr(a[0]^));
end;

[notHaker]

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

notHaker, что значит ^? Разве не значение по указателю?

Хоспд...

type
    TIntAr = array of integer;
    PIntAr = ^TIntAr;

implementation

{$R *.dfm}
procedure CreateArr(a: PIntAr);
begin
  SetLength(a^, 1);
  a^[0]:=13;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  a: TIntAr;
begin
  CreateArr(@a);
  ShowMessage(IntToStr(a[0]));
end;

[TwiX]

Если в первом посте изменить две строки:

procedure CreateArr(a: PIntAr);
var
  b: PIntAr;
begin
  b:=a;
  SetLength(b^, 1);
  b^[0]:=13;
end;

То получится рабочий код. Всё-таки я был близок к решению, которое вы не признали)
Но всё-равно спасибо)

[Grag]

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

var
b: PIntAr;
begin
b:=a;
SetLength(b^, 1);
b^[0]:=13;
end;[/CODE]

И где же тут МАССИВ, т.е. массив то есть, но из одного элемента... Это все равно что создать переменную и ссылаться на нее по указателю