Forum: Programmieren allgemein
Delphi
by p80286,
1. Mär 2013
Sektionen := TStringList.Create;
Abschnitte := TStringList.Create;
Schlüssel := TStringlist.Create;
Werte := TStringList.Create;
for i := 0 to inilist.Count-1 do begin
ini := TIniFile.Create(inilist.Strings);
.....
ini.free;
end;
Forum: Programmieren allgemein
Delphi
by p80286,
1. Mär 2013
Wenn Du dies hier meinst:
Sektionen.SaveToFile ('C:\Users\admin\Desktop\aTest\Sektionen.txt');
Abschnitte.SaveToFile ('C:\Users\admin\Desktop\aTest\Abschnitte.txt');
Werte.SaveToFile ('C:\Users\admin\Desktop\aTest\Werte.txt');
Das begeistert zwar nicht, aber ist wohl nur für die Testausgabe.
Oder war das Deine Bewerbung für den Job in Rom ;-)
Forum: Programmieren allgemein
Delphi
by p80286,
1. Mär 2013
// Alle Werte mit Abschnitten davor in die Stringlist Werte packen
for jj := 0 to Abschnitte.Count-1 do
begin
ini.ReadSectionValues(Sektionen.Strings, Werte); //<-- Da muss irgendwo der Fehler liegen
end;
Auch wenn es passen sollte:
for jj := 0 to Abschnitte.Count-1 do
ini.ReadSectionValues(Sektionen.Strings, Werte);