Llenar combobox con el contenido de un folder

[Neftali [Germán.Estévez]]

Si no recuerdo mal, el truco número 15 lista todos los ficheros de un directorio hacia un TStrings, a partir de la ruta del directorio.
Basta con que a cada línea le apliques un ExtractFileName para desechar el path y quedarte sólo con el nombre y luego hacer un Add para añadilo al combo.

No se si me expliqué bien...

[[enecumene]]

Vale no te preocupes ahora mismo revisare el truco 15 y luego te comento.

Saludos.

[Neftali [Germán.Estévez]]

Me refería a algo así, vamos...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS:TStrings;
  i:Integer;


  procedure ArchivosDirectorio(dir, mascara: string;
    var lista: TStrings; const soloNombres: boolean);
  var
    SR: TSearchRec;
  begin
    dir := IncludeTrailingPathDelimiter(dir);
    if FindFirst(dir + mascara, faAnyFile, SR) = 0 then
    begin
      repeat
        if not soloNombres then
          lista.Add(ExtractFileName(ChangeFileExt(dir + SR.Name, '')))
        else
          lista.Add(dir + SR.Name);
      until FindNext(SR) <> 0;
      SysUtils.FindClose(SR);
    end;
  end;

begin

  TS := TStringList.Create();
  try
    ArchivosDirectorio(Edit1.Text, '*.bmp', TS, True);

    for i := 0 to (TS.Count - 1) do begin
      TS.Strings[i] := ExtractFileName(TS.Strings[i]);
    end;


    ComboBox1.Items.Clear;
    ComboBox1.Items.AddStrings(TS);
    ComboBox1.ItemIndex := 0;

  finally
    FreeAndNil(TS);
  end;

end;

[[enecumene]]

Excelente Amigo Neftali me funcionó perfecto era lo que estaba buscando, estaba haciendo algo asi con el truco 15:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
procedure FindFiles(StartDir, FileMask: string; recursively: boolean; var FilesList: TStringList);
  const
    MASK_ALL_FILES = '*.*';
    CHAR_POINT = '.';
  var
    SR: TSearchRec;
    DirList: TStringList;
    IsFound: Boolean;
    i: integer;
  begin
    if (StartDir[length(StartDir)] <> '\') then begin
      StartDir := StartDir + '\';
    end;
  
    // Crear la lista de ficheos en el directorio StartDir (no directorios!)
    IsFound := FindFirst(StartDir + FileMask, faAnyFile - faDirectory, SR) = 0;
    // MIentras encuentre
    while IsFound do  begin
      FilesList.Add(StartDir + SR.Name);
      IsFound := FindNext(SR) = 0;
    end;
  
    FindClose(SR);
  
    // Recursivo?
    if (recursively) then begin
      // Build a list of subdirectories
      DirList := TStringList.Create;
      // proteccion
      try
        IsFound := FindFirst(StartDir + MASK_ALL_FILES, faAnyFile, SR) = 0;
        while IsFound do
        begin
          if ((SR.Attr and faDirectory) <> 0) and
            (SR.Name[1] <> CHAR_POINT) then
            DirList.Add(StartDir + SR.Name);
          IsFound := FindNext(SR) = 0;
        end;
        FindClose(SR);
  
        // Scan the list of subdirectories
        for i := 0 to DirList.Count - 1 do
          FindFiles(DirList[i], FileMask, recursively, FilesList);
      finally
        DirList.Free;
      end;
    end;
  end;
end;

Pero no me daba, con este ultimo codigo que posteaste me funciona excelente, Garcias Neftali por tu tiempo os agradezco.

Saludos.