source code

شكرآ لك اخ ابراهيم هذا هو الكود بعد حذف الزوائد .. وتعديل مشكلة بسيطة : unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ShellAPI, ExtCtrls, Mask; //Be sure to include ShellAPI type TForm1 …

وعليكم السلام استخدم : FormatDateTime مثال : Mydate:= FormatDateTime('dd / mm / yy',Date); للمزيد : http://www.delphibasics.co.uk/RTL.asp?Name=FormatDateTime

شكرآ لك ... شغل مرتب ومتعوب علية .

انا لا اوافق .... : ) . . . . . . اولآ اهلآ وسهلآ بالأستاذ زكيري عبدالعالي ... من زمان ما شفناك بالمنتدى ... اهلآ وسهلآ وسجلني موااااااااااااااااافق ... وتابع موضوعك .. بارك الله فيك .

طيب قبل لا تطلب شي ثاني ... رد على الرجال اللي تعب ورد عليك وشرح لك بالتفصيل ... يكفي تقول شكرآ .

السلام عليكم AFUNA طلبك موجود هنا : http://www.delphiarea.com/products/imagehtml

وعليكم السلام احتمال يكون السبب ان البروجكت الموجود عندك يستخدم Indy 9 ... ودلفي 2007 يستخدم Indy 10 وهناك فرق بينهم ... وتحتاج الى بعض التعديلات .. مثال : الفرق في حدث OnExecute Indy 9 procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); begin //====…

merci infiniment de ce grand livre google translate ... : )

وعليكم السلام ورحمة الله وبركاتة الله يعطيك العافية اخوي محمد البارح كنت اقراء في الموضوع اللي ذكرتة ... لكن ما كنت اتوقع ان الـــ Firmware id هو ما كنت ابحث عنة وموضوعك وجدت فية معلومة جميلة بخصوص الكود : Windows 9x: SMARTVSD.VXD must be installed: just copy …

السلام عليكم الموضوع هذا تم مناقشتة منذ سنوات في هذا المنتدى وغيرة ... لكن لااذكر انة تم طرح الحل للحصول على الــــ manufacturer's hard drive serial number function GetPhysicalSerialNumber : string; const IDENTIFY_BUFFER_SIZE = 512; type TIDERegs = packed reco…

الله يوفقكم .

هل فكرت في هذا الكلام قبل ان تكتبة ؟؟ لن تستفيد شي من عدم طرح الكود ... بالعكس انت ومن يعمل معك الخسرانين ولماذا تحرم المبتدئين الذين لا يستطيعون المشاركة من التعلم منكم ؟؟؟ ماهي الفائدة من حجب الكود بما انة سوف يطرح عند الأنتهاء ؟؟؟

جرب تضيف اسم ملف الــ DCU الذي تريد استخدامة الى الـــ uses وفي بعض الحالات لا تستطيع استخدامة مع Delphi 7 وذالك لأختلاف اصدار اللكومبايلر .. مثال D5 or D6 و في هذة الحالة تحتاج ان تضيف بعض التعليمات الى الكومبيلير مثال لو كان ملف الــ DCU من اصدار قديم ولنفرض…

انت اخذت جزء من الكود اللي كتبتة لك جرب الأثنين مع بعض الأول : OnChange لمنع المسافة والأرقام في البداية الثاني : OnKeyPress لمنع كتابة الماسافة مرتين و ان شاء الله يعمل معاك بدون مشاكل .

السلام عليكم المشرفين ان شاء الله انهم مجتهدين .. وقصدهم تنظيم المنتدى ... مع ان طريقتهم مزعجة للبعض وانا منهم .. : ) اما سؤالك اخوي arar .. يمكن ذالك من خلال استخدام FTP ويوجد امثلة جاهزة مع الـ Indy ]

السلام عليكم جرب : procedure TForm1.Edit1Change(Sender: TObject); var Str: string; begin str := Edit1.Text; if (length(Str) = 1) and (Str[1] in ['0'..'9', ' ']) then Edit1.Text := '' end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var Str:…

Brian W. Kernighan, April 2, 1981

ما شاء الله عليكم لعرض الأكواد بطريقة احترافية انصحكم بتجربة : RichEdit Syntax Highlighter 3.0 http://www.planet-source-code.com/vb/scrip...47&lngWId=7

السلام عليكم جرب هذة الطريقة : procedure TForm1.Button1Click(Sender: TObject); var FoundAt: LongInt; Words: string; i, StartPos, ToEnd: Integer; begin Words := 'xxx'; with RichEdit1 do begin if SelLength <> 0 then StartPos := SelStart + SelLength else StartPos…

السلام عليكم يوجد طريقة اخرى...باستخدام IdHTTP form1.Caption := IdHTTP1.Get('http://127.0.0.1/ver.txt');