TRichEdit

Code:

{Переопределяем неправильное объявление TTextRange в RichEdit.pas}

TTextRange = record

                chrg: TCharRange;

                lpstrText: PAnsiChar;

              end;

function REGetTextRange(RichEdit: TRichEdit;

                       BeginPos, MaxLength: Integer): string;

{RichEdit - RichEdit control

BeginPos - абсолютное значение первого символа

MaxLength - максимально число получаемых символов}

var

TextRange: TTextRange;

begin

if MaxLength>0 then

begin

    SetLength(Result, MaxLength);

    with TextRange do

    begin

      chrg.cpMin := BeginPos;

      chrg.cpMax := BeginPos+MaxLength;

      lpstrText := PChar(Result);

    end;

    SetLength(Result, SendMessage(RichEdit.Handle, EM_GETTEXTRANGE, 0,

              longint(@TextRange)));

end

  else Result:='';

end;