Bei ComboBox Auswahl Daten aus INI-File in StringList lesen

[APP]

Hallo Helpliner,

Delphi-Quellcode:

PROCEDURE TForm1.ComboBox1Select(Sender: TObject);
VAR
  Ini                              : TIniFile;
BEGIN
  Ini := TIniFile.Create('C:\ets.ini');
  TRY
    IF ComboBox1.ItemIndex = 1 THEN
      Ini.ReadSectionValues('Abschnitt2', ListBox1.Items);
  FINALLY
    Ini.Free;
  END;
END;

Inhalt von C:\ets.ini

Code:

[Abschnitt1] 
1=wert1 
2=wert2 
3=wert3 

[Abschnitt2] 
1=wert1 
2=wert2 
3=wert3 

[Abschnitt3] 
1=wert1 
2=wert2 
3=wert3

funktioniert.


p.s. Beachte den Resourcen-Schutzblock (TRY/FINALLY) -sollte beim "Createn" immer dabei sein, auch wenn er in der D5-OH unter "ReadSectionValues" fehlt