Guardar en base de datos desde controles creados en tiempo de ejecucion

[ecfisa]

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