PointerToRecord

[dkfl10011]

Здрасте,
у меня возникла проблема, мне нужно преобразовать Pointer в структуру, но подобных функций я не нашёл, а функция преобразования <структура>(pointer) не работает.

function Test(a:TLuaArg):TLuaArg;
var R:TRect; Record:TLuaRecord;
begin
  Record:=a.ForceRecord;

{ Record.Data:=<Pointer record>
   Record.Info=<неважно>    }

   R:=Record.Data //Как получить саму структуру?
end;

[Stilet]

а функция преобразования <структура>(pointer) не работает.

Как ругается?
Покажи структуру TLuaRecord

[dkfl10011]

компилятор пишет "Invalid typecast"

//Кусок кода из CrystalLUA 

  // базовая структура для хранения ссылок на структуры, массивы и множества (Set)
  // используется внутри TLuaArg
  __lua_difficult_type__ = object
  protected
    {$hints off}align: array[0..1] of byte; {FLuaType = ?, align[0]} {$hints on}
    FIsRef: boolean;
    FIsConst: boolean;
  public
    Data: pointer;
    { info: information type }
    property IsRef: boolean read FIsRef write FIsRef;
    property IsConst: boolean read FIsConst write FIsConst;
  end;

  // взаимодействие по структурам между lua и программой
  PLuaRecordInfo = ^TLuaRecordInfo; // описание TLuaRecordInfo внизу из-за завязки на TLuaClassProc
  TLuaRecord = object(__lua_difficult_type__)
  public
    Info: PLuaRecordInfo;
  end;

Record.Data хранит в себе pointer структуру, на стороне люа, всё работает нормально, но мне нужно как то получить эту структуру на нативной стороне.

[Stilet]

<структура>(pointer^)
не?

[dkfl10011]

спасибо, всё работает, но можно как-то объяснить(или дать ссылку на статью) про значение "^" и nil^?

[Stilet]

Циркумфлекс означает разименовку указателя.
Т.е. Pointer^ вытаскивает данные, на которые указатель показывает, а тип() уже приводит их к нужному типу.
Это во всех учебниках паскаля классического описано, любой возьми и почитай про разименовывание указателей.