Discussion :

[richard038]

Bonjour,

Est-il possible de récupérer la liste des champs et leur type d'un TClientDataset ?

Merci

[Rayek]

oui

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  i : integer;
begin
  for i := 0 to  ClientDataSet.Fields.Count -1
  begin
    Showmessage('Code Type :' + 
                inttostr(ClientDataset.Fields.Fields[i].DataType) + #13#10 +
                'Nom du champ :' +
                ClientDataSet.Fields.Fields[i].DisplayName);
  end;
end;

[Nathan]

Salut,
Un TClientDataSet est un dérivé de TDataSet qui possede la propriété Fields qui est la liste des champs.
Les éléments de Fields sont des TField qui ont la propriété DataType.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedureTForm1.Button2Click(Sender:TObject);
var
  i:Integer;
  Info:String;
begin
  Info :='Les champs de la table '+Table1.TableName + ' sont : '#13#10#13#10;
  for i :=0 to Table1.FieldCount -1 do
    Info :=Info + Table1.Fields[i].FieldName + ' : ' + Table1.Fields[i].DataType + #13#10;
  ShowMessage(Info);
end;

@+

[richard038]

merci