محمد نسمان

السلام عليكم أخي العزيز Tamaa جربت الكود الذي كتبه، الدالة التى كتبتها، وهي تدخل في حلقة لا نهائية لان شرط until pos1=0 لن يتحقق ابدا، لانه يسبقه هذا السطر pos1:=pos2+strlen(pchar(parsestr)); وهذا يقوم بجعل قيمة Pos1 = 1 على الاقل ولن تتحول الى صفر ابدا وهكذا …

السلام عليكم أعتقد المشكلة تكمن في هذا السطر main1.ServerSocket1.Socket.Connections[0].SendText حيث انه عندما يتم اتصل يكون ServerSocket عامل اتصال في احد الاجهزة بينما في الجهاز الاخر لا يكون يعمل ويعمل بدلا منها ClientSocket، لذلك فهي تعمل في جهاز ولن تعمل ف…

أخي العزيز Tamaa Result عبارة عن متغير يحل محل اسم الدالة وبإمكانك إستخدام اسم الدالة بدلا منه، وهو لا يحتاج الى اي تعريف او عملية إنشاء لان ذلك يتم تلقائيا أنا أستخدمه مع TStringList وما الانواع الاخرى ويعمل بدون مشاكل، لكن لاحظت انك في الاجراء الذي كتبته الق…

أخي Tamaa شكرا لك على التعديل :) بالنسبة لإستخدام Trim فكلامك صحيح وانا لذلك استخدمتها حتى لا يتم استخدام المسافة قبل الاسم بالنسبة للدالة التى كتبتها لم اجربها بعد، لكن لي ملاحظات بسيطة لا يوجد داعي لهذا السطر result:=TStringList.Create; وايضا يفضل دائما ان ت…

السلام عليكم أخي العزيز جربت الكود وهو يعمل جيد ولا توجد به مشاكل ما هي نسخة IE التى لديك؟ وما هو نص الرسالة بالضبط

السلام عليكم هذا اجراء عملته ويقوم بتقسيم النص حسب الرمز الذي يتم اختياره سواء كان فاصلة او اي رمز اخر، بغض النظر عن العدد وسوف يقوم بإضافة النص الناتج الى TreeView procedure SeparateString(Str,SubStr :string); var I: Integer; begin while Pos(SubStr,Str) >0 do…

أهلا اخي زكيري، وان شاء الله ايكون المشروع معك تمام هذا هوا الموقع http://www.aspx4delphi.com وسوف تلاحظ انه يمكنك بناء الصفحة كما تبني الفورم وهذا نفس الموجود مع vs.net لكن طبعا مع دلفي من زمان :D

السلام عليكم أحب فقط أن اضيف أنه يضفل إستخدام المثود DisableControls عندما تريد القيام بعملية الجمع أو أي عملية أخرى تحتاج التعامل مع عدد كبير من السجلات وهي تزيد من السرعة بشكل ملحوظ وهذا مثال لذلك procedure TForm1.Button1Click(Sender: TObject); var Total: Do…

السلام عليكم هناك طريقتين لبرمجة ASP مع دلفي، الاولى هي كتابة معظم اجزاء ووظائف البرنامج ك Com Dll ومن ثم تقوم بإستدعائها من دخال ASP scripts وهذه هي الطريقة التى تحبذها ميكروسوفت أي ان تضع Bussiness logic داخل ال com وليس داخل صفحات ال asp والسبب الرئيسي لذلك…

السلام عليكم سوف تجد في هذين الموقعين طرق تحويل jpg الى bmp والعكس مع تحديد نسبة الضغط وعدد الالوان المستخدمة http://www.dev4arabs.com/ar/delphi/resours...p?s=2&id=12&k=2 http://www.dev4arabs.com/ar/delphi/resours...p?s=2&id=40&k=2 مع تحياتي والسلام

السلام عليكم كما تم ذكره يمكن معالجة ذلك في حدث OnError ورقم الخطأ يتم ارجاعه من خلال المعامل ErrorCode وعند جعل قيمته صفر فإن الخطأ لن يظهر، لكن يفضل دائما ان تقوم بإختبار قيمة المعامل ثم بعد ذلك تسند له القيمة صفر، procedure TForm1.ClientSocket1Error(Sender:…