12.11.2009, 17:58
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
С нами:
8817310
Репутация:
108
|
|
Сообщение от denjf
подскажите плиз.
var
s,m,p:string;
begin
//это дано
s:=xxxx@mail.ru:12345;
//Надо получить следующие
m:=xxxx;
p:=12345;
Вроде так, писал прямо тут.
Код:
var m, p: string;
m := Copy(s, 1, pos('@', s)-1);
p := Copy(s, pos(':', s)+1, length(s)-pos(':', s));
Последний раз редактировалось =Zeus=; 12.11.2009 в 18:02..
|
|
|