Hallo!
Einfacher geht es in dem du den ganzen Text, per
Irc verschickst (Beachte: Maximale Länge der Nachricht - also sollte der Text zu lang sein geht es nicht^)
So würd ich das machen:
Delphi-Quellcode:
function SendIni:Boolean;
var List : TStringList;
begin
//Ini laden
List := TstringList.Create;
List.LoadFromFile(ExtractFilePath(ParamStr(0)) + '
maplist.ini');
//Delimiter
List.Delimiter := '
,';
//Senden
irc.Say(Channel bzw. Person, '
<M>' + List.DelimitedText);
//
List.Free;
end;
(*========Beim Empfangen========*)
var Msg :
string;
List : TStringList;
if Copy(aMessage,1,Pos('
>',aMessage)+1) = '
<M>'
then
begin
Msg := Copy(aMessage,Pos('
>',aMessage)+1,Length(aMessage));
List.Delimiter := '
,';
List.DelimitedText := Msg;
//
List.SaveToFile('
Filename.ini');
List.Free;
end;
So musst du nicht die ini neu schreiben^
Hoffe es funktioniert, hab es nicht getestet!
lg