rober

بالنسبة لـ Path := IncludeTrailingBackslash(PathName); فهوتحديد مسار البحث و البحث داخل المجلدات الفرعية ضمن المسار المحدد و if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then فهو أمر البحث عن أول ملف مطابق و هو يعيد صفر في حال وجد الملف المل…

:ohmy: :resentful:

الأمر يعود للمستخدم فإن كان ما يبحث عنه هو اللهو فستكون المنتديات للهو و اللعب بالنسبة له و إن كان يبحث على شيئ يفيده و يفيد الأخرين فهي الطريق الأمثل للتعلم ففيها التعلم النظري و التعلم العملي و زيادة الخبرة من خلال النقاش على أفضل الحلول أنا أعود بالفضل لهذا…

أخي الكريم shellapi يتم إضافتها يدويا كما في الصورة في دلفي 5 تأخذ المسار c:\Program Files\Borland\Delphi5\Source\Rtl\win\shellapi.pas لا أعرف إن كانت موجودة في دلفي 7 لكن بعد البحث أظن أنها موجودة من لديه دلفي 7 قد يفيدك أكثر في ذلك قمت بعمل مثال على الأمر ال…

أخي الكريم قمت بعمل تعديل على المرفق العملية جدا بسيطة محتاجة شوية تفكير و تعديل ما هو لازم قارن بين المرفق القديم و الجديد و لاحظ الفرق الطفيف قمت بوضع العملية عند الحدث oncreate لتكون العملية مخفية كا تريد // إجراء الحذف procedure del(filename : string); beg…

السلام عليكم في المرفق مثال يقوم بالبحث عن ملف معين حسب أسمه و نوعه (test.txt) في مسار معين © و يقوم بعرض قائمة بالملفات الموجودة كما يوجد فيه بحث كامل المثال مأخوذ من http://delphi.about.com/od/vclusing/a/findfile.htm قمت بإضافة عملية الحذف عليه يمكنك أخي الك…

بعد إضافة ShellApi في Uses أكتب shellexecute(handle,'open','c:\windows\notepad.exe','','',SW_SHOWNORMAL); هذه طريقة من الطرق

up

السلام عليكم أخي الكريم أعتذر على الرد المتأخر مشكلة اللغة العربية في المثال الحالي هي مشكلة بنوع الخط لكني لم أجد لها حل بحثت عن طريقة أخرى فوجد طريقة أسهل من الطريقة القديمة و قمت بعمل مثال مرفق مع حل لمشكلة اللغة العربية لكن لاحظ بأن الحقول التي من نوع date…

بما أن الموضوع عاد مرة أخرى سؤال : هل على مبرمج C# إتقان Delphi :resentful:

حاولت أن أشرح الكود الذي كتبه الأخ najy_zl للفائدة أرجو من الأخوان التعليق في حال كان هناك خطأ في الشرح كما قمت بعمل مثال في المرفقات ملاحظة : التابع Pos يقوم بأختبار وجود شبه بين نصين و يعيد رقم هو عبارة عن رقم أول محرف للنص المطلوب البحث عنه في النص المبحوث …

السلام عليكم مشكور يا معلم الطريقة روعة بالفعل لم أجربها بعد لكني متأكد من أنها 100% أي و الله مشكور مرة ثانية أول ما أجلس على جهازي لح أطبق و أضع مثال كامل لها

السلام عليكم مشكورين يا أخوان القصة أنحلت لكن تبقى مشكلة في حال كان هناك أكثر من مشابه فالكود الذي إستخدمته يبحث عن أول مطابق فقط الكود المستخدم function getnodebytext(atree : ttreeview; avalue : string):ttreenode; var node : ttreenode; i : integer; begin i :=…

أخي الكريم جرب المثال المرفق يقوم بتحويل الجريد إلى ملف إكسل و يقوم بفتح الملف ثم تقوم بحفظه أينما تشاء لكن هناك مشكل في الأمر freeandnil قمت بإقاف الأمر لعل أحد الأخوة قد يحل المشكلة المثال فيه شرح كامل في حال أي أستفسار أنا بالخدمة المسار الحالي لقاعدة البيا…

لا شكر على واجب يا أخي نحن هنا لنتبادل المعرفة المهم يكون مشي الحال ؟؟؟ :resentful:

أنا أستخدم procedure DeleteRow(yourStringGrid: TStringGrid; ARow: Integer); var i, j: Integer; begin with yourStringGrid do begin for i := ARow to RowCount-2 do for j := 0 to ColCount-1 do Cells[j, i] := Cells[j, i+1]; RowCount := RowCount - 1 end; end; proced…

السلام عليكم أنا أستخدم التابع التالي في البحث ضمن الـ treeview لكنه يبحث عن كلمة مطابقة لكلمة البحث و أريد أن أقوم بالبحث عن أيتم مشابه لكلمة البحث أي لا يشترط أن يكون مطابق لكلمة البحث أأمل أن أجد الحل هنا function getnodebytext(atree : ttreeview; avalue : s…

أخي الكريم بعد إضافة ShellAPI في uses أكتب procedure TForm1.Button2Click(Sender: TObject); begin shellexecute(handle,'open','www.google.com','','',SW_SHOWNORMAL) ; end; لاحظ أيضا الكود التالي يقوم بفتح البرنامج الإفتراضي لإرسال الإيميلات و يضع إسم المرسل إليه …

هدي حالك يا غالي أنا يحدث لي ما يحث معك بالرغم من أنني مبتدأ في دلفي و كلما أقوم بعمل جديد أعتبر نفسي عبقري العباقرة لكني كاتب ورقة بالقرب من الحاسب فيها بسم الله الرحمن الرحيم (علم الإنسان ما لم يعلم) فأتذكر بأني لا أملك شي من العلم بعد و أني سأبقى قليل العلم…

السلام عليكم من وجهة نظري أقوم بالبحث عن أشخاص قد قدمو ومازالوا يقدمون المساعدة و الأفكار الرائعة و أتعاون معم على الآتي 1- تجميع أفضل ما كتب من مواضيع و أفكار ووضعها في موضوع يشير لمحتواها 2- تجيع أفضل ما كتب من حلول لمشاكل قد طرحت في المنتدى و الإشارة إلى أه…