Discussion :

[Bruno75]

Je fais ca et n'ayant trouvé l'inverse de CreateDataSet je me contente d'un Fields.Clear.
Cela foire

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
procedure TForm1.Button1Click(Sender: TObject);
var
        AField: TIntegerField;
begin
        AField := TIntegerField.Create(ClientDataSet1);
        AField.Name := 'Field1';
        AField.FieldName := 'Field1';
        AField.DataSet := ClientDataSet1;
        ClientDataSet1.CreateDataSet;
        ClientDataSet1.Close;
        ClientDataSet1.Fields.Clear;
        AField := TIntegerField.Create(ClientDataSet1);
        AField.Name := 'Field1';
        AField.FieldName := 'Field1';
        AField.DataSet := ClientDataSet1;
        AField := TIntegerField.Create(ClientDataSet1);
        AField.Name := 'Field2';
        AField.FieldName := 'Field2';
        AField.DataSet := ClientDataSet1;
        ClientDataSet1.CreateDataSet; // <- c est là ou ca foire
        ClientDataSet1.Open;
        ClientDataSet1.Insert;
        ClientDataSet1.Fields[0].Value := 4;
        ClientDataSet1.Insert;
        ClientDataSet1.Fields[0].Value := 5;
end;

Avez vous une idée ?

[tatareau]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
AField := TIntegerField.Create(ClientDataSet1);
        AField.Name := 'Field1';
        AField.FieldName := 'Field1';
        AField.DataSet := ClientDataSet1;
        AField := TIntegerField.Create(ClientDataSet1); ?????????????????
        AField.Name := 'Field2';
        AField.FieldName := 'Field2';
        AField.DataSet := ClientDataSet1;
        ClientDataSet1.CreateDataSet; // <- c est là ou ca foire

La ou j'ai mis ???????, tu écrases ta variable AField par un nouvel objet!!! c'est pas la le bug ou je crois que je comprend pas ton code commente le...
[modération de Pedro]

[/modération]