easyDelphi Q&A
+2 تصويتات
51 مشاهدات
استعملت هذا الكود ولم ينجح ....

procedure TForm1.Button1Click(Sender: TObject);
var
  Memo: TfrxMemoView;
begin
  Memo := frxReport1.FindObject('Memo1') as TfrxMemoView;
  Memo.Text := StringReplace(Memo.Text, '%my_str%', 'new string', [rfReplaceAll]);
  frxReport1.ShowReport;
end;

 

تم إغلاقه بملاحظة: الدالة تعمل بشكل جيد .. الخطأ كان في المتغير الموجود في الفاستريبورت
سُئل في تصنيف Delphi بواسطة (10,490 نقاط)
مغلق بواسطة | 51 مشاهدات
 
ماذا تقصد ب لم ينجح؟ هل هناك رسالة خطأ أو ان النص لم يتغير أو ر ٍبما  ان Memo1 لا يوجد أصلا. الرجاء توضيح اكثر
النص لم يتغير و Memo1  موجود

1 إجابة واحدة

0 تصويتات
 

أه حسنا يبدو ان المكون المسمى Memo1 لم يتم العثور عليه أو أنه ليس من كلاص TfrxMemoView حاول أن تعمل Debug لهذا الكود 

procedure TForm1.Button2Click(Sender: TObject);
var
  Memo: TfrxMemoView;
  Component: TfrxComponent;
begin
  Component := frxReport1.FindObject('Memo1');
  i f Component is TfrxMemoView then
  begin
    Memo := Component as TfrxMemoView;
    Memo.Text := StringReplace(Memo.Text, '%my_str%', 'new string', [rfReplaceAll]);
    frxReport1.ShowReport;
  end;
end;

المصدر من هنا

 

تم الرد عليه بواسطة (7,480 نقاط)
جربته سابقا وبقي نفس المشكل لايحدث أي تغيير

اسئلة متعلقة

+4 تصويتات
1 إجابة
+4 تصويتات
2 إجابة
سُئل يوليو 24 في تصنيف Delphi بواسطة Amar Gozim (10,490 نقاط) | 71 مشاهدات
+3 تصويتات
3 إجابة
سُئل يوليو 19 في تصنيف fmx بواسطة NADIRE (780 نقاط) | 85 مشاهدات
+4 تصويتات
2 إجابة
+2 تصويتات
1 إجابة
سُئل أغسطس 20 في تصنيف Delphi بواسطة alhmam (710 نقاط) | 50 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

282 سؤال
487 إجابة
866 تعليق
177 مستخدم