Форум АНТИЧАТ - Показать сообщение отдельно - MailWork Чекер и другое для работы с мылами by Me

Цитата:

Сообщение от udman

подумаю над эти )) тебе то проще, а мне писать )))

там ничего сложного)) если в строке есть ;, значит разделяем по точке с запятой, а иначе - по двоеточию

Код:

if Pos(';',str)<>0 then 
   begin
     Login:= Copy(str,1,Pos(';',str)-1);
     Pass:= Copy(str,Pos(';',str)+1,Length(str)-Pos(';',str));
   end 
else
  begin
    Login:= Copy(str,1,Pos(':',str)-1); 
    Pass:= Copy(str,Pos(':',str)+1,Length(str)-Pos(':',str));
  end;

ну и домен отделяешь естесственно)))