Classe in Procedure als Const deklariert

[Mathias]

Bei SetNr kann ich die Variable obj verändern.
Bei int kommt schon beim kompilieren ein Fehler.

Müsste bei SetNr kein Kompilerfehler kommen ?

Eigentlich wollte ich obj als var deklarieren, aber dies geht nicht.

Code: Alles auswählen

type
  TVater = class(TObject)
    Nr: integer;
  end;
 
  TKind = class(TVater)
  end;
var
  Kind: TKind;
 
{ TForm1 }
 
procedure int(const i: integer);
begin
  i := 3;
end;
 
procedure SetNr(const obj: TVater; n: integer);
begin
  obj.Nr := n;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Kind := TKind.Create;
  SetNr(Kind, 1);
  Caption := IntToStr(Kind.Nr);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  ii: integer;
begin
  int(ii);
  Caption := IntToStr(ii);
end;         

[Socke]

Bei SetNr kann ich die Variable obj verändern.
Bei int kommt schon beim kompilieren ein Fehler.

Müsste bei SetNr kein Kompilerfehler kommen ?

Die Variable obj ist technisch gesehen nur ein Zeiger auf einen Berech im Arbeitsspeicher wo das Objekt selbst liegt. Den Zeiger kannst du nicht verändern (obj := TVater.Create;) - das Objekt selbst hingegen kann geändert werden.

[Mathias]

Bin ich froh, das dies kein Bug ist, somit kann ich dies in meinem Programm ohne Probleme verwenden.

Danke!