لمحة عن التعامل مع المؤشرات في الدلفي(pointer)

[TF6M]

السلام عليكم
موضوع جميل , فقط كإظافة :thumbs: :

PHP كود :

//Table Pointer ...
Type
 MyArr = Array [0..9] Of Byte;
 PMyArr = ^MyArr;
//.................

//Record Pointer ...
{$A-}//Packed Record//
Type
 MyRec = Record
 F_Name: String[50];
 L_Name: String[60];
 Age: Byte;
 End;
PMyRec = ^MyRec;
//...................

procedure TForm1.Button1Click(Sender: TObject);
Var
 Ref: PMyArr;
 i: Byte;
begin
New(Ref);
For i:= 0 To High(MyArr) Do
 Ref^[i]:= Trunc(Random(255));
MessageBoxA(0,Pchar('#5 : ' + IntToStr(Ref^[4])),Nil,0);
Dispose(Ref);
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
 Ref: PMyRec;
begin
New(Ref);
With Ref^ Do
 Begin
 F_Name:= 'TF6M';
 L_Name:= 'M6FT';
 Age:= 22;
 End;
MessageBoxA(0,Pchar(Format('My Name : %S ' +
                     #13 + 'My Last Name : %S' +
                     #13 + 'My Age: %d'
             ,[Ref^.F_Name,Ref^.L_Name,Ref^.Age])),Nil,0);
Dispose(Ref);
end; 


كما نلاحظ فإن تطبيقات المؤشرات كثيرة منها الجداول و أيضا المسجلات كالمثال
السابق :thumbsup: ... بالتوفيق ,,