Usuarios, passwd y listbox??

[JuancaDJ]

Hola buenas tardes, tengo la siguiente problematica ya que estoy creando una aplicacion que contiene usuarios y contraseña, esos usuarios estan almacenados en un fichero de texto plano que carga un listbox, y las contraseñas en texto plano tambien que los carga otro listbox, pero ambos listbox estan ocultos, por lo que agregue 2 Edit, uno para usuario y otro para contraseñael tema es el siguiente el codigo me queda asi:

if edit1.text=listbox1.items.string[0] then
if edit2.text=listbox1.items.string[0] then

haga la funcion X y si no, no haga esa funcion, como pueden ver el compara que tanto el usuario y la contraseña esten ubicadas en el mismo orden en los 2 ficheros, o sea fichero usuarios, el primero corresponde a la contraseña ubicada en el primer lugar del fichero passwd

por lo que si tengo 100 usuarios debo estar repitiendo ese codigo 100 veces solo variando el numero del string[]??

PD: No utilizo una Base de datos ya que de momento el ODBC para mysql no he podido bajarlo pues el sitio prohibe las descargas a cuba, pais en el que vivo. Gracias.

[rocksoft]

Hola JuancaDJ,

realmente segun tu descripcion no endiendo lo que pretendes pero me lo puedo imaginar, si ya que tienes dos listbox ocultas, por que no usas un stringlist asi no tienes que ocultar nada.

lo que tienes que hacer es buscar el valor del edit1 en la Stringlist (o listbox), si existe lees el numero de linea[i] con este numero solo tienes que ir a la linea[i] del Listbox2, comparas el valor que encuentas con el edit2 y listo.

para esto te recomiendo usar un Hash o al menos codificar los dos archivos y al importarlos decodificarlos

[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¿?