Hola camiz.
No estoy seguro de haber interpretado correctamente el planteo..., pero me parece que lo que buscas sería:
Código Delphi
[-]
var
Lista: TList;
f,i: Integer;
begin
...
Guardar.Open;
Guardar.Insert;
Lista:= TList.Create;
try
GetTabOrderList(Lista);
f:= 0;
for i:= 0 to Lista.Count-1 do
begin
if TControl(Lista[i]) is TCustomEdit then
begin
if TCustomEdit(Lista[i]) is TEdit then
begin
Guardar.Fields[f].AsString:= TEdit(TCustomEdit(Lista[i])).Text;
Inc(f);
end;
if TCustomEdit(Lista[i]) is TMemo then
begin
Guardar.Fields[f].AsString:= TMemo(TCustomEdit(Lista[i])).Lines.Text;
Inc(f);
end;
end;
end;
finally
Lista.Free;
end;
Guardar.Post;
Guardar.Close;
MessageBox(0, 'Registros Guardados correctamente', 'Mensaje', MB_ICONINFORMATION + MB_OK);
end;
Es claro que la tabla deberá poseer una cantidad de campos suficiente para albergar a la suma de edits y memos existentes en el form...
Me surge una pregunta, ¿ Por que no usar
TDBEdit y
TDBMemo ?
Saludos