[kalibur16]

Hola, mi nombre es geovana y estoy haciendo una pequeña base de datos en delphi.

El problema es el sig, tengo una hoja de excel con datos los cuales los grabo con la extencion dbf para poder manejarlo como una tabla paradox, en mi database, los datos que manejo en la tabla son (localidad, hora, nivel del mar y fecha), estos datos a su vez los insertare en una db.

Ahora el codigo que tengo es el sig

procedure TFormCaptMarXLS.BitBtn1Click(Sender: TObject);
var
Tiempo : Tdatetime;
begin
Table1.Open;
Table2.Open;
While Not Table1.EoF Do
Begin
Table2.Last;
Table2.Insert;
Table2.fieldByName('Localidad').AsString := Table1.FieldByName ('Localidad').AsString;
Table2.fieldByName('Fecha').AsDateTime := Table1.FieldByName('Fecha').AsDateTime;
Table2.fieldByName('Hora').AsDateTime := StrToTime(Table1.FieldByName('Hora').AsString+'m.');
Tiempo := StrToTime('10:10:00 a.m.');
Table2.fieldByName('Nivel_Mar').AsInteger := Table1.FieldByName('Nivel_Mar').AsInteger;
Table2.Post;
Table1.Next;
end;
Table2.Close;
Table1.Close;

end;

el error que me esta marcando es que la hora sale que no es valida, y no se inserta en la tabla, que puede ser? o como puedo manejar la hora para poder insertarla en la tabla sin problema, los demas datos si los inserta pero la hora no.

En la forma tengo dos componentes Ttable, uno para conectar la tabla a la cual quiero que se inserte los datos y la otra la conecto al archivo.dbf la cual tiene los datos que quiero insertar.

que podra ser??? Espero y me puedan ayudar con esto!!!

Saludos !!! desde Ensenada