trichview.com

trichview.support




Re: scan trv edit


Return to index


Author

Message

jrosa

Posted: 09/26/2002 2:47:50


thank you for this answer, but what is 's'


thanks again


"Sergey Tkachenko" <svt@trichview.com> wrote:

>For example, this procedure iterate through all items in the document, and

>convert all text to upper case.

>

>uses CRVData;

>

>procedure AllUpperCase(RVData: TCustomRVData);

>var i,r,c: Integer;

>     table: TRVTableItemInfo;

>begin

>for i := 0 to RVData.Items.Count-1 do

>  if RVData.GetItemStyle(i)>=0 then begin // this is a text item

>    s := RVData.Items[i];

>    s := AnsiUpperCase(s); // WARNING: will not work with Unicode

>    RVData.Items[i] := s;

>    end

>  else if RVData.GetItemStyle(i)=rvsTable then begin

>    table := TRVTableItemInfo(RVData.GetItem(i));

>    for r := 0 to table.Rows.Count-1 do

>      for c := 0 to table.Rows[r].Count-1 do

>        if table.Cells[r,c]<>nil then

>          AllUpperCase(table.Cells[r,c].GetRVData);

>  end;

>end;

>

>call it as:

>

>AllUpperCase(RichView.RVData);

>

>

>>

>> how can scan a document line by line en trv edit

>> thanks

>

>





Powered by ABC Amber Outlook Express Converter