الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استفسار عن التعامل مع النص في RichEdit /Edit

مغلق
بدأه عنيزة في 22 أغسطس 2001 · 1 رد · 582 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

اريد السؤال عن عملية معالجة

Edit RichEdit

كيف انعامل معاها حرف حرف مع العلم ان نوع RichEdit->Text هو AnsiString

مثلا اريد استبدال اي حرف a

موجود في RichEdit

مباشرة كأنها مصفوفة array

وقد قمت بمحاولة نسخه الى string مؤقت

باستخدام strcpy(tempstring,RichEdit1->Text.c_str());

ولكنها لا تقوم بنسخ النص كاملا اذا كان طويل فما هو الحل

فهذا البرنامج يعمل جيدا في win98 ولكن في win nt توجد بعض المشاكل في عرض النص اذا كان النص طويل. وقد قمت بتتبع البرنامج واكتشفت ان النص لا ينسخ بالشكل الصحيح فيقوم بتجاهل اخر النص

الرجاء سرعة الرد وشكرا

#2

بسم الله الرحمن الرحيم

اخي العزيز عنيزه

اليك هذا الكود وارجوا ان يكون هو ماتريد

var

i,s:integer;

begin

for i:=0 to Richedit1.Lines.Count-1 do begin

if pos('a',Richedit1.Lines.Strings)<>0 then

for s:=1 to pos('a',Richedit1.Lines.Strings) do

RichEdit1.Lines.Strings:=Copy(RichEdit1.Lines.Strings,0,pos('a',RichEdit1.Lines.Strings)-1)+'h'+Copy(RichEdit1.Lines.Strings,pos('a',RichEdit1.Lines.Strings)+1,max_path);

end;

طبعاً وضيفة هذا الكود هو تحويل اي حرف a موجود في RichEdit

الى h

وتقبل اطيب تحياتي اخوك SUM

هذا الموضوع مغلق.

مواضيع مشابهة