+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=213)
+--- قسم : قسم اسئلة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=215)
+--- الموضوع : مساعدة في استخراج اسطر ملف نصي في مصفوفة (/showthread.php?tid=30883)
الصفحات:
1
2
RE: مساعدة في استخراج اسطر ملف نصي في مصفوفة - viv - 01-09-19
انا مدين لك باعتذار لانني لم اتنبه للمطلوب بالضبط في ترتيب النص
على العموم المثال كان ينقصه 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');[attachment=22800]
RE: مساعدة في استخراج اسطر ملف نصي في مصفوفة - fouadhdfouad - 01-09-19
ربنا يبارك في عمر ك اخي المشرف
كما اسعدتني ربنا يسعد ايامك ويجعلها بركة في الدنيا والاخرة
RE: مساعدة في استخراج اسطر ملف نصي في مصفوفة - viv - 01-09-19
أمين واجمعين لنا ولكم ولسائر المسلمين