Objekteigenschaft übergeben?

[Andreas L.]

Du kannst deiner procedure einen Parameter vom Typ TComponent verpassen:

Delphi-Quellcode:

procdure HalloWelt(AComponent: TComponent);
begin
  if AComponent is TEdit then
    TEdit(AComponent).Text := 'Hallo, Welt!'
  else
    ShowMessage('Kein TEdit übergeben sondern folgende Klasse: ' + AComponent.ClassName);
end;

....
....


HalloWelt(Edit1);
HalloWelt(Button1);
etc...