Ini-file-DB auslesen

[Jan]

Hallo Daniel B,
das ganze sieht so aus:

Code:

[info]
inilength=3

[account1]
user=username1
pw=passwort1

[account2]
user=username2
pw=passwort2

[account3]
user=username3
pw=passwort3

Die info section ist also im Moment nur dazu da meinem programm zu sagen wieviele Einträge es gibt.
Sobald das in Erfahrung gebracht wurde kann mein Prgramm dann die einzelnen accs so auslesen und in ein Popup-menu schreiben:

Code:

procedure tform1.loadaccs();
var inifile: tinifile;
    inilength, i : integer;
    NewItem: TMenuItem;
begin
  inifile:=tinifile.create(ExtractFilePath(Application.ExeName)+'/easywars.ini');
  inilength:=inifile.readInteger('info','length', 0);
  setlength(accarray, inilength);
  form1.popupmenu1.Items.Clear;
  for i:=0 to length(accarray)-1 do
  begin
    setlength(accarray[i],2);
    accarray[i][0]:=inifile.readstring('account'+inttostr(i+1),'user', 'error');
    accarray[i][1]:=inifile.readstring('account'+inttostr(i+1),'pw', 'error');
    NewItem := TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption := accarray[i][0];
    NewItem.Tag := i;
    NewItem.OnClick:= fillfields;
  end;
end;

Ich hoffe, dass das jetzt verständlich ist.
bye
Jan