Como leer varias lineas en un archivo .ini

[ecfisa]

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

[JoAnCa]

Empezado por ecfisa

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

[JoAnCa]

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;

[mamcx]

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