Цитата:
|
Сообщение от The King Bear
|
Код:
Function ExtractMail(S:String):String;
begin
Result:=Copy(S,Pos('@',S)+1,Length(S);
end;
Далее тебе необходимо проверить все майлы, если соответствует условию, то вписать в файл.
Код:
for index:=0 to list.count-1 do
s:= UpperCase(ExtractMail(List[Index]));
if s ='MAIL.RU' then
list2.add(s);
end;