delphi4arab منتديات دلفي للعرب

نسخة كاملة : مشكلة اللغة العربية مع تصدير البيانات إلى إكسل
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
(08-07-2021, 06:07 PM)Mohamed Allam كتب : [ -> ]
ريح بالك واستخدم Lazarus في قواعد البيانات فهو مجاني وسهل وبسيط وبه مزايا رائعة
أنا استخدمة مكتبة رائعة في لازاروس وهي مكتبة RX  تتضمن dbgrid به فلتره تلقائية مثل
برنامج الاكسل ومكونات اخرى جميلة منها مكون يصدر الى الى اكسل في ثانية ودعم كامل للغة العربية

وهذا احراء تصدير الى اكسل بسيط وسهل وإذا كنت تعشق دلفي يمكنك استخدام لازاروس فقط
في تطبيقات قواعد البيانات ودلفي في بقية الأمور
كود :
procedure Temp_frm.btn_printClick(Sender: TObject); begin    if SaveDialog1.Execute then      begin        xpo.FileName:=SaveDialog1.FileName;        xpo.RxDBGrid:= grid_emp;        xpo.PageName:='data';        xpo.Execute;      end; end;

ممكن تزويدنا بالاداة والمكون
كود :
procedure Temp_frm.btn_printClick(Sender: TObject); begin    if SaveDialog1.Execute then      begin        xpo.FileName:=SaveDialog1.FileName;        xpo.RxDBGrid:= grid_emp;        xpo.PageName:='data';        xpo.Execute;      end; end;


(09-07-2021, 07:59 PM)tahar1983 كتب : [ -> ]
(08-07-2021, 06:07 PM)Mohamed Allam كتب : [ -> ]
ريح بالك واستخدم Lazarus في قواعد البيانات فهو مجاني وسهل وبسيط وبه مزايا رائعة
أنا استخدمة مكتبة رائعة في لازاروس وهي مكتبة RX  تتضمن dbgrid به فلتره تلقائية مثل
برنامج الاكسل ومكونات اخرى جميلة منها مكون يصدر الى الى اكسل في ثانية ودعم كامل للغة العربية

وهذا احراء تصدير الى اكسل بسيط وسهل وإذا كنت تعشق دلفي يمكنك استخدام لازاروس فقط
في تطبيقات قواعد البيانات ودلفي في بقية الأمور
كود :
procedure Temp_frm.btn_printClick(Sender: TObject); begin    if SaveDialog1.Execute then      begin        xpo.FileName:=SaveDialog1.FileName;        xpo.RxDBGrid:= grid_emp;        xpo.PageName:='data';        xpo.Execute;      end; end;

ممكن تزويدنا بالاداة والمكون

هذه المكونات مجانية اسمها RxLib .
رابط المكونات تجده هنا :

كود :
http://www.micrel.cz/RxLib/


بالمسبة للمكونات التي استعملتها لتصدير البيانات اكسل ، اسمها   TscExcelExport  و هي مكونات مجانية للاستعمال الشخصي.

 
رابط التحميل

كود :
http://www.scip.be/index.php?Page=ComponentsExcelExport&Lang=EN
كل مكونات لازاروس تقريبا مجانية ويمكن تحميلها بإستخدام online package manager الذي يأتي مدمج مع لازاروس
مكتبة Rx هي مجانية ولكن في لازاروس افضل من الدلفي وانا جربت الاثنين
المهم عند تثبيت هذه المكتبة في لازاروس وافق على تثبيت كل الاضافات الاختيارية لكي يتم تثبيت مكتبة قوية وهامة في الاتصال بجميع قواعد البيانات بكل سهولة ويسر وهي مكتبة zeosdbo وهي تشبه في الاستخدام مكتبة dbgo في دلفي كما يتم تثبيت مكون Lazreport جميل ورائع كما يتم تثبيت مكتبة Fpspradsheet المختصة بتصدير الجريد الى ملف اكسل
السلام عليكم و رحمة الله
أنا أيضا عندي نفس المشكل في مشروع صغير يبحث و يستبدل الكلمة في مستند وورد
طيب بالنسبة لمشكلتي في ملف الوورد الحل يكمن في استخدام وسيط لنقل النص و ليس النص مباشرة
مثلا
كود :
;A:olevariant ;A:=edit.Text ;OleComand.Replace.Text:=A
عوض
كود :
OleComand.Replace.Text:= edit.Text

نستعمل المكتبة التالية

uses  ComObj;

كود :
var   WordApp: Variant; begin WordApp := CreateOLEObject('Word.Application'); WordApp.Documents.Open('مسار الملف المراد التعديل عليه'); WordApp.Selection.Find.ClearFormatting; WordApp.Selection.Find.Text := 'النص المراد تعديله'; WordApp.Selection.Find.Replacement.Text := 'النص الجديد'; WordApp.Selection.Find.Forward := True; WordApp.Selection.Find.Wrap := 1; {wdFindContinue} WordApp.Selection.Find.Format := False; WordApp.Selection.Find.MatchCase := False; WordApp.Selection.Find.MatchWholeWord := False; WordApp.Selection.Find.MatchWildcards := True; WordApp.Selection.Find.MatchSoundsLike := False; WordApp.Selection.Find.MatchAllWordForms := False; WordApp.Selection.Find.Execute(Replace := 2); {wdReplaceAll} {Or as alternative:  WordApp.Selection.Find.Execute(Replace := 1); for one replace} WordApp.ActiveDocument.SaveAs('اعادة تسمية الملف في مسار جديد أو في نفس المسار بإسم جديد'); WordApp.Quit; WordApp := Unassigned;
الصفحات : 1 2