Trotzdem - hier noch eine Alternative, die ohne eine zusätzliche String-Variable auskommt:
Delphi-Quellcode:
begin
with DemoEdit do
begin
SelStart := 1;
SelLength := Length(Text);
Text := SelText;
end;
end;
Und macht euch nicht soviel Gedanken um performance. Erst muss man verständlichen Code schreiben. Tuning kommt erst viel später. Und wenn ihr euren Code gut geschrieben habt, dann macht im wirklichen Leben (Job) das Tuning jemand anderes.
Grüße vom marabu