Problem mit ReadSectionValues bei den IniFiles!

[maximi]

Ich habe ein Problem mit ReadSectionValues bei den IniFiles.
Der Code bei den IniFiles:

Code:

[Animation]
dateiname=c:\asd.bmp

so und mein Delphi-Code:

Delphi-Quellcode:

var daten:TStringlist;
...
projektdatei.ReadSectionValues('Animation',daten);

so ich bekomme aber bei 'daten.strings[0]' nicht 'c:\asd.bmp' sondern 'dateiname=c:\asd.bmp'. Was kann ich machen?

Max

[Markus K.]

Hallo maximi,
du könntest zum Beispiel den String hinter dem = mit Hilfe der Copy Funktion, etc. auslesen. Dafür bestimmst du die Position des = und kopiert dann von der Position+1 den String.

Tschüß Markus

[Die Muhkuh]

Hier noch ein kleines Beispiel:

Delphi-Quellcode:

var
  S, Temp: String;
begin
[...]
Temp := Ini.ReadSectionValues('Animation',daten);
S := Copy(Temp,Pos('=',Temp), Length(Temp));

Ungetestet!!!

[yankee]

Also ich habe das Problem bei mir so gelöst:
INI:
[Animation]
nof=1
dateiname1=c:\asd.bmp

also nof (number of Lines) wieviele Einträge es gibt. Und dann so:

Delphi-Quellcode:

procedure IniAuslesen;
var nof,s:integer;
    daten:string;
    ini:TIniFile;
begin
    nof :=ini.ReadInteger('Animation','count',0);
    for s:=1 to nof do //sooft wie es Einträge gibt
    begin
        daten[s]=readString('Animation','dateiname'+inttostr(s),'');
    end;
ini.free;
end;

So können beliebig viele Dateinamen drinstehen. Also auch
[Animation]
nof=3
dateiname1=c:\asd.bmp
dateiname2=d:\bilder\bahnhof.bmp
dateiname3=c:\gedöne\airport.bmp

kleine Ärgenzung. Ich weiß nicht so genau, wie das mit den Arrys geht, dass must du noch anpassen.

[maximi]

Danke an alle.
Ich habs ich habs jetzt so gelöst:

Delphi-Quellcode:

projektdatei.ReadSectionValues('Animation',daten);
for i := 0 to daten.Count-1 do
  daten.Strings[i] := copy(daten.Strings[i],length('Dateiname0=')+1,length(daten.strings[i])-length('Dateiname0='));

[Christian Seehase]

Moin Max,

oder Du könnest, wenn Du unbedingt die Section komplett einlesen willst, mit

sDateiName := daten.Values['dateiname'] den Wert auslesen.