Wie geht's: Ini - Section in ComboBox ?

[Aenogym]

AAAAALSO,

ich hab grad gute laune, deswegen werd ich ein beispiel schreiben (aus dem kopf, nicht getestet):

Delphi-Quellcode:

//sections ("blöcke") in combobox lesen
ini.ReadSections(combobox1.items);

//.........

procedure TForm1.Combobox1Change(sende: TObject);
begin
  //beim auswählen eines eintrags aus der combobox, jeweilige daten laden
  with ini do
  begin
    edit1.text := readstring(combobox1.items[combobox1.itemindex], 'Vorname', '');
    edit2.text := readstring(combobox1.items[combobox1.itemindex], 'Nachname', '');
    //...
  end;
end;

hilft dir das?

edit: ja, das sollte dir helfen, wenn ich deinen post vor diesem richtig interpretiere

Aenogym

[DannyK.II]

da bin ich ja froh, dass du gute laune hast (bald nichtmehr )

danke, das hilft schon! nur dass esbei mir halt die namen der section, udn nicht die einzelnen elemente wären..

aber danke schonmal

EDIT

quatsch, vertan: das hilft sogar prima!!! (hatte was falsch gelesen << das auchnoch! )

VIELEND ANK FÜR EURE GEDULD!

[Aenogym]

Zitat von DannyK.II:

(bald nichtmehr )

da könntest du recht haben...

drücke dich doch mal bitte klar und schritt für schritt sortiert aus, WAS du machen willst!
dann könnten wir dir leichter helfen.

also: Was soll dein programm machen? was hast du schon (bezüglich des problems)? wo liegt dein problem genau?

edit: Na endlich

Aenogym

[tommie-lie]

Zitat von Luckie:

TOMMY!!!, komm mal mit deiner Glaskugel. ich verstehge nur banhof.

Stets zu Diensten :
Frage:
Ich habe eine INI-Datei mit mehreren Sections. In meinem Programm habe ich eine ComboBox, in dieser sollen alle diese Sections angezeigt werden. Wenn der Anwender in der ComboBox einen der Sections auswählt, dann sollen automatisch die richtigen Daten aus der korrespondierenden Section angezeigt werden.

Antwort:
ReadSections möchte ein TStrings-Objekt, in das sämtliche Sektionsnamen der INI-Datei kommen sollen. Die ComboBox speichert die anzuzeigenden Einträge ebenfalls in einem TStrings-Objekt, namentlich das Property "Items" der TComboBox-Klasse. Mit dem einfachen Aufruf MeinINIFile.ReadSections(MeineComboBox.Items); hat man dann in der Combobox sämtliche Sektionen der INI-Datei, also sämtliche vorher eingetragenen "block"-Variablen.
Des Weiteren hat die ComboBox ein OnChange-Event, das aufgerufen wird, sobald der Benutzer einen Eintrag für die ComboBox ausgewählt hat. Über das Property "Text" der ComboBox kommt man innerhalb dieses Events an den Text in der ComboBox, ergo die ausgewählte Sektion ran. Und diesen String kann man für TINIFile.ReadXXX() benutzen, um aus dieser Sektion die Daten zu holen.
Obigen Befehl führt man z.B. jedesmal aus, nachdem man die INI-Datei geändert hat, dann sind die in der ComboBox angezeigten Einträge immer aktuell.



Wenn's das auch nicht war, versagt selbst meine glasige Intuition und man bräuchte eine genauere Fragestellung.



P.S.: Es heißt tommie http://dpchat.dpexperte.de/smileys/icon_mecker.gif



Edit: Oh mann, hab' ich lange gebraucht...

[DannyK.II]

grandios! am besten du machst das forum alleine , ne quatsch! aber genau das meint ich von anfang an..

zum glück konnte mir ja geholfen werden... (war auch schwer nötig)

[tommie-lie]

Zitat von DannyK.II:

grandios!

Danke!

Zitat von DannyK.II:

am besten du machst das forum alleine

Ja, das ist mir auch schon mehrfach durch den Kopf gegangen mrgreen:

Und Luckie bettelte ja nach Aufklärung

[DannyK.II]

LETZTE FRAGE ZU DEM THEMA INI/COMBOBOX:

Delphi-Quellcode:

procedure TForm1.Button12Click(Sender: TObject);
begin
  try
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'data.ini');
    repeat
    ini.ReadSections(sections);
    section := sections[0];
    ini.EraseSection(section);
    until
    sections.Count = 0;
  finally
  ini.readsections(combobox1.Items);
  ini.free;
  end;
end;

damit soll eigentlich die liste+ alle sections geleert werden, ich bekomme aber eine accesviolation (was sonst )

ich wette die antwort is wieder mal simpel...

[Garland]

Hmh, ich würde es mal so ausprobieren:

Delphi-Quellcode:

procedure TForm1.Button12Click(Sender: TObject);
[...]
ini.ReadSections(sections);
for i := 1 to sections.count do
 ini.EraseSection(sections[i - 1]);
[...]
end;