Determining if TRichViewEdit is empty

[rtcary]

Is there a property so one can tell if TRichViewEdit is empty? No characters present?

Thank you...

[mamouri]

I think you can use RVGetTextRange of RVLinear unit like this:

if RVGetTextRange(RichView1, 0, RVGetTextLength(rv)) = '' then
...

[shmp]

Hi rtcary,

You may use rve.ItemCount to see if TRichViewEdit is really empty. This means nothing at all. If rve is cleard but not formated, the value returned is 0. If it is formatted, the value returned is 1.

Chao.

[Yernar Shambayev]

Is there a property so one can tell if TRichViewEdit is empty? No characters present?

Thank you...

Code: Select all

function RVEmpty(MyRichView: TCustomRichView): Boolean;
begin
  Result := (MyRichView.ItemCount = 0) or ((MyRichView.ItemCount = 1) and
    (MyRichView.GetItemStyle(0) >= 0) and
    (MyRichView.GetItemText(0) = ''));
end;

[rtcary]

Thank you! Works like a champ!

Todd