// Wenn man feststellen will, ob in einem RichEdit der selektierte
// Text dem gesamten Text entspricht, muss man einen kleinen Trick
// anwenden:
// Getestet mit RS 10.4 unter Win10
 

function isEqual(REDT: TRichEdit): Boolean; 
var 
  st: string; 
begin 
  st := stringreplace(REDT.Text, chr(10), '', [rfreplaceall]); 
  Result := (REDT.sellength > 0) and (st = REDT.SelText); 
end;

 
 

Zugriffe seit 6.9.2001 auf Delphi-Ecke