Procedimiento completa de basura otras variables

[Enan0]

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);//establece la nueva longitud
   pw[CPassEmailLen+1]:=Char(Len);//en el final incluye cual es el length del texto original
   for i:=Len+1 to CPassEmailLen do //luego de la longitud del string completa con basura
      pw[i]:=Chr(Ord(pw[i-Len])+(i*7)+2);
end;

[antrahxg]

Yo no veo en realidad cual es el problema se supone que la variable pw que pasas como parametro es la que se llena con basura pero dices

Empezado por Enan0

Luego de ejecutar dicho procedimiento, TODAS las variables que estubieran dentro del Procedimiento Padre/Abuelo, Son completados con basura.

Yo no veo que otras variables pueden ser llenadas con basura, podrias especificarlo un poco mas.

[Enan0]

La verdad que no puedo.. eso es todo lo que hace.. y desgraciadamente Si lo hace.. para que lo vieras deberia tener que pasarte Todo el codigo fuente y como te inmaginaras no puedo hacer eso...
Ya se que es un procedimiento sencillo pero bueno..
Si me completa de basura el resto de las Variables..

[Mick]

Empezado por Enan0

La verdad que no puedo.. eso es todo lo que hace.. y desgraciadamente Si lo hace.. para que lo vieras deberia tener que pasarte Todo el codigo fuente y como te inmaginaras no puedo hacer eso...
Ya se que es un procedimiento sencillo pero bueno..
Si me completa de basura el resto de las Variables..

Si pides ayuda, lo minimo es dar la informacion necesaria para que se pueda resolver el problema. Si no puedes por problemas de licencias, no has venido al sitio adecuado, en ese caso contrata una empresa que te de soporte y repercute los costes a los clientes a los que venderas el programa.

Saludos

[Enan0]

Empezado por Mick

Si pides ayuda, lo minimo es dar la informacion necesaria para que se pueda resolver el problema. Si no puedes por problemas de licencias, no has venido al sitio adecuado, en ese caso contrata una empresa que te de soporte y repercute los costes a los clientes a los que venderas el programa.

Saludos

Mick perdoname, pero creo que estoy pasando la funcion/procedimiento que produce el error, o acaso, pretendes que te suba 250 mb de codigos fuentes mas todos los paquetes que se requiere, y si, obvio que por licencias y otras cosas no puedo subir el codigo.

Pero bueno,
Disculpa o cerremos el tema

[adfa]

Hola Enan0, creo que la intención de Mick es ayudarte y no creo que la idea de el fueran muchos megas de código.

Hay cosas que no entiendo:
1) el Randomize, en ningun lugar del procedimiento llamas a la funcion Random (lo unico que hace ahi es liar a quien intente ayudar, pero tu tendras tus motivos).

2) porque usar el setlength, y cargar la posicion no es lo mismo hacer:
pw := pw + char(len);

3) el for me parece que debería de ser desde len+2

Pero si decis que el código esta bien, basta para mi
Lo que no me doy cuenta porque decis que te completa el resto de las variable con basura, al menos no deberia.

Saludos desde la otra orilla.