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
| procedure ChampPersistant(DataSet: TClientDataSet; NomChamp: string;
TypeDonnee: TFieldType; TypeChamp: TFieldKind; Taille: Integer);
var
F: TField;
begin
if TypeDonnee = ftString then
F := TStringField.Create(DataSet)
else
if TypeDonnee = ftInteger then
F := TIntegerField.Create(DataSet)
else
if TypeDonnee = ftBoolean then
F := TBooleanField.Create(DataSet)
else
if TypeDonnee = ftFloat then
F := TFloatField.Create(DataSet);
{Tu peux ajouter les types de champs dont tu en a besoin}
with F do
begin
FieldName := NomChamp;
FieldKind := TypeChamp;
DataSet := Table;
Name := Dataset.Name + NomChamp;
DataSet.FieldDefs.Add(NomChamp, TypeDonnee, Taille, False);
end;
end; |
Partager