Re: Table row coluns count

Return to index

Author

Message

jb

Posted: 07/13/2005 10:46:20

What's with these 2 small procedures ?

procedure TForm1.aktuelleZeileSpalte;

var item: TCustomRVItemInfo;

    rveTableOp: TRVTableItemInfo;

    rve: TCustomRichViewEdit;

    r,c,i,j: integer;

begin

   memo.GetCurrentItemEx(TRVTableItemInfo, rve, item);

   rveTableOp := TRVTableItemInfo(item);

   rveTableOp.GetSelectionBounds(r,c,i,j);             //akt.  Row + Col

   showMessage(intToStr(r)+'  '+intToStr(c));

end;

procedure TForm1.anzahlZeilenSpalten;

var item: TCustomRVItemInfo;

    rveTableOp: TRVTableItemInfo;

    rve: TCustomRichViewEdit;

begin

   memo.GetCurrentItemEx(TRVTableItemInfo, rve, item);

   rveTableOp := TRVTableItemInfo(item);

   showMessage(intToStr(rveTableOp.Rows.Count)+'   '+intToStr(rveTableOp.Rows[0].Count));

end;

(both from Sergey)