Mostrando las entradas con la etiqueta pointer to record to delphi prism. Mostrar todas las entradas
Mostrando las entradas con la etiqueta pointer to record to delphi prism. Mostrar todas las entradas

29 de noviembre de 2009

Convirtiendo un puntero a registro a una clase en Delphi Prism

El siguiente código Delphi Win32, es un puntero a un registro con un campo de enlaze del tipo puntero:

PDefineRec = ^TDefineRec;
TDefineRec = record
Defined: Boolean;
StartCount: Integer;
Next: PDefineRec;
end;

Esta lista enlazada es fácilmente convertible en una clase Delphi Prism:

{$IFDEF PRISM}PDefineRec = TDefineRec;{$ELSE}PDefineRec = ^TDefineRec;{$ENDIF}
TDefineRec = {$IFNDEF PRISM}record{$ELSE}class public{$ENDIF}
Defined: Boolean;
StartCount: Integer;
Next: PDefineRec;
end;


José Castillo