delphi4arab منتديات دلفي للعرب
نسخ النص قبل الرمز - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : نسخ النص قبل الرمز (/showthread.php?tid=10837)



نسخ النص قبل الرمز - محمودد - 18-05-2020

السلام عليكم
لدي نص يوجد بي به رمز "
كيف بمكاني نسخ النص الموجود قبل هذا الرمز "


RE: نسخ النص قبل الرمز - fars74 - 18-05-2020

اخي اعتقد ان السؤال غير دقيقد.. اين يوجد هذا النص.؟؟؟ وإذا تحتاج العلامة هذه " فقط فهي في لوح المفاتيح مثلا في الكمبيوتر المحمول مع الرقم 4


RE: نسخ النص قبل الرمز - محمودد - 18-05-2020

(18-05-2020, 09:15 PM)fars74 كتب : اخي اعتقد ان السؤال غير دقيقد.. اين يوجد هذا النص.؟؟؟ وإذا تحتاج العلامة هذه " فقط فهي في لوح المفاتيح مثلا في الكمبيوتر المحمول مع الرقم 4


داخل edit مثلا مكتوب fars" اريد نسخ كل النص المكتوب قبل  " الى ايديت اخر


RE: نسخ النص قبل الرمز - fars74 - 18-05-2020

نسخ برمجي ام يدوي... إذا كان برمجي استخدم دوال الاقتطاع من النصوص string ثم الاسناد :=  او النسخ copy... والله اعلم


RE: نسخ النص قبل الرمز - larbiparadox - 19-05-2020

مثال

كود :
    i := pos('@',ligne);     T:= copy(ligne,1,i-1);
القيمة i هي تحديد موقع الرمز كنثال @  انت غيره الى ''
و ligne  هو النص الذي تبحث فيه غيره إلى edit1.text

و ننسخ عن طريق copy من البداية حتى قبل الرمز برقم