Código Delphi [-] if not SearchKey(strClave, stEqual) then begin { nos vamos al final } Last; { añadimos un registro en blanco } Insert; { añadimos la clave del registro y los campos comunes } FieldByName('ESTACION').AsString := strClave; FieldByName('FECHA_UNIX').AsInteger := 0; end else Edit;
if not SearchKey(strClave, stEqual) then begin { nos vamos al final } Last; { añadimos un registro en blanco } Insert; { añadimos la clave del registro y los campos comunes } FieldByName('ESTACION').AsString := strClave; FieldByName('FECHA_UNIX').AsInteger := 0; end else Edit;