Man suche sich einen geeigneten gemeinsamen Vorfahren, der die gewünschten Features hat. Hier wäre das TCustomMemo, das bereits FLines als TStrings und das public property Lines bereitstellt. Man caste in den gemeinsamen Vorfahren und kanndann unabhängig vom Laufzeittyp auf die Eigenschaften des Vorfahrens zugreifen:
Delphi-Quellcode:
var xyz:tcomponent;
...
xyz:=memo1; //oder eben richedit1
TCustomMemo(xyz).Lines.Add('test');
Idealweise deklariert man schon xyz als TCustomMemo und nicht als TComponent, um sicherzustellen, daß zur Laufzeit auch wirklich ein CustomMemo drinsteckt. Wenn nicht, sollte man vorher unbedingt den Laufzeittyp abfragen:
Delphi-Quellcode:
if xyz is TCustomMemo then
//blubb