"Lage" en TPlayer?

Jeg har funnet ut at jeg kan bruke dette:

Kode 

TPlayer = class(TObject)
  function X: Integer;
end;

Jeg bruker dette for å kalle x := Player.X:

Kode 

var
  Player: TPlayer;

function TPlayer.X: Integer;
begin
  Result := MainFrm.PlayerImg.Left;
end;

Hva må jeg gjøre for å kunne bruke Player.X := x;?

DiZpel

Kode 

TPlayer = class(TObject)
private
  FX : Integer;
public
  property X : Integer read FX write FX;
end;

Kode 

TPlayer = class(TObject)
private
  FX : Integer;

  procedure SetX(AX : Integer);
  function GetX : Integer;
public
  property X : Integer read GetX write SetX;
end;

procedure TPlayer.SetX(AX : Integer);
begin
  FX := AX;
// her kan du så tilføje din egen kode...
end;

function TPlayer.GetX : Integer;
begin
  Result := FX;
// her kan du så tilføje din egen kode...
end;

Kode 

TPlayer = class(TObject)
  function X: Integer;
end;

Kode 

var
  Player: TPlayer;

function TPlayer.X: Integer;
begin
  Result := MainFrm.PlayerImg.Left;
end;

Jeg får en feilmelding (Access violation at address ...) hver gang jeg prøver FX := x; og Player.X := x;. Hva kan være galt?

DiZpel

[Redigeret d. 12/02-04 15:21:37 af DiZpel]

Kode 

procedure test;
var 
  P : TPlayer;
begin
  P := TPlayer.Create;
  P.X := 10;
  P.Free;
end;

Har du oprettet din klasse inden du bruger den??