Añadir archivo .text a combobox (Nombre)

[[Caral]]

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

[delphi.com.ar]

¿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!

[[egostar]]

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

Salud OS.

[[Caral]]

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

[[Caral]]

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

[[egostar]]

Empezado por Caral

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);

[[Caral]]

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

[[egostar]]

Empezado por Caral

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.

[roman]

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

[[Caral]]

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

[[Caral]]

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

[[egostar]]

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

Salud OS