04. maj 2003 - 03:51
Der er
2 kommentarer og
1 løsning
Ini fil loop...
Jeg skal have lavet en procedure der looper igennem f.eks en fil som kunne se sådan her ud:
[1]
Genre=Dance
Artist=Kai Tracid
Title=4 Just 1 Day
Year=2001
[2]
Genre=Rock
Artist=Linkin Park
Title=Somewhere I Belong
Year=2003
[3]
Genre=Pop
Artist=Right Said Fred
Title=Im Too Sexy
Year=1990
[4]
Genre=Pop
Artist=Kelis
Title=I Hate You So Much Right Now
Year=2000
[5]
Genre=Pop
Artist=Madonna
Title=American Life
Year=2003
Loopet ved ikke på forhånd hvor mange punkter der kan være i ini filen.
Håber i forstår hvad jeg mener.
Det er ikke verdens smukkeste kode, men jeg håber du kan se princippet.
Det stammer fra en form med en knap og et memofelt:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TIniFile;
sections: TStringList;
items: TStringList;
i,j: integer;
navn,key: string;
begin
showmessage('hejsa');
f := TIniFile.Create('c:/erik/delphi/test.ini');
sections := TStringList.create;
items := TStringList.create;
f.ReadSections(sections);
for i:=0 to sections.Count-1 do
begin
navn := sections[i];
memo1.lines.add('['+navn+']');
f.readsection(navn,items);
for j:=0 to items.Count-1 do
begin
key:=items[j];
memo1.Lines.add(key+' = '+f.readstring(navn,key,''));
end;
end;
end;
