Zitat von
emteg:
weil Sender ist ja nicht vom Typ TRichEdit.
So würde ich das nicht sagen. Die Variable Sender hat zwar den Typ TObject, aber dahinter verbirgt sich in deinem Fall ein TRichEdit. Um aus dem TObject nun auf das gesamte TRichEdit zugreifen zu können, muss du es einfach typecasten. Und dafür gibt es zwei Arten: Den harten Typecast bei dem auch wenn sich hinter Sender kein TRichEdit verbirgt wild drauf zugegriffen wird, was dann zu Speicherschutzverletzungen führt.
TRichEdit(Sender).SelStart := 10;
Und den
as-Typecast, der vorher eine
is-Abfrage durchführt und bei nicht-Übereinstimmung eine ECastError
Exception wirft.
(Sender as TRichEdit).SelStart := 10;
Der harte Typecast ist schneller aber gefährlich, wenn nicht sichergestellt ist, das Sender wirklich ein TRichEdit ist. Der
as-Operator is sicherer aber durch die zusätzliche
is-Abfrage langsamer. Am besten ist also eine Kombination: Man frägt vorher in einer if-Abfrage mit
is ab und macht dann harte Typecast in diesem if-Block, was sich aber erst aber mehreren Zeilen rentiert.
Delphi-Quellcode:
if Sender is TRichEdit then
begin
TRichEdit(Sender).SelStart := 10;
TRichEdit(Sender).SelLength := 100;
TRichEdit(Sender).Color := clYellow;
end;