No tengo idea de como hacer esto

[Alejo15x]

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]

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 :

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]

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