Hola Amigos ante todos Muchas gracias , aca ando un problemita!!
Tengo un procedimiento el cual completa con basura una variable de texto, de longitud definida, el problema es el siguiente. Luego de ejecutar dicho procedimiento, TODAS las variables que estubieran dentro del Procedimiento Padre/Abuelo, Son completados con basura.
lo solucione convirtiendolo en una Funcion, pero bueno dicho procedimiento ya estaba implementado. y no entiendo el porque de la destruccion de todas las variables.
el codigo
Código Delphi
[-]
Procedure FillWithGarbageEmail(var pw: ShortString);
var
Len, i: Integer;
begin
Randomize;
Len:=Length(pw);
SetLength(pw,CPassEmailLen+1); pw[CPassEmailLen+1]:=Char(Len); for i:=Len+1 to CPassEmailLen do pw[i]:=Chr(Ord(pw[i-Len])+(i*7)+2);
end;