Usuarios, passwd y listbox??

[Casimiro Noteví]

Creo que no está muy claro, exactamente, lo que quieres conseguir. Creo que estás intentando solucionar algo de forma no demasiado correcta. Deberías centrarte primero en explicar claramente la problemática que necesitas solucionar. Luego buscar la mejor solución para esa problemática. Finalmente implementar esa solución.
Tú estás empezando por la última parte, sin saber si es la mejor solución para esa problemática.
Es mi parecer, puede que no haya entendido bien.

[JuancaDJ]

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;

Esto me quedó asi:

Código Delphi [-]
procedure TForm2.FormActivate(Sender: TObject);
begin
  label2.Caption:=form1.Edit1.Text;
  timer1.Enabled:=true;
  memo1.Lines.LoadFromFile('/veryimport/data/time/' + form1.Edit1.Text + '.time');
  labeltimer.Caption:=memo1.Lines.Text;
end;

Referente a la problematica que tengo es simple, la idea era usar una Base de Datos pero ya por las razones expuestas no pude usarla y tuve que usar ficheros txt para mi solucion.

[ecfisa]

Hola JuancaDJ.

Otra opción que podrías considerar es usar un TClientDataSet en memoria y manejarlo como si estuviera conectado a una bd usando los métodos LoadFromFile y SaveFromFile para plasmar y recuperar los datos en tu archivo.

Te pongo un ejemplo básico del control de ingreso:

Código Delphi [-]
...
implementation

var
  gFileName : string;

procedure TForm1.FormCreate(Sender: TObject);
var
  fld: TField;
  cds: TClientDataSet;
begin
  cds := ClientDataSet1;

  // ~ (*)
  fld := TStringField.Create(cds);
  fld.FieldName := 'NAME';
  fld.DataSet   := cds;
  fld := TStringField.Create(cds);
  fld.FieldName := 'PASSWORD';
  fld.DataSet   := cds;
  // ~

  cds.CreateDataSet;
  gFileName := ExtractFilePath(Application.ExeName) + 'ARCHIVO.CDS';
  if FileExists(gFileName) then
    cds.LoadFromFile(gFileName);
  cds.Open;
end;

procedure TForm1.btnAceptClick(Sender: TObject);
begin
  if not ClientDataSet1.Locate('NAME', EditName.Text, []) then
    raise Exception.Create('Nombre de usuario inexistente');

  if EditPassword.Text <> ClientDataSet1.FieldByName('PASSWORD').AsString then
    raise Exception.Create('Contraseña incorrecta');
  //...
  ShowMessage('¡ Bienvenido !');
end;

//....
procedure TForm1.FormDestroy(Sender: TObject);
begin
  ClientDataSet1.SaveToFile(gFileName);
end;

(*) los campos podes crearlos en tiempo de diseño pero lo hice en ejecución para clarificar.

Me valí de Edits para simplificar el ejemplo, pero no tendrías problemas en beneficiarte usando los controles de la pestaña DataControls como si el CDS estuviese conectado con una BD.

Saludos

[JuancaDJ]

Muchas gracias por ese codigo, que tendre que estudiarlo a ver si lo implemente para posterior actualizacion de mi aplicacion jeje, ya que la tengo casi terminada usando los txt jejeje
Ahora tengo una duda sumamente importante que viene siendo un BUGS critico en mi sistema jeej y es el siguiente:
Tengo este codigo en estas funciones:

Código Delphi [-]
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
memo1.Lines.Text:=labeltimer.Caption;
memo1.Lines.SaveToFile('/veryimport/data/time/' + form1.Edit1.Text + '.time');
form1.Close;
end;

Código Delphi [-]
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
memo1.Lines.Text:=labeltimer.Caption;
memo1.Lines.SaveToFile('/veryimport/data/time/' + form1.Edit1.Text + '.time');

form1.Close;
end;

Código Delphi [-]
procedure TForm2.FormDeactivate(Sender: TObject);
begin
memo1.Lines.Text:=labeltimer.Caption;
memo1.Lines.SaveToFile('/veryimport/data/time/' + form1.Edit1.Text + '.time');
form1.Close;
end;

Código Delphi [-]
procedure TForm2.FormDestroy(Sender: TObject);
begin
memo1.Lines.Text:=labeltimer.Caption;
memo1.Lines.SaveToFile('/veryimport/data/time/' + form1.Edit1.Text + '.time');
if labeltimer.Caption='00:00:00' then
WinExec(PChar('/veryimport/data/offtime.bat'),SW_SHOWNORMAL);
form1.Close;
end;

Como pueden ver todo eso lo tengo implementado pues si la aplicacion es cerrada, o la PC reiniciada necesito que guarde el ultimo tiempo que estaba ejecutandose antes del cierre de la aplicacion, pero hay un problema y es que si ejecuto el administrador de tareas y mato ese proceso no guarda el tiempo, entonces necesito saber como corregir ese fallo u ocultar el proceso del administrador de tareas
Otra cosa, en el evento ondestroy eso llama a un .bat que cierra la sesion del sistema operativo, por lo que igual si el proceso es matado ademas de guardar el ultimo tiempo cierre la session del sistema operativo. Gracias.