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;