Procedimiento completa de basura otras variables

[Enan0]

Empezado por adfa

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).

Para serte sincero, yo tampoco se para que lo hace.. pero bueno. ahi estaba desde antes, lo he corrido con el Randomize comentado, y la parecer no produce ningun cambio, (por lo menos no es lo que genera el error), asique no le preste mayor importancia.

Empezado por adfa

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

no, lo que pasaria ahi, es que Se inserta en el length +1, Ejemplo
(string orginal)

'ESTE ES MI STRING'

Si no me equivoco el length es 17, Si hago lo que vos decis seria!

'ESTE ES MI STRING17'
Y no podria completarlo con vasura!! ahora..
El "CPassEmailLen" Tiene una longitud de 50 Entonces Esto quedaria mas o menos asi.
'ESTE ES MI STRING (eL RESTDO DEL ESPACIO EN BLANCO) 17'

Empezado por adfa

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

Bueno a ver ahora.. lo que hace en el for es esto!!
'ESTE ES MI STRING(length 17) a partir del 18, basura hasta el 50' entonces
'ESTE ES MI STRING@#~~#¬€~#@€¬~€¬¬¬€¬sdfasdfasdfsd(hasta 50)17'

Entonces ya se sabe que desde la Pos 17 el resto es todo Verdura...

Bueno espero haber aclarado y perdon, Si se mal interpreto lo del tamaño y la informacion
(talvez estaba un poquito caliente.. con esto que me tenia mal.)

[Enan0]

PErdon Es BASURA y no VASURA , pero no me deja editar

[adfa]

Empezado por Enan0

no, lo que pasaria ahi, es que Se inserta en el length +1, Ejemplo
(string orginal)

'ESTE ES MI STRING'

Si no me equivoco el length es 17, Si hago lo que vos decis seria!

'ESTE ES MI STRING17'
Y no podria completarlo con basura!! ahora..

Bien, entendi la diferencia despues que aclaraste para que era el "CPassEmailLen", pero lo podes hacer sin el setlength igual haciendo:
pw := pw + dupestring(' ',CPassEmailLen-len)+char(len); //la funcion dupestring esta en la unit strutils


Y ahora entendi lo del for, el cual esta bien.
Para mi el único cambio bueno sería el no usar el setlength, proba eso que te puse arriba.

El randomize, fijate si en algun lugar del código se llama a la funcion random, si no es así no tiene sentido. El randomize inicializa el generador de numeros randomicos.

Saludos

[gabrielkc]

Me queda una duda, la variable AuxPsw está declarada de tipo TPassEmailString y tu la envias como parametro por referencia a un procedimiento que recibe un shortstring.

Si por alguna razon la clase TPassEmailString está mal implementada puede que cuando la pasas por referencia, el procedimiento invada posiciones de memoria que no le corresponden.

jeje, haber cala una cosa, declara la variable AcountID antes de cualquier otra variable, es una buena forma de probar que eso no es el error, como la declaras antes, quedaría seguramente en una posición de memoria anterior a la AuxPsw y no tendría porque modificarla, si sigue modificandola entonces al menos sabemos que no es eso

[Enan0]

No hay tal Clase TPASSEmailStirng.. es solo un const!
TPassEmailString = String[CPassEmailLen];
donde CPassEmailleng=50; Que es una tonteria que con usar
TPasEmailsTring=String[50] ya eta. pero bueno como se usa por otros lados (el CPAss....) esta declarado..
Lo mas extraño de todo es Que "solo hace en esta unidad" en el resto funciona Bien..,
Si te fijas he comentado una funcion (en linea superior al procedimiento) que es exactamente lo mismo, pero Funcion..
Y no da problemas..
Bueno como dije.. es muy extraño..

[gabrielkc]

haber, haber.

Para empezar
No hay tal Clase TPASSEmailStirng.. es solo un const!

Dices la frase como diciendo........... no seas tonto, como crees que va a haber tal clase.......... al menos así suena. Si no das información suficiente, no puedes quejarte de que uno no pueda ayudarte como tu quisieras. Recuerda que uno lo hace con la mejor intención e inviertimos 1 minuto de nuestro tiempo sin necesidad de hacerlo, así es que POR FAVOR, trata de ser cortéz


TPassEmailString=string[cPassEmailString];

En la imagen que posteas dice:
var
AuxPsw:TPassEmailString;

una constante..... creo que tengo un problema, yo pensaba que las constantes se declaraban difetente .

Ese tipo de errores SIEMPRE son culpa del programador. Si estás cerrado a las posibilidades, vas a dejar de aprender mucho.

Ahi te dejo mi propuesta, declara la variable AcountID antes de la AuxPsw declarada como TPassEmailString. y ejecuta el programa, perderías 30 segundos.......... pero es tu decisión obviamente

[Enan0]

Empezado por gabrielkc

Dices la frase como diciendo........... no seas tonto, como crees que va a haber tal clase..........

NOOO ni en pedo quise decir ESO.. solo comento que no hay tal Clase que es solo una Constante.. NADA MAS!! por favor no me mal interpretes que ya paso arriba y la verdad que en mi y en el tiempo que estoy en el foro.. jamas ah pasado esto.! asique no no!!!!

solo digo que no es eso.,. y perdon. esta delcarado como un Type..

Y sii obvio que hize la prueva que me dijiste..,
Tambien la declare (para probar) global al formulario.. y tambien como privada...

Y todo igual!

Tambien como comente.. lo solucione declarandolo como un Function!!

El tema del post.. es para ver si a alguien le ha pasado. y esas cosas. y tambien te agradezco por tu tiempo..
PD. el PROCEDIMIENTO luego lo llamo en otras unidades y no genera dicho error..
es muy "loco" lo que hace.

un saludo y muchas gracias por tu tiempo