Mostrar una stringlist en algun tipo de tabla

[turminator]

Después de pensar un rato, creo que me conviene más usar TStringGrid ya que quizás en un futuro me sea útil meterle más de un valor por elemento.

Mi idea para este ejercicio era aprovechar la función que publicó David Esperalta acerca de como buscar archivos en un directorio y mostrarlos en una TString list

Código Delphi [-]
(*

  Busca y lista los archivos que cumplan con determinada
  máscara y que se encuentren en un determinado directorio
  y/o dentro de los subdirectorios del mismo.

  Parámetros:

  directorio: en el que buscar, por ejemplo: C:\
  mascara: de archivo, por ejemplo: *.txt
  atributos: de los archivos, por ejemplo: faAnyFile
  listado: donde guardar los posibles resultados (1)

  (1) Rutas completas de los archivos encontrados

*)

procedure BuscarArchivos(const directorio, mascara: string;
  atributos: Integer; var listado: TStrings);

  // Procedimiento anidado
  //
  procedure Buscar(const subdirectorio: string);
  var
    regBusqueda: TSearchRec;
  begin
    // Buscar en el directorio
    if FindFirst(subdirectorio + mascara,atributos,regBusqueda) = 0 then
    begin
      try
        repeat
          Application.ProcessMessages;
          if (regBusqueda.Attr and faDirectory = 0)
            or (regBusqueda.Name <> '.')
              and (regBusqueda.Name <> '..') then
                listado.Add(subdirectorio + regBusqueda.Name);
        until FindNext(regBusqueda) <> 0;
      except
        FindClose(regBusqueda);
      end;
      FindClose(regBusqueda);
    end;
    // Buscar en los subdirectorios
    if FindFirst(subdirectorio + '*', atributos
      or faDirectory, regBusqueda) = 0 then
    begin
      try
        repeat
          Application.ProcessMessages;
          if ((regBusqueda.Attr and faDirectory) <> 0)
            and (regBusqueda.Name <> '.')
              and (regBusqueda.Name <> '..') then
                Buscar(subdirectorio + regBusqueda.Name + '\');
        until FindNext(regBusqueda) <> 0;
      except
        FindClose(regBusqueda);
      end;
      FindClose(regBusqueda);
    end;
  end;
   //
  // Fin del procedimiento anidado:
 // Comienza "BuscarArchivos(...)"
//
begin
  Buscar(IncludeTrailingPathDelimiter(directorio));
end;

// Ejemplo de llamada a BuscarArchivos(...)
//
procedure TForm1.Button1Click(Sender: TObject);
var
  lista: TStrings;
begin
  lista := TStringList.Create;
  BuscarArchivos('C:\', '*.exe', faAnyFile, lista);
  ShowMessage(lista.Text);
  lista.Free;
end;

Creo que el error de esta aplicación se halla en que la función BuscarArchivos, está programada para que el resultado sea visualizado en una lista TStrings y no en una TStringGrid (la variable listado es un TString y no un tStringGrid). He probado en modificar levemente la función, pero me da error: creo que puede deberse a la siguiente sentencia:
listado.add(subdirectorio + regBusqueda.Name); ya que la propiedad .add es para el componente TString y no para el TStringGrid.

Donde me estoy equivocando?

Saludos!

[[eduarcol]]

El error como bien lo dices es que el Grid no tiene el metodo Add. Tendrias que escribir directamente sobre la celda que quieras insertar o utilizar el metodo ADD del Row

Replaces the first empty string with a specified string.

Delphi syntax:

function Add(const S: string): Integer; override;

C++ syntax:

virtual int __fastcall Add(const AnsiString S);

Description

Call Add to add a string to the list. Add searches the list for an empty string and replaces it with S. It then returns the index where it added S to the list. If there are no empty strings in the list, Add does not add S to the list and returns –1.

Ejemplo

stringgrid1.Rows[1].Add(subdirectorio + regBusqueda.Name);