IniFile: Mehrere Werte mit dem selben name auslesen

[mirage228]

Ich habe in einer Ini-Datei von mir stehen:

Code:

[Engine.GameEngine]
ServerPackages=Core
ServerPackages=Engine
ServerPackages=Fire
ServerPackages=Editor
ServerPackages=IpDrv
ServerPackages=UWeb
ServerPackages=GamePlay
ServerPackages=UnrealGame
ServerPackages=XEffects
ServerPackages=XPickups
ServerPackages=XGame
ServerPackages=XWeapons
ServerPackages=XInterface
ServerPackages=Vehicles
ServerPackages=TeamSymbols_UT2003
ServerPackages=ttm2003v2
ServerPackages=ttm2003_skins

Wie kann ich diese Werte mit IniFiles auslesen? Denn, wenn ich den Wert "ServerPackages" auslese, gibt der immer nur den erste Wert, nämlich "Core" zurück. Wie kann ich an die anderen Werte kommen?

[Stanlay Hanks]

Ich glaube das geht nich. Ich hab das gerade mit deinen Daten Probiert und hab ReadSeactionValues genommen und er hat mir nur den ersten der gelichnamigen einträge angezeigt. ich würde die dinger vielleicht durchnummerieren. aber mit gleichen namen gehts anscheinend nicht.

Man liest sich, Stanlay 8)

[Nicodius]

Okay ich weiß das ist ein Mittelweg:

Wenn du die Datei schreibst dann mach das so:

Delphi-Quellcode:

WriteSectionValues('blabla', 'blabla' + IntToStr(Wert));!!
Inc(Wert);

Und beim lesen:

Delphi-Quellcode:

Inc(Wert)
ReadSectionValues('blabla', 'blabla' + IntToStr(Wert));

So filterst du alle raus ;)

Tschau hoffe es hilft ach Wert steht natürlich für irgendeinen Namen eines Integer!

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]

[Luckie]

Das ist keine Ini-Datei. Also wirst du mit den Ini-Funktionen nicht hinkommen. Da mußt du dir selber was einfallen lassen.

[Nicodius]

Das ist doch ne INI

Delphi-Quellcode:

[blabla] 
blabla= Zahl/Wort/boolean

oder??

[Luckie]

Nein ist es nicht. Weil die Unterschlüssel nicht eindeutig sind. Siehst du ja, wenn du die Ini-Funktionen benutzt.

[MathiasSimmack]

@Nicodius: Entweder die Datei selbst parsen (zeilenweise einlesen und prüfen), oder z.B. XML benutzen, da würde es gehen.

[mirage228]

ja, dann wird mir wohl nichts anderes übrigbleiben, als selbst zu parsen...
mich würde trotzdem interessiert, wie ut2003 die einliest... (ist ein teil der ini vom spiel)

[Luckie]

Es ist keine ini-Datei! Und die wird wohl vom Programm geparst werden.

[Nicodius]

Aha naja, wenn sie geparst ist müsstest du das wohl oder übel auch machen

Na ja ich misch mich da jetzt nicht mehr ein ;)

[Tom]

Zitat:

Zitat von mirage228

ja, dann wird mir wohl nichts anderes übrigbleiben, als selbst zu parsen...

TIniFile.ReadSection bzw. ReadSectionValues sollte Dir helfen.

[Luckie]

Zitat:

Zitat von Tom

Zitat:

Zitat von mirage228

ja, dann wird mir wohl nichts anderes übrigbleiben, als selbst zu parsen...

TIniFile.ReadSection bzw. ReadSectionValues sollte Dir helfen.

Hat er schon probiert:

Zitat:

hab ReadSeactionValues genommen und er hat mir nur den ersten der gelichnamigen einträge angezeigt

[Tom]

Zitat:

Zitat von Luckie

Hat er schon probiert:

Immer fällt man auf sich selber rein: Ich nutze immer TMemIniFile. Es geht so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ini : TMeminifile;
  s : String;
  sl : TStringList;
begin
  ini := TMemInifile.Create( 'tom.ini' ); // Pfad nicht vergessen!
  sl := TStringList.Create;
  try
    s := Ini.ReadString( 'MirEgal', 'Hallo', 'Wo isse?' );
    ini.ReadSectionValues( 'MirEgal', Sl );
    ShowMessage( s + sLineBreak + Sl.Text );
  finally
    ini.Free;
    sl.Free;
  end;
end;

Die Ini dazu:

Code:

[MirEgal]
Hallo=123
Hallo=456
Hallo=789

[mirage228]

Hi Tom,

danke für den Vorschlag, nur kriege ich immer die Fehlermeldung "Undefinierter Bezeichner: TMemIniFile". Was muss ich einbinden oder welche Units muss ich herunterladen? Und wie funkt dann das Speichern?

[Luckie]

Cursor auf TMeminiFile seztzen und tapfer F1 drücken. Der Rest ergibt sich von alleine.

[Edit=Sakura]F1 hinzugefügt :mrgreen:[/Edit]

[Tom]

Zitat:

Zitat von Luckie

... und tapfer drücken.

Das Original lautet: "... und tapfer F1 drücken." 8)

[mirage228]

Bei mir gibts kein TMemIniFile in der Delphi HIlfe...
liegts vllt daran, dass ich D3 Pro hab?

[Luckie]

Oha, das könnte es natürlich sein. Also doch selber was schreiben. Sieh' es positiv, ist auch gleich eine gute Übung und man lernt was. :wink:

[Tom]

Wenn es TMemIniFile nicht unter D3 gibt: doch selber machen oder
TBigIniFile verwenden. Ich habe mir den Soruce mal oberflächlich angesehen. Es könnte damit funktionieren.

[Stanlay Hanks]

Prinzipiell: was sind die grundliegenden unterschiede von TiniFile und TMemIniFile?

Man liest sich, Stanlay
8)

[X-Dragon]

So viel Aufwand ist es doch eigentlich auch nicht, das man unbedingt noch eine extra Komponente dafür brauch, oder? Den Code hab ich aber nur mal eben so zusammengeschrieben und nicht getestet! :

Delphi-Quellcode:

  setupliste := TStringList.Create;

  if FileExists(ExtractFilePath(Application.ExeName)+'setup.txt') then
    setupliste.LoadFromFile(ExtractFilePath(Application.ExeName)+'setup.txt');
      
  for i := 0 to setupliste.count -1 do
    if Pos(setupliste[i],'ServerPackages') = 0 then
      Listbox1.Add(Copy(Pos(setupliste[i].'=',Count(setupliste[i])));