Duda con ADOTable y tipo datos Variant
Tengo un problema al implementar el codigo que les paso debajo usando el componente ADOTable, sin embargo con el componente de la paleta BDE si me funciona sin problemas. Ademas, al usar ADOTable en este codigo e irlo debugeando no lo hace.
COdigo Delhpi: ... type Recuerda = array[0..100] of variant; // PRecuerda = ^TRecuerda; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); VAR Estado,YaProyectado:String; Recuer:Recuerda; n,Campos:integer; BEGIN Table1.Edit; for n:=0 to Table1.FieldCount-1 do {Recordamos los campos} begin Recuer[n]:=Table1.Fields[n].AsVariant; end; Table1.Append;{Añadimos un registro} for n:=0 to Table1.FieldCount-1 do {Lo rellenamos} begin Table1.Fields[n].AsVariant:=Recuer[n]; end; Table1.Post; {Lo grabamos} table1.Close; end; ... |
La franja horaria es GMT +2. Ahora son las 17:18:43. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi