المشاركات : 90
المواضيع 32
:
: 9
الإنتساب : Sep 2010
السلام عليكم :
قمت بتخزين محتوى RichEdit في قاعدة بيانات SQL Server في حقل Nvarchar(max)
و عند استعادته الى نفس الكائن TRichEdit يختفي التنسيق و تضهر الاسطر بشيفرة rtf
مثال على ذلك : {\rtf1\fbidis\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswis
ما هو الحل لإستدعاء محتوى الحقل بالتنسيق في الكائن RichEdit
- لا شيء من لا شيء ............... ؟
المشاركات : 1,677
المواضيع 349
:
: 1,069
الإنتساب : Nov 2013
وعليكم السلام ورحمة الله
كيف قمت باسترداد البيانات وعن طريق اي خاصية
هل مثلا عن طريق الخاصية Text
كود :
RichEdit.text:=Fieldname.asstring
لو كذلك لا ينفع هناك خاصية تقريبا تسمى RTF لاسترداد البيانات بهذا التنسيق او جرب الخاصية Lines
او استخدم المكون DBRichEdit
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
المشاركات : 90
المواضيع 32
:
: 9
الإنتساب : Sep 2010
(03-01-2024, 03:18 PM)Delphi4Us كتب : لو كذلك لا ينفع هناك خاصية تقريبا تسمى RTF لاسترداد البيانات بهذا التنسيق او جرب الخاصية Lines
او استخدم المكون DBRichEdit
السلام عليكم :
أنا استخدم دلفي 2010 و خاصية RTF لم أجدها ضمن خاصية Lines اما فيما يخص DBRichEdit تعمل بشكل صحيح
- قمت بتحويل النص الى Stream و استخدمت الخاصية Lines.LoadFromStream ونجح الأمر .
مشكور كل من تفاعل من أجل المساعدة .
الدالة المستخدمة :
كود :
function StringToStream(const AString: string): TStringStream;
begin
Result := TStringStream.Create(AString);
end;
procedure TMainForm.FileOpen(Sender: TObject);
var MyStream: TStringStream;
begin
MyStream:= StringToStream(T1RaportTxt.AsString);
Richedit.Lines.LoadFromStream(MyStream);
end;
- لا شيء من لا شيء ............... ؟
المشاركات : 1,677
المواضيع 349
:
: 1,069
الإنتساب : Nov 2013
جرب استخدام الطريقة التالية مباشرة
كود :
Richedit.Lines.Add(T1RaportTxt.AsString)
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
المشاركات : 90
المواضيع 32
:
: 9
الإنتساب : Sep 2010
(03-01-2024, 08:49 PM)Delphi4Us كتب : جرب استخدام الطريقة التالية مباشرة
كود :
Richedit.Lines.Add(T1RaportTxt.AsString)
نفس المشكل
- لا شيء من لا شيء ............... ؟
المشاركات : 142
المواضيع 4
:
: 25
الإنتساب : Feb 2022
06-01-2024, 10:41 AM
(آخر تعديل لهذه المشاركة: 06-01-2024, 10:43 AM بواسطة Ndagor.)
في جدول الخصائص للمكون RichEdit ابحث عن PlainText و اجعلها False يبدو انه تم العبث بها دون انتباه..
