Como leer varias lineas en un archivo .ini
 

Hola a todos
Pues estoy creando una aplicacion que manejará varias rutas de archivos, que las guarda en una archivo .ini.
Al iniciar la aplicacion, esta debe leer el archivo de rutas (.ini) y cargarlas en un stringrid.
Las rutas se pueden añadir o eliminar, tantas como se necesite.


Se como crear el .ini, y tambien como leer una clave con ReadString, conociendo el nombre de la clave.


Pero como no se sabe cuantas rutas estan guardadas, pues estas pueden variar con cada ejecucion del programa, no se como leerlas para cargarlas en el StringGrid.


La estructura del ini seria como esta:


[Destinos]
destino1=d:\carpeta1
destino2=d:\ruta2
...
destinoN=e:\laotraruta



Como puedo cargar todas esas rutas en el stringGrid ?

Como los archivos .ini son solo archivos de texto plano, se me ocurre que lo cargues con un TStringList.
Su un índice de ese Stringlist es '[Destinos]', entonces el siguiente lo tratas hasta final del archivo o hasta que sea un '[Algo]'

Hola.

Un ejemplo, de como podrías cargar las líneas en un TStringGrid.

Código Delphi [-]
var
  ini: TIniFile;
  TS : TStrings;
begin
  ini := TIniFile.Create('archivo.ini');
  TS  := TStringList.Create;
  try
    ini.ReadSectionValues('Destinos', TS);
    StringGrid1.RowCount := TS.Count; // lineas necesarias
    StringGrid1.ColWidths[0] := 300; // espacio necesario para mostrar el texto
    StringGrid1.Cols[0] := TS;
  finally
    ini.Free;
    TS.Free;
  end;
end;

Saludos :)

Gracias por la respuesta, pero no me funciono como se esperaba al llenar el stringgrid.
En lugar de almacenarme el valor de la clave (d:\carpeta1), almacena la linea completa (destino1=d:\carpeta1)
Ademas de que me comienza en la fila 0, y necesito que sea en la 1, pues no quiero que me escriba en el encabezado, porque el stringrid tiene 3 columnas

Lo resolvi de esta manera:

Código Delphi [-]
      
      valores:=TStringList.Create;
      MiFicheroIni.ReadSectionValues('Destinos', valores);
      for j:=1 to Valores.Count do
      begin
        sgDestinos.Cells[0,j]:=MiFicheroIni.ReadString('Destinos', 'Destino'+IntToStr(j), '');
        sgDestinos.RowCount:=j+1;
      end;

Cuando dudes que hace una clase, mira toda su documentación:

https://docwiki.embarcadero.com/Libr...niFile_Methods

https://docwiki.embarcadero.com/Libr...e.ReadSections

Puedes cagar "de golpe" todos los valores que hay dentro de una sección(Destinos) en un TStringList.
Revisa RedSectionValues (https://docwiki.embarcadero.com/Libr...dSectionValues)

Código Delphi [-]
var
  iniFile:TIniFile;
  sl:TStrings;
begin
  ...
  sl := TStringList.Create;
  iniFile.ReadSectionValues('Destinos', sl);