procedure Tform1.GuardarClick(Sender: TObject); var N:byte; Begin // Borro el contenido de la tabla TablaX.Active:=True; while not TablaX.Eof do begin TablaX.delete; end; TablaX.Active:=False; // ejecuto un pack a ella contenido en una Unit que llamo "funciones" funciones.PackTablas('BDatos', 'TablaX.db',Self); // Supongo dos campos: nodo -> string ; campo -> Alfanumerico TablaX.Active:=True; For N := 0 To TTreeY.Items.Count -1 Do begin TablaX.Append; TablaX.fieldbyName('nodo').Text:= InttoStr(TTreeY.Items[N].level); TablaX.fieldbyname('campo').Text:= TTreeY.Items[N].Text; end; TablaX.Post; TablaX.Active:=False; end;
Ważne artykuły