TRichView.com

Code: Select all

procedure TfrmMain.DeleteBlankLines(RVData: TCustomRVData);
var
  i,r,c: Integer;
  table: TRVTableItemInfo; 
begin
  for i := RVData.ItemCount-1 downto 0 do 
    if RVData.IsParaStart(i) and (RVData.GetItemStyle(i)>=0) and 
      (RVData.GetItemText(i)='') and (RVData.ItemCount>1) then 
      RVData.DeleteItems(i,1)  
    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 
            DeleteBlankLines(table.Cells[r,c].GetRVData); 
    end;
end;