Tablas DBF

[manuelpr]

Hola,

Tengo problemas con el indice de tablas DBF, uso indices compuesto y mi sintaxis es:

Table2.IndexName := 'Rmeta04';
Table2.SetKey;
Table2.Fields[0].AsString := Combobox1.Text;
Table2.Fields[1].AsString := Edit2.Text;
Table2.Fields[2].AsString := RxDbGrid2.Fields[2].AsString;
if Table2.GotoKey then
Begin


Este codigo indica que registro existe, pero resulta que del ultimo campo indice lee los primeros 10 caracteres (el campo es de 13), y esto hace que detecte registro que son iguales hasta los 10 caracteres y a probocado que se eliminen registro que no deberian.

Si alguien me puede ayudar por favor, gracias

[marcoszorrilla]

Podrías probara a comprobar por código que los registros son exactamente iguales al que deseas borrar, por ejemplo
Var
Mibusqueda:String;

MiBusqueda:=v1+v2+v3;

Si concatenas lo que quieres buscar, quitando espacios en blanco si fuera necesario.

Cuando GotoKey te diga que encontró el registro, en vez de eliminar, haces una comparación de la concatenación de campos, con la variable cargada previamente y solamente eliminas los que la comparación te confirme que son exactamente iguales y no los que solamente coincidad en los primeros caracteres únicamente.

Un Saludo.