Ini-File Management

[Ajin]

Hallo DP !

Ich möchte in einem ini File Datensätze abspeichern. Ich bin mir nicht sicher mit welchem Kniff die Daten sortiert wieder in eine Combobox lesen kann.
Ein simples Beispiel: es geht um Äpfel und Birnen Datensätze

Apfel Pinklady
==============
farbe=grün
hübsch=ja

Apfel GoldenD
============
farbe=gelb
hübsch=nein

Birne Nashi
===========
name=sorina
farbe=gelb

Wenn ich nun 10 Äpfel und 10 Birnen in ein ini File speichere, wie kann ich dann beim Einlesen der Daten (Combobox) zwischen den ganzen Äpfeln und Birnen unterscheiden?

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
        Form1.combo_obst.Items.Add(sl.Strings[i]);
      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;

somit hab ich jede Obstsorte in der Combo Box. Kann ich das z.B. auf die Apfel-Einträge limitieren?

[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...

[Luckie]

Oder man benutzt XML-Dateien.

[DeddyH]

Oder eine Datenbank.

[Ajin]

Ja Andreas so könnte ich es wirklich handhaben, vielen Dank!

@Luckie: ja du hast natürlich recht, ich hab mir auch schon das himXML angeschaut aber ich bin leider ein völliger xml Neuling und trau mich nicht an die Sache ran...
@DeddyH: ohne Zusatzinstallation auf dem client?

[Andreas L.]

Zitat von Ajin:

@DeddyH: ohne Zusatzinstallation auf dem client?

Z. B. SQLite oder Firebird-embedded