Ver Mensaje Individual
  #2  
Antiguo 25-03-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita