Insertar dato en Tabla Paradox

[Abuelo7]

Hola amigos.

Tengo una tabla con 2 campos, Usuario y Fecha.

Lo que quiero es insertar en el campo Usuario el contenido de un Edit1.Text

He hecho un código pero no me funciona.

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
        if Key=#13 then
 begin
        Table1.Open;

        Table1.Append;
        Table1.fieldByName('Usuario').Value := Edit1.Text;

        end;
 begin
        Table1.Close;
        Edit1.Text :='';

        end;
        end;

end.

Que hago mal?

Gracias

Manuel

[roman]

A primera vista, parece que te falta poner

Código Delphi [-]
Table1.Post;

después de la asignación del Edit.

// Saludos

[Abuelo7]

Hola Roman.

Gracias, ha funcionado perfectamente ahora.

Una pregunta:

Tengo que introducir el campo fecha. Supongo que Table1.Post debo colocarlo una vez asignado el Edit y la fecha.

Es así?

Gracias

Manuel

[roman]

Así es. Post lo que hace es mandar a la base de datos todos los cambios que hagas en el registro actual (en este caso el registro nuevo).

// Saludos

[[eduarcol]]

Solo agregar que al tratarse de BDE y paradox hay que darle el flushbuffer en el afterpost

[roman]

¡Ah caray! Pues yo el FlushBuffers sólo lo he usado cuando tengo un Query con CachedUpdates en true y necesito relanzar la consulta; o bien, cuando necesito que otras estaciones vean de inmediato los cambios.

// Saludos