할 수 있다면 방법을 알려주시면 고맙겠습니다.



이렇게 했는 데 안 되어서...



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

T_Contract = record // 계약사항

StockNo : String[12]; // 증권번호

DancheNo : String[ 7]; // 단체번호

InsCD1 : String[ 5]; // 보험종류1

InsCD2 : String[ 2]; // 보험종류2

end;



P_T_Contract = ^T_Contract;



TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

Temp: String;

Tmp : P_T_Contract;

begin

Temp := 'abcdefghijklmnopqrstuvwxyz';

Tmp := @Temp;

ShowMessage(Tmp^.StockNo);

ShowMessage(Tmp^.DancheNo);

end;



end.