Ini-File Management

[Andreas L.]

Zitat von Ajin:

Delphi-Quellcode:

{*******************************************************************************
*  sections einlesen                                                          *
********************************************************************************}
procedure TForm1.fill_combo;
var
 sl: TStringList;
 i: Integer;
begin
  dataini := TIniFile.Create(PathtoExe+INI_PFAD+DATA_INI);
    try
    sl := TStringList.Create;
    try
      try
        dataini.ReadSections(sl);
        for i := 0 to sl.Count - 1 do
        //neu:
        begin
          if pos('Apfel', sl[i]) > 0 then
            Form1.combo_obst.Items.Add(sl.Strings[i])
          else
            //in andere combo die birnen
        end;
        //
      except
        errormessage(datei_fehler, em_datei_fehler+#10#13+#10#13+
        PathtoExe+INI_PFAD+DATA_INI);
      end;
    finally
      sl.Free;
    end;
  finally
    dataini.Free;
  end;
end;

Wobei ich es sinnvoller finde wenn du in deiner Ini zu jeden Eintrag noch ein Feld Typ als Integer hinzufügst um zwischen Früchten zu unterscheiden...