Comment ajouter les ligne de table excel ver dbgrid j'écris ce code mais il m'affiche sauf l'en-tête
code developpe par delphi 2.0
merci en avance
voici le code pour ajouter l'entet de dbgrid
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
procedure TForm1.Button7Click(Sender: TObject);
var
 Excel: variant;
 Cell,Sheet : Variant;
 Col: TColumn;
 
 Range :Variant;
 c,i: char;
 column,row: integer;
 nbr : integer ;
 test1 : string ;
    p: Integer;
  CaptionText: string;
 begin
  Excel:=CreateOleObject('Excel.Application');
  Excel.Workbooks.Open(Edit1.Text,unassigned,true);
  Sheet := Excel.WorkBooks[1].WorkSheets[1];
  nbr := 0 ;
  c := 'A';
 while(c <= 'Z') do
 begin
  test1 := (Sheet.Range[c+'1'].value)   ;
 
 
 if (test1 <> '' ) then
 begin
  nbr := nbr + 1 ;
  Col:=DBGrid1.Columns.Add;
  Col.Title.Caption:=test1;
  byte(c) := byte(c)+1;
 end
 else
  byte(c) := byte(c)+1;
 end ;
  label1.caption := inttostr(nbr)
 
 
end;