Usuarios, passwd y listbox??

[ecfisa]

Hola.

Me resulta confuso el planteo, no se si entendí lo que buscas...

Si interpreté bién no veo la necesidad de usar dos TListBox, podrías hacer algo similar a esto:

Código Delphi [-]
....
var
  User, Password: TStrings;

procedure TForm1.FormCreate(Sender: TObject);
begin
  User     := TStringList.Create;
  Password := TStringList.Create;
  User.LoadFromFile('Users.txt');
  Password.LoadFromFile('Passwords.txt');
end;

procedure TForm1.btnAceptaClick(Sender: TObject);
var
  ix : Integer;
  pIn,uIn: Boolean;
begin
  ix := User.IndexOf(edUser.Text);
  uIn := ix <> -1;
  if uIn then
    pIn := edPassword.Text = Password[ix];
  if not (pIn and uIn) then
    raise Exception.Create('Nombre de usuario o contraseña incorrectos');
  //...
  //...
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  User.Free;
  Password.Free;
end;

Saludos

[JuancaDJ]

Bueno no conosco cuales son los Stringlist, estoy usando delphi 7, ademas de que la programacion nunca a sido mi mayor trabajo, ya que las redes me ocuparon mucho tiempo pero ahora cambie de trabajo y necesite crear una aplicacion y delphi siempre fue lo que me gusto y usé pero no a niveles muuyy avanzados
Por favor al que posteo ese codigo puede explicarme mas o menos que es?, ya que hay cosas ahi que no entiendo ni se que funsion cumplen. Gracias
Otra cosa eso del hash es buena idea pero igual en esos temas estoy totalmente botado ejeje

[rocksoft]

Hola JuancaDJ,

veo que ecfisa te lo dio ya todo masticadito, para un copia y pegar.

Yo te recomiendo que pruebes el codigo y cosa que no sepas que es lo marcas y le das a la ayuda de delphi, te sorprenderas

[ecfisa]

Hola JuancaDJ

Empezado por JuancaDJ

Bueno no conosco cuales son los Stringlist, estoy usando delphi 7, ...

Cuando usas la propiedad Items de los TListBox, estas usando TStrings ya que dicha propiedad es de ese tipo.

Por eso es que te digo que no necesitas usar dos ListBox ocultos, podes usar directamente dos variables de tipo TStrings, cuentan con los mismos métodos que la propiedad Items de los ListBox ( LoadFromFile, SaveToFile, Add, etc, etc).

El ejemplo que te puse casi cubre todos los aspectos, me faltó agregarle dos líneas que guarden los cambios:

Código Delphi [-]
...
procedure TForm1.FormDestroy(Sender: TObject);
begin
  User.SaveToFile('Users.txt');
  Password.SaveToFile('Passwords.txt');

  User.Free;
  Password.Free;
end;

Saludos

[JuancaDJ]

Bueno ya me llevo el codigo para probarlo a ver que tal me va, pero sigo sin entender esta parte:

Código Delphi [-]
var   ix : Integer;   pIn,uIn: Boolean; 
begin   ix := User.IndexOf(edUser.Text);
 uIn := ix <> -1;   if uIn then     pIn := edPassword.Text = Password[ix];
 if not (pIn and uIn) then

ademas de que
edUser.Text edPassword que son? dos edit que tengo que tener solamente en el formulario?, ya los listbox no los necesitaria con esta opcion¿?

[ecfisa]

Hola JuancaDJ.

Por favor cuando incluyas código en tus mensaje utiliza TAG's para darle más legibilidad. Te pongo una imágen que explica el uso:


Con respecto a tu última consulta, edUser y edNombre serían los Edits que mencionas en tu primer mensaje. Mientras que los ListBox son innecesarios siendo reemplazados por las variables User y Password de tipo TStrings.

Saludos

[JuancaDJ]

Gracias por el dato de las etiquetas para codigos, pues andaba en busca de eso pero no decia code en ningun lado
Y tambien gracias por aclararme eso de los edit y lo innecesario que resultan los listbox, con esta variable, pero podrias explicarme mas o menos

Código Delphi [-]
ix := User.IndexOf(edUser.Text);   uIn := ix <> -1;   if uIn then     pIn := edPassword.Text = Password[ix];   if not (pIn and uIn) then

Gracias

[ecfisa]

Perdón, olvidé ese punto

Te comento las líneas de código que te resultan confusas:

Código Delphi [-]
var 
  ix : Integer; // variable que almacenará el índice        
  pIn, uIn: Boolean;  // True si logran el acceso, False de otro modo
begin 
  ix := User.IndexOf(edUser.Text);  // En ix el índice del nombre de usuario o -1 si no existe
  uIn := ix <> -1;   // uIn es verdadero si ix <> -1
  if uIn then   // si el nombre existe -> controlar contraseña
     pIn := edPassword.Text = Password[ix]; // pIn es True si la contraseña ingresada = almacenada
  if not (pIn and uIn) then // si al menos uno de los dos es falso
     // Mostrar error
...

Encontrarás una explicación mas detallada en la ayuda de Delphi (estando el cursor sobre el término deseado presiona F1), además te puede resultar útil:

• TStringList
• Algebra de Boole

Saludos

[JuancaDJ]

Ahh yap, pero ese codigo hace lo que plantié en la problematica del incio?
o sea tengo 1 fichero de texto plano con 10 usuarios y otro con 10 contraseñas, por al usuario 1 le corresponde la contraseña 1 del fichero passwd, no es que eso va a escanear el fichero de texto y decir de los 10 usuarios si existe el usuario pepito en el puesto 4, y en el fichero passwd existe la contraseña de pepito en el puesto 10, no no es pepito puesto 4 y la contraseña de pepito igual en el puesto 4