einer variable eine adresse zuweisen

[Sprint]

Zitat von c113plpbr:

Ich will also quasi eine Variable, mit zwei Namen ... hört sich komisch an, macht aber in meinem Fall durchaus sinn

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ValueA: Integer;
  ValueB: PInteger;
begin

  ValueB := @ValueA;

  ValueA := 12;
  ShowMessage(IntToStr(ValueB^));

  ValueB^ := 21;
  ShowMessage(IntToStr(ValueA));

end;