Modificar tabla

[ecfisa]

Hola wilcg, bienvenido a los foros de Club Delphi

Como es costumbre con los que se inician, te invitamos a que leas nuestra guía de estilo.

Del modo que mencionas sería:

Código Delphi [-]
  with Query do
  begin
    RequestLive:= True;
    SQL.Text := 'SELECT * FROM FECHAS';
    Open;
    Next; // saltar el primer registro
    // modificar el resto
    while not Eof do
    begin
      Edit;
      FieldByName('Fecha').AsDate:= Date;
      FieldByName('hora').AsTime:= Time;
      Next;
    end;
    Close;
  end;

Otra alternativa mas eficiente pero que puede variar dependiendo de la base de datos con que estas trabajando, es usar una sentencia SQL.
No lo mencionas pero pareciera que estas usando un TQuery (BDE) y si tenes declarado un campo auto incremental, llamémosle ID, podrías hacer por ejemplo:

Código Delphi [-]
  with Query do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE FECHAS SET FECHA = :PFECHA, HORA = :PHORA');
    SQL.Add('WHERE ID > (SELECT MIN(ID) FROM FECHAS)');
    ParamByName('PFECHA').AsDate:= Date;
    ParamByName('PHORA').AsTime:= Time;
    ExecSQL
  end;

Si tu motor de base de datos es otro, comentanos y vemos como se puede implementar en él.

Saludos