var
Date1: TDate;
Date2: TDate;
begin
ShowMessage(IntToHex(Integer(Addr(Date1)), 8));
ShowMessage(IntToHex(Integer(@Date2), 8));
//طريقتين كلاهما صحيح
؟إقتباس :كيف كان درس المؤشرات في المجلة ؟هههههه دسم إطلعة عليه قبل ان اطرح السؤال .
procedure TForm1.Button1Click(Sender: TObject);
Var
Date1: TDate;
Date2: TDate;
Date3: TDate;
begin
Try
Date3 := TDate.Create;
ShowMessage(.........);
ShowMessage(.........);
ShowMessage(.........);
Finally
FreeAndNil(Date3);
End;
End;
..unit UTest;
interface
Type
TDate = Class
public
Day: byte;
Month: byte;
Year: Integer;
Procedure SetValeur(D,M: byte; y: integer);
Function leapyear: boolean;
End;
implementation
Uses
SysUtils;
Procedure TDate.SetValeur(D,M: byte; y: integer);
Begin
day := d;
month := m;
year := y;
end;
Function TDate.leapyear:boolean;
begin
Result := isleapyear(year);
end;
End.
procedure TForm1.Button1Click(Sender: TObject);
Var
Obj1: TMyObject;
Obj2: TMyObject;
Obj3: TMyObject;
begin
Try
Obj3 := TMyObject.Create;
ShowMessage(.........);
ShowMessage(.........);
ShowMessage(.........);
Finally
FreeAndNil(Obj3);
End;
End;
ShowMessage(IntToHex(Integer(Addr(Date1)), 8));