سحب الايميلات من قائمة مبعثرة

[DAMAX2010]

أولا عيدك مبارك سعيد للجميع

كيف استعمل Pos لسحب الايميلات فقط
فرضا أني أملك هذا الملف

PHP كود :

email: delphi@site.com mailto: delphi@site.com url: http://www.site.com
أكواد كثيرة غير مهمة
email: delphi@site.com mailto: delphi@site.com url: http://www.site.com
أكواد كثيرة غير مهمة
email: delphi@site.com mailto: delphi@site.com url: http://www.site.com
أكواد كثيرة غير مهمة
email: delphi@site.com mailto: delphi@site.com url: http://www.site.com
أكواد كثيرة غير مهمة 


استعملت الكود الأتي

كود :

start := Pos('email: ', Source) + Length('email: '); done := Pos(' mailto:', Source); Source := Copy(Source, start, done - start); if Source <> '' then Memo1.Lines.Add(Source)

سحب الايميل الأول و توقف