Usuarios, passwd y listbox??

[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

[rocksoft]

Justamente

en esta linea esta la magia:

Código Delphi [-]
ix := User.IndexOf(edUser.Text);  // En ix el índice del nombre de usuario o -1 si no existe

la explicación: LINK

[JuancaDJ]

Muchas gracias, heche a andar el ejemplo que me dieron y me sirvio de maravillas pero tengo un problema, ya que si analizan el primero post, ese usuario necesitaba cumplir con ciertos requisitos, que ya con este codigo me ayudaron mucho, pero una vez que ese usuario era valido, se cargarma un segundo formalario que controlaba el tiempo disponible de ese usuario, es tipo un cibercafe, si tienes tiempo puedes hacer esto o aquello si no no, entonces el segundo form tenia esto:

Código Delphi [-]
procedure TForm2.FormActivate(Sender: TObject);
begin

//usuario 0
//timer1.Enabled:=true;
if form1.Edit1.Text=form1.ListBox1.Items.Strings[0] then
memo1.Lines.LoadFromFile('/veryimport/data/time0.dll');
labeltimer.Caption:=memo1.Lines.Text;

// usuario 1
//timer1.Enabled:=true;
if form1.Edit1.Text=form1.ListBox1.Items.Strings[1] then
memo1.Lines.LoadFromFile('/veryimport/data/time1.dll');
labeltimer.Caption:=memo1.Lines.Text;

end;

end.


procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//usuario 0
memo1.Lines.Text:=labeltimer.Caption;
if form1.Edit1.Text=form1.ListBox1.Items.Strings[0] then
memo1.Lines.SaveToFile('/veryimport/data/time0.dll');
form1.Close;

//usuario1
if form1.Edit1.Text=form1.ListBox1.Items.Strings[1] then
memo1.Lines.SaveToFile('/veryimport/data/time1.dll');
form1.Close;

¨Timer¨¨

LabelTimer.Caption:= FormatdateTime('hh:mm:ss',StrToDateTime(LabelTimer.Caption) -0.00001);
if labelTimer.caption='00:00:00' then
form1.Close; //Se cierra la aplicacion

CVomo pueden ver cuando en el form1.edit1 se insertaba cierto usuario entonces ese form2 cargaba el fichero tiempo que controlaba ese usuario, entonces la pregunta es, puede prescidir de crear cientos de ficheros tiempo y hacer tipo el de usuario y contraseña¿, o sea que cargue de una lista el que pertenece a cada usuario y finalizada su session guarde en ese mismo lugar el valor con el que termina u obligatoriamente si tiene que hacerse cientos de ficheros, uno por usuario??
Gracias

[rocksoft]

Hola JuancaDJ,

no se pero creo que te estas enredando tu solo con tanto arquivo, por que no usas una base de datos plana y te ahorras muchos problemas, o en el peor de los casos, crea un solo archivo, lo importas en una tabla de memoria y tienes practicamente el uso como si fuera una base de datos.

Ademas no es una buena practica lo que estas haciendo preguntado el estado de un componente de otra unit, muy aparte de que empiezas a repetir codigo, que pasaria si tienes 300 usuarios, mejor le pasas la variable a la forma2 que es el index de tu listbox que seria ix= 0; y te ahorras lo que esta en rojo

Código Delphi [-]
procedure TForm2.FormActivate(Sender: TObject);
begin

//usuario 0
//timer1.Enabled:=true;
if form1.Edit1.Text=form1.ListBox1.Items.Strings[0] then
memo1.Lines.LoadFromFile('/veryimport/data/time'+inttostr(ix)+'.dll');
labeltimer.Caption:=memo1.Lines.Text;

// usuario 1
//timer1.Enabled:=true;
if form1.Edit1.Text=form1.ListBox1.Items.Strings[1] then
memo1.Lines.LoadFromFile('/veryimport/data/time1.dll');
labeltimer.Caption:=memo1.Lines.Text;

end;