No es un valor flotante para el campo código

[Kamael]

Tengo este codigo :

If TTable.Findkey(['codigo.Text']) Then
Edit2.Text := TTable.fields[1].AsString ;
If TTable.Findkey(['Nombre.Text']) Then
Edit1.Text := TTable.fields[0].AsString ;

Lo que quiero hacer es que al introducir el codigo, en el campo nombre me de el nombre(que lo hace). Pero al intentarlo al contrario,es decir, introducir el nombre y que me dé el codigo, me da el siguiente errror : No es un valor flotante para el campo codigo.
Campo codigo es nunmerico y el otro es alfanumerico.
Podeis ayudarme?

[ixMike]

¿"Codigo" y "Nombre" son edits? Si es así, ¿por qué no pruebas a quitar esas comillas que has puesto? Así: (por cierto, recuerda utilizar las etiquetas DELPHI en vez de QUOTE para poner código).

Código Delphi [-]
If TTable.Findkey([codigo.Text]) then Edit2.Text := TTable.fields[1].AsString;
If TTable.Findkey([Nombre.Text]) then Edit1.Text := TTable.fields[0].AsString;

Además, si el campo código es Float, ¿no debería ser así:

Código Delphi [-]
If TTable.Findkey([codigo.Text]) then Edit2.Text := TTable.fields[1].AsFloat;
If TTable.Findkey([Nombre.Text]) then Edit1.Text := TTable.fields[0].AsString;

Salu2.

[Kamael]

Gracias por tu respuesta.
Si pongo :

Código PHP:

TTable.FindKey([Nombre.Text]) Then 
Codigo.Text := TTable.Fields[0].AsFloat; 


al compilar me da el siguiente error : 'Imcompatible types String and Double'.
Por eso pido ayuda para poder hacerlo de otra manera, porque a la verdad no se como hacerlo.
Gracias por tu ayuda.
Pd : las comas fueron un lapsus.

[ixMike]

Empezado por Kamael

'Imcompatible types String and Double'.

Perdón, la verdad es que me he apresurado a responder, hace mucho tiempo que no toco las bases de datos

Ah!, las etiquetas código no son PHP, son DELPHI

[Kamael]

No te preocupes, gracias de todos modos.
Si lo consigo sacar te lo haré saber.
Un saludo y gracias por todo.

[Kamael]

Me respondo a mi mismo.
Al utilizar Findkey estoy buscando sobre el campo codigo que es el indice y logicamente si le meto un caracter String al campo me da el error.

Código Delphi [-]
 
If TTable.Findkey([codigo.Text]) Then
Edit2.Text := TTable.fields[1].AsString ;
If TTable.Findkey([Nombre.Text]) Then
Edit1.Text := TTable.fields[0].AsString ;

El error está en la cuarta linea. El campo nombre no es indice.