ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Archangelus

Код:

function GetIP(s:string):string;
var
 p:integer;
begin
 p:=pos(':',s);
 delete(s,p,length(s)-p+1);
 result:=s;
end;

function GetPort(s:string):string;
var
 p:integer;
begin
 p:=pos(':',s);
 delete(s,1,p);
 result:=s;
end;

береш построчно из мемо, потом с помощью этих функций получаешь ip и порт и раскидываешь по своим лист боксам, или куда тебе есчо надо.

зы список IP:PORT д.б. чистым, никаких пробелов и прочее
ззы писал на коленке за 5 минут