nes.Items [i-fst - 1] .SubItems [1] ;; cb3.Checked then begin (col) ;. Range [Chr (Ord ( A ) + col) + inttostr (i)]. Value:= Phones.Items [i-fst - 1] .SubItems [2] ;; cb4.Checked then begin (col) ;. Range [Chr (Ord ( A ) + col) + inttostr (i)]. Value: =Phones.Items [i-fst - 1] .SubItems [3] ;; cb5.Checked then begin (col) ;. Range [Chr (Ord ( A ) + col) + inttostr (i)]. Value :=Phones.Items [i-fst - 1] .SubItems [4];
end;:=i ;;
//встановимо сітку для таблиці
ws.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlEdgeLeft].LineStyle:=xlContinuous;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlEdgeLeft].Weight:=xlThin;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlEdgeLeft].ColorIndex:=xlAutomatic;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlEdgeTop].LineStyle:=xlContinuous;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlEdgeTop].Weight:=xlThin;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlEdgeTop].ColorIndex:=xlAutomatic;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlEdgeBottom].LineStyle:=xlContinuous;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlEdgeBottom].Weight:=xlThin;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlEdgeBottom].ColorIndex:=xlAutomatic;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlEdgeRight].LineStyle:=xlContinuous;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlEdgeRight].Weight:=xlThin;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlEdgeRight].ColorIndex:=xlAutomatic;
//внутрішнє пересечение.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlInsideVertical].LineStyle:=xlContinuous;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlInsideVertical].Weight:=xlThin;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlInsideVertical].ColorIndex:=xlAutomatic;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlInsideHorizontal].LineStyle:=xlContinuous;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlInsideHorizontal].Weight:=xlThin;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(maxrow)].Borders[xlInsideHorizontal].ColorIndex:=xlAutomatic;
//наружние границы.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].Borders[xlEdgeLeft].LineStyle:=xlContinuous;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].Borders[xlEdgeLeft].Weight:=xlMedium;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].Borders[xlEdgeLeft].ColorIndex:=xlAutomatic;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].Borders[xlEdgeTop].LineStyle:=xlContinuous;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].Borders[xlEdgeTop].Weight:=xlMedium;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].Borders[xlEdgeTop].ColorIndex:=xlAutomatic;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].Borders[xlEdgeBottom].LineStyle:=xlContinuous;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].Borders[xlEdgeBottom].Weight:=xlMedium;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].Borders[xlEdgeBottom].ColorIndex:=xlAutomatic;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].Borders[xlEdgeRight].LineStyle:=xlContinuous;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].Borders[xlEdgeRight].Weight:=xlMedium;.Range[laquo;Araquo;+inttostr(fst)+laquo;:raquo;+Chr(Ord(laquo;Araquo;)+col)+inttostr(fst)].Borders[xlEdgeRight].ColorIndex:=xlAutomatic;i:=ord(laquo;Araquo;)to ORD ( A ) + col do begin.Range[Chr(i)+inttostr(fst)+laquo;:raquo;+Chr(i)+inttostr(maxrow)].Borders[xlEdgeLeft].LineStyle:=xlContinuous;.Range[Chr(i)+inttostr(fst)+laquo;:raquo;+Chr(i)+inttostr(maxrow)].Borders[xlEdgeLeft].Weight:=xlMedi...
