TRichView.com

Code: Select all

     with SRichViewEdit1 do
            begin
              //move to the end of document
              ItemNo := RichViewEdit.ItemCount-1;
              if ItemNo<>-1 then
              begin
                Offs   := RichViewEdit.GetOffsAfterItem(ItemNo);
                RichViewEdit.SetSelectionBounds(ItemNo,Offs,ItemNo,Offs);
              end;
              RichViewEdit.InsertRVFFromFileEd(FileName);
              FillFields(RichViewEdit.RVData);
              //move to the end of document
              ItemNo := RichViewEdit.ItemCount-1;
              if ItemNo<>-1 then
              begin
                Offs   := RichViewEdit.GetOffsAfterItem(ItemNo);
                RichViewEdit.SetSelectionBounds(ItemNo,Offs,ItemNo,Offs);
              end;
            end;



procedure FillFields(RVData: TCustomRVData);
var i,r,c: Integer;
    table: TRVTableItemInfo;
    FieldName: String;
begin
  for i := 0 to RVData.ItemCount-1 do
    case RVData.GetItemStyle(i) of
      rvsLabel:
        begin
          FieldName := PChar(RVData.GetItemTag(i));
          if IsFieldCode(FieldName) and (pos('<',TRVLabelItemInfo            (RVData.GetItem(i)).Text)<>0) then
          begin
            TRVLabelItemInfo(RVData.GetItem(i)).Text := GetFieldValueFromDatabase(FieldName, True);
            TRVLabelItemInfo(RVData.GetItem(i)).ApplyStyleConversion(RVData,i,2);
          end;
        end;
    end;
end;

Code: Select all

SRV.CanUpdate := False;
....
SRV.CanUpdate := True;