Unterschied Pointer/Referenzvariablen

[BlackJack]

genau:

Delphi-Quellcode:

procedure Test1(AObj: TObject);
  begin
  AObj := TObject.Create;
  end;

procedure Test2(var AObj: TObject);
  begin
  AObj := TObject.Create;
  end;


var O1, O2: TObject;
begin
O1 := TObject.Create;
O2 := O1;
Test1(O1);
// hier ist O1 = 02:
if O1 = O2 then
  ShowMessage('Hah ;D ');

O1 := TObject.Create;
O2 := O1;
Test2(O1);
//hier ist O1 <> O2
if O1 <> O2 then
  ShowMessage('Hah ;D ');

end;