[Holms]

Есть 4 e-mail нужно зделать чтоб прога конектилась к каждой поодельности и искала нужное письмо, а потом сохраняла его в файл.

Я пробовал но в меня не получаетса.

[lmikle]

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

Есть 4 e-mail нужно жделать что б прога конектилась к каждой поодельности и искала нужное письмо, а потом сохраняла его в файл.

Я пробовал но в меня не получаетса.

Ну ты покажи что пробовал-то?

[Holms]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
IdPOP31.Username:=Copy(ListBox1.Items[0],1,Pos(';',ListBox1.Items[0])-1);
IdPOP31.Password:=Copy(ListBox1.Items[0],Pos(';',ListBox1.Items[0])+1,Length(ListBox1.Items[0])-Pos(';',ListBox1.Items[0]));
IdPOP31.Connect();
IdMessage1.Clear;
IdPOP31.Retrieve(i,IdMessage1);
for i:=1 to IdPOP31.CheckMessages do
IdPOP31.Retrieve(i,IdMessage1);
If POS (Edit1.text,IdMessage1.From.Address)=1 then
memo1.Lines.add(IdMessage1.Body.Text)
else showmessage('lol')

Admin: Пользуемся тегами!

[Holms]

Пожалуста помогите очень нужно.

[Phedor]

Что выдает-то? Ошибку? Не срабатывает условие?
Если ошибка - напиши текст ошибки,
Если не срабатывает, поставь брекпоинты и смотри что выдает и с чем сравниваешь.

Попробуй:
вместо

Код:

If POS (Edit1.text,IdMessage1.From.Address)=1 then
memo1.Lines.add(IdMessage1.Body.Text)
else showmessage('lol')

Поставь

Код:

Memo1.Lines.Add(copy(IdMessage1.From.Address, 1, length(Edit1.Text))+'<=>'+Edit1.Text

Будет видно что с чем сравнивается

[Holms]

Phedor ты немог бы написать мне ету программу??? Просто я в Делфи не очень.....