[cyborgg4655]

Есть txt файл, в нем нужно найти все e-mail'ы тоесть фильтр поиска примерно такой '%'+'@'+'%'+'.ru'.
Каждый раз когда он находит email он его должен заносить в ListBox...
Помогите организовать это плз

[NumLock]

делай так же как здесь: http://www.delphisources.ru/forum/sh...ad.php?t=23914

[cyborgg4655]

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

делай так же как здесь: http://www.delphisources.ru/forum/sh...ad.php?t=23914

я там ниче не сделал) решил что проще брать исходный колд, записывать в txt и делать выборку, но хз как эту выборку реализовать(

[Alegun]

Вроде все нормально копируется

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
mail: string;
begin
Edit1.Text:='<a href="mailto:stolyarov63@gmail.com">stolyarov63@gmail.com</a>';
mail:= Copy(Edit1.Text, pos('>',Edit1.Text)+1,Length(Edit1.Text));
mail:= Copy(mail, 1,pos('<',mail)-1);
label1.Caption:= mail;
end;

[Страдалецъ]

А у вас что, только одна строка во всем документе содержит ">". Сильно сомневаюсь.

[Alegun]

Сообщение от Страдалецъ

А у вас что, только одна строка во всем документе содержит ">". Сильно сомневаюсь.

ТС тут примерчик притаранил, выходит именно так.

З.Ы. Исправил.