포인터에 대해 공부하고 있습니다.
아직 개념이 부족해서 그러는데요.
아래 코드 좀 완성해 주시면 공부에 많은 도움이 되겠습니다.
감사합니다.
TYPE
TMyRECord = Packed Record
A : String[10];
B : String[10];
End;
PMyRecord = ^TMyRecord;
procedure TForm1.Button1Click(Sender: TObject);
var
MyRecord : PMyRecord;
I: Integer;
begin
New(MyRecord);
MyRecord.A := 'a1';
MyRecord.B := 'b1';
INC(MyRecord);
MyRecord.A := 'a2';
MyRecord.B := 'b2';
INC(MyRecord);
MyRecord.A := 'a3';
MyRecord.B := 'b3';
INC(MyRecord);
MyRecord.A := 'a4';
MyRecord.B := 'b4';
INC(MyRecord);
MyRecord.A := 'a5';
MyRecord.B := 'b5';
INC(MyRecord);
MyRecord.A := 'a6';
MyRecord.B := 'b6';
------ 첫번째 MyRecord로 이동 ----
FOR i=0 TO MyRecord갯수만큼 DO
Begin
Memo1.Lines.Add(MyRecord.A + ' , ' + MyRecord.B);
Inc(MyRecord);
End
end; |