+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التعامل مع النصوص في TRichEdit (/showthread.php?tid=12482)
التعامل مع النصوص في TRichEdit - bibill - 02-01-2024
السلام عليكم :
قمت بتخزين محتوى RichEdit في قاعدة بيانات SQL Server في حقل Nvarchar(max)
و عند استعادته الى نفس الكائن TRichEdit يختفي التنسيق و تضهر الاسطر بشيفرة rtf
مثال على ذلك : {\rtf1\fbidis\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswis
ما هو الحل لإستدعاء محتوى الحقل بالتنسيق في الكائن RichEdit
RE: التعامل مع النصوص في TRichEdit - Delphi4Us - 03-01-2024
وعليكم السلام ورحمة الله
كيف قمت باسترداد البيانات وعن طريق اي خاصية
هل مثلا عن طريق الخاصية Text
كود :
RichEdit.text:=Fieldname.asstringلو كذلك لا ينفع هناك خاصية تقريبا تسمى RTF لاسترداد البيانات بهذا التنسيق او جرب الخاصية Lines
او استخدم المكون DBRichEdit
RE: التعامل مع النصوص في TRichEdit - bibill - 03-01-2024
(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;RE: التعامل مع النصوص في TRichEdit - Delphi4Us - 03-01-2024
جرب استخدام الطريقة التالية مباشرة
كود :
Richedit.Lines.Add(T1RaportTxt.AsString)RE: التعامل مع النصوص في TRichEdit - bibill - 05-01-2024
(03-01-2024, 08:49 PM)Delphi4Us كتب : جرب استخدام الطريقة التالية مباشرة
كود :Richedit.Lines.Add(T1RaportTxt.AsString)
نفس المشكل
RE: التعامل مع النصوص في TRichEdit - Ndagor - 06-01-2024
في جدول الخصائص للمكون RichEdit ابحث عن PlainText و اجعلها False يبدو انه تم العبث بها دون انتباه..