مشكلة اللغة العربية مع تصدير البيانات إلى إكسل

[tahar1983]

ريح بالك واستخدم 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;

ريح بالك واستخدم 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

[Mohamed Allam]

كل مكونات لازاروس تقريبا مجانية ويمكن تحميلها بإستخدام online package manager الذي يأتي مدمج مع لازاروس
مكتبة Rx هي مجانية ولكن في لازاروس افضل من الدلفي وانا جربت الاثنين
المهم عند تثبيت هذه المكتبة في لازاروس وافق على تثبيت كل الاضافات الاختيارية لكي يتم تثبيت مكتبة قوية وهامة في الاتصال بجميع قواعد البيانات بكل سهولة ويسر وهي مكتبة zeosdbo وهي تشبه في الاستخدام مكتبة dbgo في دلفي كما يتم تثبيت مكون Lazreport جميل ورائع كما يتم تثبيت مكتبة Fpspradsheet المختصة بتصدير الجريد الى ملف اكسل

[kito]

السلام عليكم و رحمة الله
أنا أيضا عندي نفس المشكل في مشروع صغير يبحث و يستبدل الكلمة في مستند وورد

[kito]

طيب بالنسبة لمشكلتي في ملف الوورد الحل يكمن في استخدام وسيط لنقل النص و ليس النص مباشرة
مثلا

كود :

;A:olevariant ;A:=edit.Text ;OleComand.Replace.Text:=A

عوض

كود :

OleComand.Replace.Text:= edit.Text

---

[larbiparadox]

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

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;