كيف أقدر أقرأ Text كلمة كلمة وكل كلمة تطبع في سطر

[hanipino]

يستحسن مراعات حتى النصوص متعددة الأسطر أكثر من سطر TstringList

يعمل بشكل عادى مع النصوص متعددة الأسطر .
مثلا :

PHP كود :

Mmo1.Lines.LoadFromFile('C:\Mot.txt');
 LST1.Items.CommaText:=MotParMot(Mmo1.Text); 


باءضافة هذا الكود فى اعلى الدالة .. تتحسن نوعا ما المخرجات .

PHP كود :

for i:= 0 to length(Str) do
   Str:=StringReplace(Str, '  ', ' ', [rfReplaceAll]);