[Nekromant Set'а]

Как сделать указатель на переменную типа Record ??? А потом присвоить все данные из указателя (Record'а, на который он указывает) другой переменнной???

[Alien]

а зачем тебе ее передавать ее как указатель? передавай ее как Var параметр.

function (Var rec: TMyRecord): boolean;
Var
temp: TMyRecord
begin
temp:= rec;
end;

если я конечно правильно понял.

[zip000]

Код:

type
  TPosition = record
    X, Y : Integer;
  end;
  PPosition = ^TPosition; // Так задается тип указателя на запись (record)
................
var
  pos1 : TPosition;
  pos2 : TPosition;
  Ppos : PPosition;
begin
  pos1.X := 10;
  pos1.Y := 20;
  Ppos := @pos1; // Переменная Ppos будет указывать на pos1
  pos2.X := Ppos^.X; // В pos2.X будет 10
  pos2.Y := Ppos^.Y; // В pos2.Y будет 20
end;

[Nekromant Set'а]

Код:

  pos2.X := Ppos^.X; // В pos2.X будет 10
  pos2.Y := Ppos^.Y; // В pos2.Y будет 20

А как нить сократить это можно???

[zip000]

pos2 := Ppos^;

[Nekromant Set'а]

спсб