Re: Is Empty?

Return to index

Author

Message

Yernar Shambayev

Posted: 11/23/2003 4:55:27

function isEmpty(MyRichView: TCustomRichView): Boolean;

begin

  Result := (MyRichView.ItemCount = 0) or ((MyRichView.ItemCount = 1) and

    (MyRichView.GetItemStyle(0) >= 0) and

    (MyRichView.GetItemText(0) = ''));

end;