Añadir archivo .text a combobox (Nombre)
 

Hola a Todos y gracias por vuestras respuestas de antemano.
Tengo una duda, a ver si se puede hacer.
Tengo una serie de archivos .text en C:\.
Hay alguna manera de añadir estos archivos a un combobox o algun otro componente para poder visualizarlos?
Me refiero al nombre de estos, no su contenido.
Gracias.
Saludos

¿Esto?....

Código Delphi [-]
var
  sr: TSearchRec;
begin
  ComboBox1.Items.Clear;
  if FindFirst('c:\*.txt', faArchive, sr) = 0 then
  begin
    repeat
      ComboBox1.Items.Add(sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;

Saludos!

Yo usaria un FileListBox, solo le asigno el Mask *.text

Salud OS.

Hola
Perfecto, no me canso de decirlo sois unos maestros, que envidia.:)
Saludos

Hola
Gracias por vuestra ayuda, otra pregunta al caso:
Como borro un archivo, usando el evento OnChange del combobox.
Que al seleccionar un item este borre el archivo seleccionado.
Gracias
Saludos

Usa la función DeleteFile(archivo) donde archivo es el nombre del archivo que seleccionas-

Salud OS.

Edito

Código Delphi [-]
if FileExists(Archivo) then
  DeleteFile(Archivo);

Hola Amigo.
No me camina esto, asi:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   DeleteFile(ComboBox1.Text);
end;

Seguro no lo hago bien.
Saludos

Me imagino que te hace falta la Ruta

C:\.....

Salud OS.

Un método artesanal para añadir los txt al combo:

Código Delphi [-]
var
  ComboBoxInfo: TComboBoxInfo;

begin
  ComboBoxInfo.cbSize := SizeOf(ComboBoxInfo);
  GetComboBoxInfo(ComboBox1.Handle, ComboBoxInfo);
  SendMessage(
    ComboBoxInfo.hwndList,
    LB_DIR,
    DDL_ARCHIVE,
    Integer(PChar('c:\ruta\a\la\carpeta\*.txt')));
end;

// Saludos

Gracias Amingo, eres un maestro.
Hay dias en que estoy cerrado, no entiendo nada.
Era asi:

Código Delphi [-]
 DeleteFile('c:\Dias\'+ComboBox1.Text);

Gracias por tu ayuda.
Saludos

Hola Roman
Si, Artesanal.:D :D
Para un Maestro tal vez.:)
Saludos

Me deja con los ojos abiertos esa forma ARTESANAL de hacer las cosas....:rolleyes::rolleyes::rolleyes:

Salud OS