Alan Vieceli wrote:
> até seria..só que seguinte...
>
> tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de
> caracteres...tipo...
>
> #$4#45#$54f5'b'...
>
> dai se grava esse falar no banco de dados..só que...isso não são
> strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um
> monte de problema..dai queria conversar isso tudo pra string q resolvia
> meu problema
Converte sua string em hexa, mais ou menos assim:
function Converte(const AEntrada: string): string;
var
I: Integer;
begin
SetLength(Result, 2 * Length(AEntrada));
for I := 1 to Length(AEntrada) do
Move(IntToHex(Ord(AEntrada[I]), 2)[1], Result[2 * I - 1], 2);
end;
Depois 'desconverte', mais ou menos assim:
function Desconverte(const ASaida: string): string;
var
I: Integer;
begin
SetLength(Result, Length(ASaida) div 2);
for I := 1 to Length(Result) do
Result[I] := Chr(StrToInt('$' + Copy(ASaida, 2 * I - 1, 2)));
end;
Nem preciso dizer que você vai precisar do dobro do espaço no campo. E
nem preciso dizer também que fiz só um rascunho, daí depois você conta
se funcionou.
Joao Morais
