델파이 포인터 예제

 

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, contnrs;  

  type
    PMyRec = ^TMyRec;
    TMyRec = record
      TTT: String;
    end;      

 

procedure TForm1.FormCreate(Sender: TObject);
var
    chemList : TList;
    MyRec: PMyRec;
    MyRec1: PMyRec;
begin

   chemList := TList.Create;
   New(MyRec);
   MyRec^.TTT := '';


chemList.Add(MyRec);

MyRec1 := chemList[0];

ShowMessage(MyRec1^.TTT);
ShowMessage(PMyRec(chemList[0])^.TTT);