Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   No tengo idea de como hacer esto (https://www.clubdelphi.com/foros/showthread.php?t=66034)

Alejo15x 28-01-2010 21:06:17

No tengo idea de como hacer esto
 
Buenas!

Estoy diseñando una aplicaciòn para administrar algunas cosillas.
Tengo 1 TListBox, en el cual se rellenara con las "cosillas".
En el formulario, poseo:

2 TLabel, y 2 TTextBox.

Donde se ejecuta el ejecutable, tengo una carpeta llamada "Lista".

Ahora me explico cual es mi cometido, necesito saber como hacer para que al iniciar la aplicaciòn cargue por ejemplo 2 archivos ".TXT", en los cuales en la TListBox 1 me llene esos 2 archivos por sus nombres, ejemplo (Objeto1.txt, Objeto2.txt). y que cuando el usuario de click en el Objeto1 que esta en la TListBox, el programa cargue ese archivo, y me rellene los 2 TTextBox, con las 2 strings dentro del archivo ... Que la verdad no se como hacerlo :S

Les agradecere un monton si me darian un ejemplo, o mejor aùn si es una base de datos "SQLITE o SQL", un saludote!

rgstuamigo 28-01-2010 21:55:29

1 Archivos Adjunto(s)
Lo mas conveniente que veo que hagas es usar un componente TFileListBox(Pestaña Win 3.1 de la paleta de componentes ;)) en lugar de tu ListBox, ya que el FileListBox tiene su propiedad Mask(Máscara), con la cual puedes filtrar las extensiones de archivos que quieras que se muestra en sus Item, y es mas especialista en el manejo de archivos, con lo cual te vas ahorrar bastante código. ;). En este caso hay que poner dicha propiedad en :
Cita:

Mask=*.txt
Ahora en el evento OnClick del FileListBox tan solo pones un codigo como éste:
Código Delphi [-]
procedure TForm1.FileListBox1Click(Sender: TObject);
var L:TStrings;
begin
if FileListBox1.ItemIndex >- 1 then  //if se ha selecionado un item valido
  begin
    L:=TStringList.Create;//creo una lista de String
    L.LoadFromFile(FileListBox1.Items[FileListBox1.ItemIndex]);//leo desde 
//el archivo que tengo selecionado en mi FileListBox a mi lista
    Edit1.Text:=L.Strings[0];// asigno la primera linea que tengo en mi lista a mi primer edit
    Edit2.Text:=L.Strings[1];// asigno la segunda linea que tengo en mi lista a mi segundo edit
    L.Free;//libero mi lista
  end;
end;
Pero de todas manera te estoy adjuntado un archivo ejemplo que espero te sea de utilidad.;)
Nota: El ejemplo esta hecho en Delphi 7, tan solo debes abrir el archivo .dpr y compilar.
Saludos...:)

Alejo15x 28-01-2010 23:42:14

Muchas gracias!!!
Este ejemplo lo guardare de por vida! Jjeejeje! Me a ayudado en lo que pedia! Un saludote!


La franja horaria es GMT +2. Ahora son las 16:22:50.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi