سيف الدين 2

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin If gdFocused in State then with (Sender as TDBGrid).Canvas do begin Brush.Color := clRed; FillRect(Rect); TextOut(Rect.Left, Rect.Top, Field.A…

select a.*,b.*,c.* from t1 a,t2 b,t3 c where a.date_d='+QuotedStr(edit1.txt)+', and a.date_d=b.date_d and a.date_d=c.date_d ارجو ان تكون هي ماتريد :rolleyes: :rolleyes: :rolleyes:

وهذا مثال اخرى لمعرفة حجم الرام procedure TForm1.Timer1Timer(Sender: TObject); var x, y : real; memory: TMemoryStatus; begin memory.dwLength := SizeOf(memory); GlobalMemoryStatus(memory); label1.Caption :='Size : ' + IntToStr(memory.dwTotalPhys) + ' Bytes'; la…

رجع هذا الربــط :rolleyes: :rolleyes: :rolleyes:

/index.ph...=0entry246178 كيف يكمن ان ادرج ربط داخل الموقع 1- ضع الربط عن طريق استخدام زر http:// في لوحة الأدوات التي تظهر عند اضافتك لمشاركه .. 2- هنا تقوم بوضع ربط لتحميل 3-هنا تقو بوضع عنوان لربط ارجو ان يكون الشرح وضحاً :rolleyes: :rolleyes: :rolleyes:

السلام عليكم ورحمة الله وبركاته كل عام وأنتم بخير أعاده الله علينا بالخير والرحمة رمضان كريم

http://developer.postgresql.org/docs/postg...l-commands.html

عليك تنصيب DBE الخاص DataBase لــــParadox وهو موجود في Install shield المرفق مع دلفي انظر الي هذا الربط /index.php?showtopic=51000 --------------------- :rolleyes: :rolleyes: :rolleyes:

اتبع الخطوط التالي ادهب الي قائمة ابد او Start ومن ثم الي Runاو تشغيل اكتب فيه Exp فقط وليس اكتب كلمة المرور وكلمة السر الخاصة بـــ Databesa التي تريد تنقل بها الجداول والبيانات التي بها على جهاز اخر يمكنك استخدام HELP في EXPORT اتكتب الامر EXP HELP=Y بعد ذلك …

/index.ph...+قواعد+البيانات اتطلع على هذا الموضوع

ان برنامجك جميل جداً وممتاز بالتوفيق إن شاء الله

جرب هذا الكود with Query1 do begin Close; SQL.Clear; SQL.Add('select LastName||FirstName As EmpNmae Form EMPLOYEE'); open; end; في هذا الكود يمكن ان تدمج حقلين او اكثر بي وضع علامة || ما بين الحقلين المراد دمجه :rolleyes: :rolleyes: :rolleyes:

procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:= StrToInt(Edit1.Text)-100; Label1.Caption:= IntToStr(i) end; اطرح على 100 اخي الكريم :rolleyes: :rolleyes: :rolleyes:

الف الف الف الف الف الف الف الف الف الف الف الف الف الف مبروك

وهذا مثال لفتح ملف PowerPoint :rolleyes: :rolleyes: :rolleyes: PowerPoint.rar

:( ربما هناك سوء فهم :( شكراً romanof على كل حال :lol:

هذا المثال عن عن مصفوفة تحدد اليوم procedure TForm1.Button1Click(Sender: TObject); var adate:tdatetime; days:array[1..7]of string;//تعريف المصفوفة begin days[1]:='الأحد'; days[2]:='الاثين'; days[3]:='الثلاثاء'; days[4]:='اللاربعاء'; days[5]:='الخميس'; days[6]:…

هنا سوف تجد بعض المواقع المهتمة بلغة دلفي في المشاركة الثاني /index.php?showtopic=50013 :rolleyes: :rolleyes: :rolleyes:

الف الف الف الف الف الف الف الف الف الف الف مبروك

procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=IntToStr(Round(StrToFloat(Edit1.Text))); end; جرب هذا