Frage zu Zeigern

[Oxmyx]

Zitat von Muetze1:

Delphi-Quellcode:

Var
  Zeiger: Pointer;
  ActiveEdit: TEdit;  

Begin
  // ActiveEdit sollte hier schon existieren

  Zeiger := @ActiveEdit;  // Nun zeigt Zeiger auf den Speicherplatz wo ActiveEdit liegt. ActiveEdit ist aber auch nur ein Zeiger der auf die Instanz von TEdit zeigt.

  TEdit(Zeiger^).Text := 'Teschd';
End;

Das ist eine unnötige Indirektion. So ist es besser:

Delphi-Quellcode:

var
  Zeiger: Pointer;
  ActiveEdit: TEdit;
begin
  Zeiger := ActiveEdit;
  TEdit(Zeiger).Text := 'Teschd';
end;