problema al insertar un caracter especial en tablas dbf

[mamcx]

Un NULL es *infeccioso*. NULL con lo que sea da NULL (que es lo que creo que pasa en vl_per[0]+vl_per[1]).

Pero el *caracter* null es un *encoding*. Al igual que "enter" y "tab" (que se identifican por un #). Por lo tanto, debes es guardar el # o el *char* que representa el null, no el valor null (null <> char o # que representa null).

[alvarodelphi201]

Gracias por responder.

Empezado por mamcx

Un NULL es *infeccioso*. NULL con lo que sea da NULL (que es lo que creo que pasa en vl_per[0]+vl_per[1]).

Pero el *caracter* null es un *encoding*. Al igual que "enter" y "tab" (que se identifican por un #). Por lo tanto, debes es guardar el # o el *char* que representa el null, no el valor null (null <> char o # que representa null).

ya intente (creo) hacerlo, tengo el procedimiento

Código Delphi [-]
function TForm1.codificar(n2 :Integer): string; 
var  L,H :Integer; 
begin  
  L:= n2 mod 256;  
  H:= (n2-L) div 256;   
  result:=CHR(H)+CHR(L);  
end;

Que es la copia del procedimiento del programador fox (traducida claro)
Como se puede ver la salida es un string el cual por ejemplo me devuelve en el debug #0'-'
si intento hacer un

Código Delphi [-]
FieldByName('pl_per').AsVariant:= vl_per;

no me inserta en ese campo nada (aparentemente) pero creo que me inserta el null (#0) y el resto de la cadena no lo cual lògicamente al hacer el desencriptado me devuelve valores incorrectos.

En el ejemplo #0'-' deberia devolverme al desencriptar 175 y me devuelve 8565.
probe con otros valores y solo tengo ese problema cuando el encriptador me retorna el #0 primero.

La verdad no se como hacer lo que indicas, si es que me puedes dar un ejemplo por favor te lo agradeceria.