IRC String durch for Schleife erweitern

[RedShakal]

Vielen Dank so funktioniert es

Ich habs jetzt so gemacht

Delphi-Quellcode:

  if StrArr[0] = 'Maplist' then
    begin
       ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'maplist.ini');
       try
         Anzahl   := ini.ReadInteger('Maplist','Anzahl',0);
           for i := 1 to Anzahl do
             Maps := Maps + ini.ReadString('Maplist', IntToStr(i), '') + '|';
             Delete(Maps, Length(Maps), 1);
          finally
            ini.free;
            Irc.Say('#kkndreloaded', 'Maplist|'+InttoStr(Anzahl)+'|'+Maps);
          end;
    end;

Client

Delphi-Quellcode:

  if (StrArr[0] = 'Maplist') and (AUser.Nick = 'KKND|Masterserver') then
    begin
      Anzahl := StrtoInt(StrArr[1]);

      for i := 2 to Anzahl+1 do
        begin
          Form6.Maplist.Items.Add.Caption := StrArr[i];
        end;
    end;