object pointer

Lav en
type
PVin = ^Vin;
og derefter en
var
myPointer: PVin;

[Error] node.pas(9): 'Vin' is not a type identifier

hvad hvis du bare kører en pointer(vin) ?

pointer(&vin)
evt?

Det kan jeg da godt forstå at compileren ikke kan lide. Det er også noget vrøvl ...

Lad os statre fra bunden af :

type
  TPlacering = (HosJens, AndetSted);
  TVin = class
  private
    FGodvin: Boolean;
    FPlacering: TPlacering;
    procedure SetGodvin(const Value: Boolean);
    function GetGodvin: Boolean;
    procedure SetPlacering(const Value: TPlacering);
  public
    property Godvin: Boolean read GetGodvin write SetGodvin;
    property Placering: TPlacering read FPlacering write SetPlacering;
  end;

  { TVin }

function TVin.GetGodvin: Boolean;
begin
  Result := FPlacering = HosJens;
end;

procedure TVin.SetGodvin(const Value: Boolean);
begin
  FGodvin := Value;
end;

procedure TVin.SetPlacering(const Value: TPlacering);
begin
  FPlacering := Value;
end;


Så laver du dig en variabel af typen :

procedure TForm1.FormCreate(Sender: TObject);
var
  Vin : TVin;
begin
end;

Du har nu en Object Pointer (en pointer til et object) UANSET om du har kaldt constructoren på den eller ej.

Lad os lave et forsøg :

procedure TForm1.FormCreate(Sender: TObject);
var
  Vin : TVin;
  p : Pointer;
begin
  ShowMessage(IntToStr(SizeOf(Vin)));
  Vin := TVin.Create;
  ShowMessage(IntToStr(SizeOf(Vin)));
  FreeAndNil(vin);
  ShowMessage(IntToStr(SizeOf(Vin)));
  ShowMessage(IntToStr(SizeOf(p)));
end;


Det giver 4 hele vejen ned !

Endnu en indikation på manden nok ikke er helt fuld er det følgende :

procedure TForm1.FormCreate(Sender: TObject);
var
  Vin : TVin;
  p : Pointer;
begin
  Vin := TVin.Create;
  p := vin;
end;


Den æder compileren fint !!!

Så en variabel af en klasse type, i det her tilfælde Vin. Er en pointer !!!


Jens B

Blev du klogere ?