[viv]

انا مدين لك باعتذار لانني لم اتنبه للمطلوب بالضبط في ترتيب النص

على العموم المثال كان ينقصه Loop ليمر على كل السطور
الان ضع ماتريد فيه من سطور ولا مشكلة
حيث سيمر على كل سطر بتغير المتغير i

كود :

for i  := 0 to memo1.Lines.Count-1 do
   begin
   ExtractStrings([' '], [], PChar(memo1.Lines[i]), List);

ايضا جعلته يخمل الملف النصي

كود :

memo1.Lines.LoadFromFile(ExtractFileDir(Application.ExeName) + '\testme.txt');

  testme.rar (الحجم : 606.28 ك ب / التحميلات : 7)

[fouadhdfouad]

ربنا يبارك في عمر ك اخي المشرف

كما اسعدتني ربنا يسعد ايامك ويجعلها بركة في الدنيا والاخرة

[viv]

أمين واجمعين لنا ولكم ولسائر المسلمين