Вот есть код на делфи и не могу его переписать на buillder
| Код |
var n, nummsgs, j:integer;
m:string;
begin
IdPOP31.Host:='pop.mail.zp.ua';
IdPOP31.Port:=110;
IdPOP31.Username:='myname';
IdPOP31.Password:='mypass';
IdPOP31.Connect(0);
Memo1.Lines.Clear;
NumMsgs:=IdPOP31.CheckMessages;
Memo1.lines.add( 'Emails:' +IntToStr(NumMsgs) );
for n:=1 to NumMsgs do begin
IdPOP31.RetrieveHeader(n,idMessage1);
Memo1.Lines.Add('Email To:'+IntToStr(n)+#13#10+
' From: '+idMessage1.From.Text+#13#10+
' Subject: '+idMessage1.Subject+#13#10);
m:=IntToStr(n);
idMessage1.Clear;
IdPOP31.Retrieve(n,idMessage1);
if (IdMessage1.MessageParts.Count>0) then begin
for J := 0 to Pred(idMessage1.MessageParts.Count) do begin
if idMessage1.MessageParts.Items[J] is TIdText then begin
Memo1.Lines.Add(TIdText(idMessage1.MessageParts.Items[J]).Body.Text)
end;
end;
end
else Memo1.Lines.Add(idMessage1.Body.Text);
idMessage1.Clear;
Memo1.Lines.Add('--------------------------------------'+#13#10);
Application.ProcessMessages;
end;
idpop31.Disconnect;
|
вот немогу на builder перевести строку
if idMessage1.MessageParts.Items[J] is TIdText then begin
Memo1.Lines.Add(TIdText(idMessage1.MessageParts.Items[J]).Body.Text)
помогите плиз!
|