Discussion :

[cal]

Bonjour, je dois vider une table afin de la mettre à jour avec des données collectées par des EDIT créés en dynamique, j'ai essayé quelque chose du style table.empty mais je me suis toujours heurté à des messages du type table occupée, j'ai donc essayé delete (table.delete) mais le résultat est curieux, des enregistrements supplémentaires sont créés (probablement dus à l'append de mon programme) et les données sont incomplètes et décalées. Je galère depuis 2 jours la dessus. Ci dessous une partie du code.

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
begin
  insee.edit;
  insee.fields[0].value:=edit1.text;
  val(edit2.text,v_edit2,e);
  insee.Fields[1].value:=v_edit2;
  insee.post;
  bureau.delete;
  begin
    j:=1;
    for i:=1 to cptedit do
    begin
      tab_bur[j]:='bureau '+inttostr(i);
      tab_inscr[j]:=TEdit(findComponent('bureau' + intToStr(j))).Text;
      inc(j);
    end;
    bureau.active:=true;
    bureau.edit;
    for i:=1 to 2 do
    begin
      bureau.Fields[0].value:= tab_bur[i];
      bureau.fields[1].value:= edit5.text;
      val(tab_inscr[i],tab_inscr_nombre,err);
      bureau.fields[2].value:= tab_inscr_nombre;
      bureau.append;
    end;
  bureau.post;
  end;
end;

et voila le résultat dans la table à la 1ere exécution du prog

1 bureau1 2 400
2
3 bureau2 2 500
4

résultat dans la table à la 2ème éxécution

1 bureau1 2 400
2 bureau2 2 500
3
4 bureau2 2 500
5

Merci de votre aide

[SergioMaster]

Empty vide la table , pour cela il faut que la dite table soit fermée et/ou je ne me rappelle plus ouverte en mode exclusif

Delete supprime l'enregistrement en cours