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;