منتديات لجميع المواضيع العلمية والفكرية

تغير التاريخ في ب

mybb@mybb.ru (admin) — Fri, 06 May 2022 12:08:02 +0300

تغير التاريخ في بــ Delphi - History changed in Delphi

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
 stim: TSystemTime;
 date: TDate;
 time: TTime;
begin
  date := DateTimePicker1.Date;
  time := DateTimePicker2.Time;
  DateTimeToSystemTime(date+time,stim);
  SetSystemTime(stim);
end;

ترتيب حسب العمود

mybb@mybb.ru (admin) — Fri, 06 May 2022 11:58:55 +0300

ترتيب حسب العمود

// ترتيب حسب العمود

Code:

procedure Tfrm.DBGrid1TitleClick(Column: TColumn);
begin
  with AdoQuery1.SQL, Column do begin
  Clear;
  Add('SELECT * FROM Person1 ORDER BY '+Title.Caption+' '+ComboBox1.Text+';');
  end;
  AdoQuery1.Open;
end;

Delphi
// ترتيب حسب العمود

Code:

procedure Tfrm.DBGrid1TitleClick(Column: TColumn);
var strList: TStrings;
begin
  strList := TStringList.Create;
  with AdoQuery1, Column do
  begin
   GetFieldNames(strList);
   //Close;
   SQL.Clear;
   SQL.Add('SELECT * FROM Person1 ORDER BY '+strList[Index]+' '+ComboBox1.Text+';');
   Open;
  end;
  strList.Free;
end;

// ملء ComboBox بالقيم

Code:

procedure Tfrm.FormCreate(Sender: TObject);
begin
  with ComboBox1.Items do begin
    Clear;
    Add('ASC');
    Add('DESC');
  end;
end;

Code maker program برنامج صانع ا&#

mybb@mybb.ru (admin) — Fri, 06 May 2022 11:46:05 +0300

برنامج صانع الاكواد

بسم الله الرحمن الرحيم

برنامج صانع الاكواد أو تطبيق صانع الاكواد

هو انشيئ من أجل مساعدة كل مبرمج مبتدئي في مجال البرمجة وبالأخص في إنشاء تطبيقات تتعامل
مع قواعد البيانات وهو مركز حاليا على قواعد البيانات من نوع أكسس 2007 فما فوق وفما أدنى وإذا ساعدتني الظروف
سوف أقوم بتطويره إن شاء الله تعالى .

وسأضع الكود سورس النص البرمجي وتطبيق معا من اجل أن يطلع عليه من أراد من مبرمجي دلفي.
الكود سورس النص البرمجي معمول ب دلفي 7 من بورلاند أظن أن هذه النسخة قديمة من بورلاند أظن أنها صدرت 2002
كذاك أرجو من الإخوة مبرمجي دلفي أن ينبهوني إلى الأخطاء التي يكتشفونها في الكود سورس .

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

Translate Google

Code maker program or code maker app

It was created to help every novice programmer in the field of programming, especially in creating applications that deal with
With databases, it is currently focused on databases of the type Access 2007 and above and below, and if circumstances help me
I will develop it, God willing.

I will put the source code, the script and the application together for the Delphi programmers to see it.
The code source is the script made in Delphi 7 from Borland I think this is an old version of Borland I think it was released 2002
I also ask the brothers, Delphi programmers, to alert me to the errors that they discover in the source code.

And every programmer can develop or modify it and it is not for trading. It is a free and charitable project.
It was programmed by one of the Algerian programming enthusiasts.

Make Code pdf.rar
https://www.mediafire.com/file/j1fqcdbh … f.rar/file

Executable.rar
https://www.mediafire.com/file/sh06tqqt … e.rar/file

setup.rar
https://www.mediafire.com/file/qqednm42 … p.rar/file

Code Source.rar
https://www.mediafire.com/file/xa60r2um … e.rar/file

Learn programming language go/golang from beginning to professionalism

mybb@mybb.ru (admin) — Sun, 17 Jan 2021 13:59:23 +0300

تعلم لغة البرمجة جو من البداية الى الاحتراف
Learn programming language go from beginning to professionalism
Learn programming language go/golang from beginning to professionalism

احسن واسهل محرر اطن هو Visual Studio Code
و المفكرة من ويندوز تستطيع الكتابة بها وحفظ الملف بالامتداد go
مثلا:
variablego1.go
وتشغيل برنامج cmd الذهاب الى المكان الذي تحفظ فيه ملفات go
وتكتب الامر:
go run variablego1.go

---------------------------
---------------------------

المتغيرات وطريقة التصريح(الاعلان) بها
و اسناد قيم لها في لغة جو Go

---
مثال:
//
package main
import "fmt"
func main(){
s:="a123"
var s1 string
var s2="b456"
var s3 string ="h789"
s1="string"
var f1 float32
var f2 float64
f1=2.5
f2=250.75
var b1 bool
b1=true
b2:=false
fmt.Println(s,s1,s2,s3,f1,f2,b1,b2)
}

----------------------------------------
----------------------------------------

الثوابت اسناد القيم لها في لغة جو Go
الثوابت لايمكن تغيرها
مثال:

// constantsgo1.go

package main

import "fmt"

func main () {
const(
s = "Hello!"
i = 7
r = 2.5
)
const w="Welcome!"
fmt.Println(s,i,r,w)
}

----------------------------------------
----------------------------------------

طباعة الجمل والكلمات في سطر واحد في لغة جو Go
مثال:
// Printgo1.go
package main

import "fmt"

func main () {
fmt.Print("hello!")
fmt.Print("2021")
}

----------------------------------------
----------------------------------------

طباعة الجمل والكلمات في لغة جو Go
مثال:

// printlngo0.go
package main

import (
"fmt"
)

func main () {
const s1 = "ali"

fmt.Println(s1)
}

----------------------------------------
----------------------------------------

قرآة رقم من لوحة المفاتيح في لغة جو Go
طريقة كتابة تعليمات البرمجية في سطر واحد
مثال:

// scango1.go
package main

import "fmt"

func main () {
var a int
fmt.Print("Enter a number : "); fmt.Scan(&a); fmt.Print(" The number is ",a)
}

----------------------------------------
----------------------------------------
عملية الجمع في لغة جو Go
برنامج لجمع عددين في لغة جو Go

مثال:

// addition01.go

package main

import (
"fmt"
)

func main() {
var x,y int
fmt.Print("Enter number one : ")
fmt.Scanln(&x)
fmt.Print("Enter number two : ")
fmt.Scanln(&y)
fmt.Println(" Result : ",x+y)
}

----------------------------------------
----------------------------------------

عملية الجمع في لغة جو Go
برنامج لجمع عددين في لغة جو Go

مثال:

// additiongo1.go

package main

import (
"fmt"
)

func main() {
var x,y int
fmt.Print("Enter number one : ")
fmt.Scanln(&x)
fmt.Print("Enter number two : ")
fmt.Scanln(&y)
o:=x+y
fmt.Println(" Result : ",o)
}

----------------------------------------
----------------------------------------
عمل دالة في لغة جو Go
دالة او اجراء تابع
وهذه الدالة تقوم بجمع عددين وارجاع النتيجة الى الدالة الرئيسية
مثال:

// functiongo1.go
package main
import "fmt"

func main () {
fmt.Println(add(7,5))
}

func add(x int, y int) int {
return x+y
}

----------------------------------------
----------------------------------------
عمل دالة في لغة جو Go
دالة او اجراء تابع
وهذه الدالة تقوم بجمع وطرح عددين وارجاع النتيجتين
لم ار لغة تفعل مثل هذا الا لغة جو Go
مثال:

// functiongo2.go
package main
import "fmt"

func add_minus(x int, y int) (int,int) {
return x+y,x-y
}

func main () {
fmt.Println(add_minus(7,5))
}

----------------------------------------
----------------------------------------

المصفوفات تعامل معهم في لغة جو Go
المصفوفة هي مجموعة من القيم من نفس نوع
هذه مصفوفة احادية من نوع السلاسل الحرفية والرقمية
مثال:

// arraysgo1.go
package main

import "fmt"

func main () {

var names[3] string
names[0]="ali"
names[1]="ahmed"
names[2]="saad"

for i:=0; i<len(names); i++ {
fmt.Println(names[i])
}
fmt.Println(names[1])
fmt.Println(len(names))
}

----------------------------------------
----------------------------------------

المصفوفات تعامل معهم في لغة جو Go
المصفوفة هي مجموعة من القيم من نفس نوع
هذه مصفوفة احادية من نوع السلاسل الحرفية والرقمية وتعامل معها مختلف بنسب للقرآة
مثال:

// arraysgo2.go
package main

import "fmt"

func main () {

var names[3] string
names[0]="ali"
names[1]="ahmed"
names[2]="saad"

for i:=range names {
fmt.Println(names[i])
}

fmt.Println(names[0:3])

fmt.Println(names[1])
fmt.Println(len(names))
}

----------------------------------------
----------------------------------------

المصفوفات الرقمية تعامل معهم في لغة جو Go
المصفوفة هي مجموعة من القيم من نفس نوع
هذه مصفوفة احادية من نوع الاعداد الصحيحة اي الرقمية
مثال:

package main
import "fmt"

func main () {

arr1 := [3]int{1,2,3}
for i, value := range arr1{
fmt.Println(value,i)
}
}

----------------------------------------
----------------------------------------

المصفوفات الرقمية تعامل معهم في لغة جو Go 2
المصفوفة هي مجموعة من القيم من نفس نوع
هذه مصفوفة احادية من نوع الاعداد الصحيحة اي الرقمية
مثال:

package main
import "fmt"

func main () {

arr1 := [ 3 ] int { 7, 250, 100 }
for _, value := range arr1 {
fmt.Println(value)
}
}

----------------------------------------
----------------------------------------

المصفوفات الاحادية تعامل معهم في لغة جو Go
المصفوفة هي مجموعة من القيم من نفس نوع
هذه مصفوفة احادية من نوع السلاسل الحرفية والرقمية
وطريقة اسناد القيم مختلفة
مثال:

package main
import "fmt"

func main () {

arr1 := [ 3 ] string { "ali", "mahmod", "khaled" }
for _, value := range arr1 {
fmt.Println(value)
}
}
----------------------------------------
----------------------------------------

المصفوفات الاحادية تعامل معهم في لغة جو Go 2
المصفوفة هي مجموعة من القيم من نفس نوع
هذه مصفوفة احادية من نوع السلاسل الحرفية والرقمية
طريقة اسناد القيم مختلفة ولتوضيح اكثر
مثال:

package main
import "fmt"

func main () {

arr1 := [ 3 ] string { "ali", "mahmod", "khaled" }
for i, value := range arr1 {
fmt.Println(value, i)
}
}

----------------------------------------
----------------------------------------

المصفوفات الثنائية البعد تعامل معهم في لغة جو Go
المصفوفة هي مجموعة من القيم من نفس نوع
هذه مصفوفة ثنائية من نوع السلاسل الحرفية والرقمية
مثال:

package main
import "fmt"

func main () {

arr1 := [3][3]string{
{"faicel", "mahmoud", "khaled"},
{"saadi", "gembel", "kemal"},
{"khaled", "ahmed", "ferid"},
}
for _, value := range arr1 {
fmt.Println(value)
}
}

----------------------------------------
----------------------------------------

تجاوز قيمة من حلقة تكرارية في لغة جو Go
لتجاوز قيمة من حلقة تكرارية استعمل الامر continue
مثال:

// continuego1.go

package main

import "fmt"

func main(){

for i:=0; i < 10; i++ {
if i == 5 {
continue
}
fmt.Println("Value is ",i)
}
}

----------------------------------------
----------------------------------------

وقف حلقة تكرارية عند بلوغها قيمة معينة في لغة جو Go
لوقف حلقة تكرارية عند بلوغها قيمة معينة استعمل الامر break
مثال:

// breakgo1.go

package main

import "fmt"

func main(){
i:=0;
for i < 10 {
if i == 5 {
break
}
fmt.Println("Value is ",i)
i = i + 1
}
}

----------------------------------------
----------------------------------------

الحلقات التكرارية المتدخلة في لغة جو Go
مثال:

// fordgo1.go
package main

import "fmt"

func main () {
fmt.Println()
for i := 1; i <= 5; i++ {
fmt.Print("#")
for j := 1; j <= 5; j++ {
fmt.Print("*")
}
fmt.Println("#")
}
}
----------------------------------------
----------------------------------------

الحلقات التكرارية في لغة جو Go
الحلقات التكرارية تدور من 1 الى 5
مثال:

// forgo1.go
package main
import "fmt"
func main(){
for i:=0; i<5; i++ {
fmt.Println("Value is ",i)
}
}

----------------------------------------
----------------------------------------

الحلقات التكرارية في لغة جو Go 2
هذه الحلقات التكرارية تدور من 1 الى 5 ومختلفة تشبه ويلwhile في لغات اخرى
مثال:

// forgo2.go
package main
import "fmt"
func main(){
i:=0;
for i<5{
fmt.Println("Value is ",i)
//i++
//i+=1
i = i + 1
}
}

----------------------------------------
----------------------------------------

عمل شرط بif في لغة جو Go

مثال:

// ifgo1.go
package main
import "fmt"
func main(){

i:=7
if i==7 {
fmt.Println("i=",i)
}else{
fmt.Println("i<7 or i>7")
}
}

---------------------------------------------
---------------------------------------------

اداة اختيار switch من نوع عدد صحيح في لغة جو Go
اداة الاختيار switch يتم من خلالها اختيار واحد من مجموعة من الاخيارات
-
هنا يتم اختيار الرقم 4 وهو الذي ادخلناه في البداية

package main

import "fmt"

func main() {
var number int = 4
switch number {
case 1: fmt.Println("A number is 1")
case 2: fmt.Println("A number is 2")
case 3: fmt.Println("A number is 3")
case 4: fmt.Println("A number is 4")
case 5: fmt.Println("A number is 5")
case 6: fmt.Println("A number is 6")
case 7: fmt.Println("A number is 7")
default:
fmt.Println("It is default:")
}
}

---------------------------------------------
---------------------------------------------

اداة اختيار switch من نوع سلسلة حرفية في لغة جو Go
اداة الاختيار switch يتم من خلالها اختيار واحد من مجموعة من الاخيارات
-
هنا يتم اختيار الخيار توtwo وهو الذي ادخلناه في البداية

package main

import "fmt"

func main() {
var sq string = "two"
switch sq {
case "one": fmt.Println("string is one")
case "two": fmt.Println("string is two")
case "three": fmt.Println("string is three")
case "four": fmt.Println("string is four")

default:
fmt.Println("string is default:")
}

fmt.Println("Hello")
}
}

---------------------------------------------
---------------------------------------------

اداة اختيار switch من نوع منطقي بولـيا في لغة جو Go
اداة الاختيار switch يتم من خلالها اختيار واحد من مجموعة من الاخيارات
-
هنا يتم اختيار الخيار تروtrue وهو الذي ادخلناه في البداية

package main

import "fmt"

func main() {
var bq bool = true
switch bq {
case true: fmt.Println("bool is true")
case false: fmt.Println("bool is false")

default:
fmt.Println("bool is default:")
}

}

---------------------------------------------
---------------------------------------------

اداة اختيار switch من نوع منطقي بوليا في لغة جو Go
اداة الاختيار switch يتم من خلالها اختيار واحد من مجموعة من الاخيارات
-
هنا يتم اختيار الخيار فالسfalse وهو الذي ادخلناه في البداية

package main

import "fmt"

func main() {

bq := false
switch bq {
case true: fmt.Println("bool is true")
case false: fmt.Println("bool is false")

default:
fmt.Println("bool is default:")
}

}

/////////////////////////////////////////

----------------------------------------
----------------------------------------

عمل تسجيلة struct في لغة جو Go
التسجيلة هي مجموعة من القيم المختلفة

مثال:

// structgo1.go
package main

import "fmt"

type nameb1 struct {
name1 string
name2 string
}

func main () {

var mynameb1=nameb1 {
name1: "ali",
name2: "ahmed",
}
fmt.Println(mynameb1.name1)

}

----------------------------------------
----------------------------------------

مثلث من النجوم
مثال:

package main

import "fmt"

func main () {
fmt.Println()
for i := 1; i <= 5; i++ {
for j := i; j <= 5; j++ {
fmt.Printf("*")
}
fmt.Println("*")
}
fmt.Println("*")
}

الـــدالة Locate وكيف&

mybb@mybb.ru (admin) — Thu, 11 Apr 2019 22:14:08 +0300

بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
منقول
الـــدالة Locate وكيفية البحث

الدالة "Locate" تستطيع أن تبحث بها في أي قاعدة بيانات كانت,
سوى كان الحقل مفتاح أولا

وهي تقف عند أول اسم تجده في قاعدة البيانات,
وهي دالة منطقية "Boolean" ترجع القيمة
صح أو خطأ true or false ,
أقصد أنه في حالة تم العثور على المبحوث عنه يتم الحصول عل القيمة true
والعكس false

المثال:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Table1.Locate('Nom',Edit1.Text,[])then
ShowMessage('موجود') else ShowMessage('غير موجود');
end;

البحث بكلمة أو جزء من كلمة

Code:

procedure TForm1.Button2Click(Sender: TObject);
begin // البحث بكلمة أو جزء من كلمة
if Table1.Locate('Nom',Edit1.Text,[loPartialKey]) = true then
ShowMessage('موجود') else ShowMessage('غير موجود');
end;

سوى كانت الحروف كبيرة أوصغيرة

Code:

procedure TForm1.Button3Click(Sender: TObject);
begin // سوى كانت الحروف كبيرة أوصغيرة
if not Table1.Locate('Nom',Edit1.Text,[loCaseInsensitive])then
ShowMessage('غير موجود') else ShowMessage('موجود');
end;

Code:

procedure TForm1.Button4Click(Sender: TObject);
begin
if Table1.Locate('Nom',Edit1.Text,[]) = false then
ShowMessage('غير موجود') else ShowMessage('موجود');
end;

البحث برقم واسم

Code:

procedure TForm1.Button5Click(Sender: TObject);
begin // البحث برقم واسم
if Table1.Locate('Code;Nom', VarArrayOf([StrToInt(Edit1.Text), Edit2.Text]),
[loCaseInsensitive, loPartialKey])then
ShowMessage('موجود') else ShowMessage('غير موجود');
end;

البحث برقم وكلمتين منفصلتين

Code:

procedure TForm1.Button6Click(Sender: TObject);
begin // البحث برقم وكلمتين منفصلتين
if Table1.Locate('Code;Nom;Prenom',
VarArrayOf([StrToInt(Edit1.Text), Edit2.Text, Edit3.Text]),
[loCaseInsensitive, loPartialKey])then
ShowMessage('موجود') else ShowMessage('غير موجود');
end;

كيف تثبت برامجك ع

mybb@mybb.ru (admin) — Thu, 11 Apr 2019 22:11:57 +0300

بسم الله الرحمن الرحيم

كيف تثبت برامجك عند الغير

النسخة الانجليزية من
Borland C++Builder 5
بنسبة لدلفي نفس شيء
ملاحظة بنسة للاصدار 6 و 7 اختلفت طريقة
تشغيل
Express for C++Builder 5
اختيار مشروع جديد ضغط فوق موفق
Create a new Setup Project ==> OK
كتابة اسم المشروع
Project Name ==> forumalgerie
تحديد مكان تواجد ملفات قواعد البيانات التابعة للمشروع
Project Path
يكون المسار هكذا مثلا
Dirctory ==> C:\delph\forumalgerie.iwz
نقر فوق انشاء
Create
ظهور النافذة التالية
Setup Checklist
Set the Visual Design
نقر فوق العبارة التالية
Application Information ==> Click
ظهور مربع الحوار فتح تحديد الملف التنفيذي تابع للمشروع
Application Executable: ==> Browse... ==> Project1.exe

----/////----
Application Name ==> forumalgerie
Default Destination Dirctory: ==> C:\delph ==> OK
نقر فوق العبارة التالية
Features ==> Click
تمكين الخيار تالي من اجل الغاء تثبيت
Automatic Uninstaller ==> true ==> OK
نقر فوق العبارة التالية
General Options ==> Click
تمكين الخيار تالي
BDE Database Component Packages ==> true
تمكين الخيار تالي اذا تم استعمال اوامر المشار اليها في العبارة التالية
SQL - Links
تمكين الخيار تالي
BDE (Borland Database Engine) ==> true
ظهور النافذة التالية نقر فوق جديد
BDE Aliases ==> New
كتابة اسم اليا أو الاسم المستعار وهو الاسم الذي انشأته عندما انشأت المشروع
Alias Name ==> Algerie ==> OK ==> Next
تمكين الخيار تالي
Save CFG file for both 16 and 32 bit applications ==> true ==> Next
كتابة مسار اليا كما هو موضح
Path ==> C:\delph
اختيار نوع قاعدة البيانات التي انشأتها عندما انشأت ملفات قاعدة البيانات مثلا هنا بارادوكس نقر فوق انهاء ثم فوق موفق
Type ==> Paradox ==> Next ==> Terminer ==> OK
نقر فوق العبارة التالية ثم نقر فوق موفق
Advanced Options ==> OK
نقر فوق العبارة التالية
Groups and files
ظهور النافذة التالية
تحديد Program files وانقر فوق Insert Files ظهور مربع الحوار فتح تحديد ملفات قاعدة البيانات وملفات دلل dll
أي ملفات أخرى تحتاجها لمشروعك لاتحدد ملفات الكود سورس تابعة سي ++ بولدر
Program files ==> select ==> Insert Files ==> Click
تم تحديد ملفين فقط في مثلنا هذا
select ==> db001.db db001.px ==> Open
بنسة الى مجموعة جديدة أو مجلد جديد اذا كان مشروعك يحتوي على مجلدات فرعية فيجب نقر فوق
New Group..
والا لا
==> Ok
نقر فوق العبارة التالية ثم نقر فوق موفق
Dialog Box ==> Click ==> Ok
نقر فوق العبارة التالية
Disk Builder ==> Click
تحديد CD-ROM وانقر فوق Build
Disk Size ==> CD-ROM ==> Build
عندما تنتهي العملية انقر فوق اغلاق
Close
-----------
تشغيل هذا البرنامج BDE Administrator وحذف اليا Algerie بتحديدها ثم حذفها قبل بدء عملية تثبيت
Algerie ==> Object ==> Delete ==> OK
تغيير المسار من C:\delph الى C:\delph11 قبل بدء عملية تثبيت
ذهاب الى المسار تالي وبدء عملية التثبيت
C:\delph\forumalgerie1\650MB\DISK1\setup.exe

كيفية انشاء اليا
تشغيل هذا البرنامج BDE Administrator
ظهور النافذة التالية
BDE Administrator
من القائمة Object انقر New ثم انقر فوق موفق ok
اكتب اسم اليا alias وليكن Algerie مثلا

ملاحظة
اذا لم تكن تعرف ألأيا ان تقل الى الرابط
http://delph.forumalgerie.net/t362-topic

من نوع بارادوكس حسبة هذا المثال
default driver
تحديد مكان حفظ اليا
path ==> C:\delph
Object ==> Save as ..
اغلاق البرنامج
بنسبة لدلفي نفس شيء

The most important 30 questions in English

mybb@mybb.ru (admin) — Thu, 11 Apr 2019 22:08:25 +0300

The most important 30 questions in English
Of my own, I programmed it in Delphi 10.2
It is the free version distributed by
Emparcadero

The questions were translated by both brothers
خليل الجنابي
and
Dares Almazhani
I asked them to agree with me that I would complete my program
So they agreed
They are my partners in the program and since the program is free, they are my partners in the reward, God willing
I hope that this work will be pure and in the name of Allah

What does the program do?

The program poses a question in English
And subtracts 5 translations of the question in Arabic, including the correct translation of the question
If you succeed in choosing the correct translation of the question, a message will appear telling you that the translation is correct

and The program poses a question in Arabic
And subtracts 5 translations of the question in English, including the correct translation of the question
If you succeed in choosing the correct translation of the question, a message will appear telling you that the translation is correct

In terms of software
The program is 1 Form, 1 Label, 1 RadioGroup, and 1 BitBtn
The Label displays a question in English
RadioGroup offers 5 translations of the question in Arabic
And BitBtn out of the program

The text file
Reeadme
http://www.mediafire.com/file/m7moaegr8 … e.rar/file
The source code file is explained and explained

The project is complete
English
http://www.mediafire.com/file/9w5gbt4m5 … h.rar/file
The full project Delphi must have a Delphi 10.2 installed

Executable file
prjEnglish
http://www.mediafire.com/file/1zzc73tjl … h.rar/file
The executable file can be run by any user

----------

The text file
Reeadme
http://gulf-up.com/d/1jnm
The source code file is explained and explained

The project is complete
English
http://gulf-up.com/d/1jni
The full project Delphi must have a Delphi 10.2 installed

Executable file
prjEnglish
http://gulf-up.com/d/1jnl
The executable file can be run by any user

برنامج اهم 30 سؤال

mybb@mybb.ru (admin) — Thu, 11 Apr 2019 22:05:50 +0300

برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي

منقول

برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي
الميزة الجديدة في البرنامج أنه عربي انجليزي وانجليزي عربي

من انجازي قمت برمجته بدلفي 10.2 Delphi 10.2
وهي النسخة المجانية التي توزعها
Emparcadero

ترجم الاسئلة كل من الاخوين

خليل الجنابي
و
Dares Almazhani

ولقد طلبت منهما ان يوافقا لي على ان اقوم بانجاز برنامج بدلفي
فوافقا مشكورين
وهما شركائي في البرنامج وبما ان البرنامج مجاني فهما شركائي في الاجر ان شاء الله تعالى
اتمنى ان يكون هذا العمل خالصا الله وفي سبيل الله

ماذا يعمل البرنامج ؟

البرنامج يطرح سؤال بللغة الانجليزية
ويطرح 5 ترجمات للسؤال باللغة العربية وتكون من بينهم ترجمة الصحيحة للسؤال

و كذلك البرنامج يطرح سؤال باللغة العربية
ويطرح 5 ترجمات للسؤال بللغة الانجليزية وتكون من بينهم ترجمة الصحيحة للسؤال

فاذا وفقت في اختيار ترجمة الصحيحة للسؤال تظهر رسالة تخبرك بان ترجمة الصحيحة

من الناحية البرمجية
البرنامج عبارة عن 1 Form و Label 1 و 1 RadioGroup و 1 BitBtn
في Label يعرض سؤال بللغة الانجليزية
وفي RadioGroup يعرض 5 ترجمات للسؤال باللغة العربية
و BitBtn للخروج من البرنامج.

المشروع كامل بدلفي يجب ان يكون دلفي 10.2 طوكيو مثبت عندك

The project is complete
البرنامج كامل بدلفي
English
http://www.mediafire.com/file/wfj5i4y4c … h.zip/file

الصور
http://www.mediafire.com/file/dsf63l8aa … e.rar/file

Executable file
الملف البتنفيذي
prjEnglish
http://www.mediafire.com/file/aattmwq2n … 1.rar/file

الملف التنفيذي يستطيع اي مستخدم ان يشغله

رابط تحميل
https://www.gulf-up.com/p07o236mp14b
-

The project is complete
البرنامج كامل بدلفي
English

https://www.gulf-up.com/vtymnay2eif1

طريقة اضافة اللغ

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 21:06:30 +0300

طريقة اضافة اللغة العربية الى ويندوز 7 في النسخة الفرنسية

ادخال القرص تثبيت ويندوز 7 النسخة الفرنسية في محرك الاقراص
أقصد النسخة التي ثبتت بها ويندوز 7 هذا من أحسن
لأنه سيتم اضافة بعض ملفات الخاصة بالعربية
لأنها لا تثبت تلقائيا وانما يتم اضافتها اثناء تثبيت أو فيما بعد

بسم الله الرحمن الرحيم
الصلاو السلام على رسول الله

وهذه هي طريقة الاضافة

قائمة ابدأ ثم لوحة التحكم
Démarrer --> Panneau de configuration -->

داخل لوحة التحكم تجه الى المجموعة
Horloge, langue et région
Modifier les claviers ou les autres méthodes d'entrée
Modifier la langue

اضغط فوق تغيير اللغة
Modifier la langue

-----------------------------------------
Région et langue

حدد اللسان
Formats

من اللقائمة حدد عربية الجزائر
Arabe(Algérie)

اضغط فوق
Paramétres supplémentaires...

----------------------------------------
Personnaliser le format

حدد اللسان
Nombres

من اللقائمة حدد الارقام متعودين عليها في نحن في الجزائر
chiffres standard

من اللقائمة حدد Nationnal
Utiliser les chiffres natifs --> Nationnal

اضغط فوق
OK

----------------------------------
حدد اللسان
Emplacement

من اللقائمة حدد Algérie
Lieu actuel: --> Algérie

-----------------------------------
حدد اللسان
claviers et langue

من اللقائمة حدد français
Choisissez une langue d' affichage: --> français
هذا اذا كنت تريد ان تكون لغة العرض هي الفرنسية

اضغط فوق
Modifier les claviers...

-------------------------------------
Général

حدد اللسان Général

من اللقائمة حدد Français(France)

Langue d' entrée par défaut --> Français(France)
هذا اذا كنت تريد ان تكون لغة الادخال هي الفرنسية

اضغط فوق
Ajouter...

من اللقائمة حدد Arabe(102) AZERTY
Arabe(Algérie) --> Arabe(102) AZERTY --OK

اضغط فوق
--> ok --> ok

طريقة اضافة اللغ

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 21:05:12 +0300

طريقة اضافة اللغة العربية الى ويندوز xp في النسخة الفرنسية

ادخال القرص تثبيت ويندوز xp النسخة الفرنسية في محرك الاقراص
أقصد النسخة التي ثبتت بها ويندوز xp هذا من أحسن
لأنه سيتم اضافة بعض ملفات الخاصة بالعربية
لأنها لا تثبت تلقائيا وانما يتم اضافتها اثناء تثبيت أو فيما بعد

بسم الله الرحمن الرحيم
الصلاو السلام على رسول الله

وهذه هي طريقة الاضافة

قائمة ابدأ ثم لوحة التحكم

داخل لوحة التحكم تجه الى المجموعة
Choisissez une catégorie

اختر من المجموعة
Options régionales, date, heure et langue

اختر من المجموعة
Choisissez une tàche...

اضغط فوق اضافة اللغة
Ajouté d'autres landues

حدد لسان اللغة
landues

اشر فوق
installer les fichiers pour langues à script
complexe et s'ècrivant de droite à geuche
[ce pui inclut le thailandais]

اضغط فوق
Détails...

داخل النافذة
Services de texte et langues d'entrée

حدد اللسان
Paramétres

اضغط فوق
Ajouter...

من اللقائمة حدد
Arabe(Algérie)

اضغط فوق
ok

ثم حدد اللسان
Avancé

اشر فوق
Erendre les services
de texte avancés à tous les programmes

من اللقائمة حدد Français(France)
هذا اذا كنت تريد ان تكون لغة الادخال هي الفرنسية

Arabe(Algérie)
هذا اذا كنت تريد ان تكون لغة الادخال هي اللغة العربية الجزائر

اضغط فوق
ok

حدد اللسان
Options avancées

حدد
Arabe(Algérie)

ثم حدد اللسان
Options régionales

حدد
Arabe(Algérie)

اضغط فوق
Personnaliser...

Substitution des chiffres
حدد
Nationnal

اضغط فوق
ok

كيفية انشاء ملف DLL &#

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 21:01:47 +0300

DLL

واستدعائه بدلفي

بسم الله الرحمن الرحيم

و الصلاة و السلام على رســـول الله

كيفية انشاء ملف DLL بـــ Delphi
واستدعائه بــــبرنامج دلفي Delphi

المشروع أي انشاء مشروع جديد
fichier -> nouveau -> application -> ok

------------------------

Code:

unit Unit01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
 function Addition(a1,b1: integer): integer; stdcall;
 external 'TestDLL1.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 x, y: integer;
 j: integer;

begin
 x := StrToInt(Edit1.Text);
 y := StrToInt(Edit2.Text);
 j := Addition(x, y);
 Label1.Caption := IntToStr(j);

end;

end.

----------------------------------
procedure Button1Click(Sender: TObject);

في السطر الاول تم تصريح باجراء النقر هو من نوع كائن وتتم كتابته تلقائيا

private { Déclarations privées }

منطقة لتصريح المخصص أي تصريح لبعض المتغييرات أو الاجراءات

public { Déclarations publiques }

منطقة لتصريح العام أي تصريح بعض المتغييرات أو الاجراءات

function Addition(a1,b1: integer): integer; stdcall; external 'TestDLL1.dll';

تصريح بالدالة المستعملة في البرنامج

implementation {$R *.dfm}

نهاية منطقة التصريح وبداية منطقة كتابة الاوامر أي جسم البرنامج

procedure TForm1.Button1Click(Sender: TObject);

بداية اجراء النقر

var
x, y: integer;
j: integer;

تصريح بثلاثة متغييرات من نوع صحيح داخل الاجراء

begin

بداية جسم الاجراء

x := StrToInt(Edit1.Text);

اسناد القيمة المدخلة في مربع النص الى المتغيير صحيح وذلك بعد تحويلها من سلسلة حرفية الى عدد صحيح

y := StrToInt(Edit2.Text);

عملية اسناد كسابقه أي نفس شيء

Label1.Caption := IntToStr(j);

اسناد قيمة المتغيير الى لافتة كابشن لابل الاول وذلك بعد عملية التحويل من متغيير الى سلسلة حرفية

end;
end.

نهاية الاجراء ونهاية البرناج في نفس الوقت

...

fichier -> nouveau -> export dll -> ok

ملف دي ال ال

Liprary مكتبة

stdcall;

-----------------------------

Code:

library TestDLL1;

uses SysUtils, Classes;

{$R *.res}

function Addition(a1,b1: integer): integer; stdcall;
begin
  Addition := a1+b1;
end;
 exports  Addition;

begin
end.

-----------------
سأحاول شرح هذه الاوامر

Liprary TestDLL1;

المكتبة وهذه المكتبة لها اسم معين

begin

البداية

tesult := a1+b1;

اسناد نتيحة عملية الجمع الى الدالة أو الى اسم الدالة

exports Addition;

تصدير الدالة الى خارج المكتبة من أجل استعمالها في برامج أخرى

end.

النهاية

نستطيع كتابة دالة أو اثنان أو أكثر أو حتي اجراءات متعددة

في حالة تعدد الاجراءات والدوال

Code:

function addition(a1,b1: integer): integer; stdcall;
begin

result := a1+b1;

end;

Code:

function soustraction(x:integer; y: integer): integer;

result := x-y;

end;

Code:

procedure max(k: integer; j: integer; var m: integer)

begin

if k > j then m:=k else m:=j;

end;

هذه طريقة تصدير الى البرامج المستدعية أي التي تستدعي هذه الدوال والاجراءات ونفصل بينها فاصلة

exports addition, soustraction, max;

Code:

library Project1;

uses SysUtils, Classes;

{$R *.res}

function Addition(a1,b1: integer): integer; stdcall;
begin
  Addition := a1+b1;
end;
 exports  Addition;

begin
end.

انشاء المكون TLabel بر

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:57:24 +0300

انشاء المكون TLabel برمجيا وتغيير الااوان

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure CliqueLabel1(Sender: TObject);
private public
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses StdCtrls;

var
Label1: TLabel;

procedure TForm1.CliqueLabel1(Sender: TObject);
begin

Label1.AutoSize := false;
Label1.Alignment := taCenter;
Label1.Left := Label1.Left + Label1.Width;
if Label1.Left <= Form1.Width then
begin
Label1.Top := 20;
Label1.Height := 15;
Label1.Width := 50;
end
else
Label1.Left := 20;

if Label1.Color = clRed then
begin
Label1.Color := clGreen;
Label1.Font.Color := clRed;
Label1.Caption := '1954';
end
else if Label1.Color = clGreen then
begin
Label1.Color := clWhite;
Label1.Font.Color := clGreen;
Label1.Caption := '1962';
end
else
begin
Label1.Color := clRed;
Label1.Font.Color := clWhite;
Label1.Caption := '2016';
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

Label1 := TLabel.Create(self);
Label1.Parent := Form1;
Label1.AutoSize := false;
Label1.Cursor := crHandPoint;
Label1.Left := 20;
Label1.Top := 20;
Label1.Height := 15;
Label1.Width := 50;
Label1.Color := clRed;
Label1.Font.Color := clGreen;
Label1.Alignment := taCenter; // taLeftJustify taRightJustify
Label1.Caption := '1962';
Label1.OnClick := CliqueLabel1;

end;

بسم الله الرحمن الرحيم

الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

انشاء TEdit برمجيا

var
Edits: TEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edits := TEdit.Create(self);// delph.forumalgerie.net
Edits.Parent := Form1;// delph.forumalgerie.net
Edits.Show;// delph.forumalgerie.net
Edits.Left := 50;// delph.forumalgerie.net
Edits.Top := 50;// delph.forumalgerie.net
Edits.Width := 157;
Edits.Height := 5;
Edits.Name := 'EditTest';
Edits.Font.Name := 'Arial';
Edits.Font.Charset := ARABIC_CHARSET;
Edits.Font.Size := 9;
Edits.Font.Style := [fsBold];
Edits.BiDiMode := bdRightToLeft;
Edits.MaxLength := 11;
Edits.Enabled := True;
Edits.ReadOnly := False;
Edits.Visible := True;
Edits.Hint := 'Je suis hint';
Edits.ShowHint := True;
Edits.PasswordChar := #0; // Normal
{Edits.PasswordChar := *; Mot de passe }
Edits.TabOrder := 0; // 0 1 2 3 ...
Edits.TabStop := True;
Edits.Text := '';
Edits.Font.Size := 11;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Edits.Free; // delph.forumalgerie.net
end;

الازرار ضغط بيت بتن و بوتو Button BitBtn

مُساهمة من طرف mah11 في الأربعاء أبريل 01, 2015 10:39 pm
الازرار ضغط بيت بتن و بوتو Button BitBtn

procedure TForm1.BitBtn1Click(Sender: TObject); //
begin
BitBtn1.Caption := 'Click her'; //
end; //

procedure TForm1.Button1Click(Sender: TObject); //
begin
Button1.Caption := 'Click her'; //
end; //

if not fileExists('Emdb1.db') then
begin
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('CREATE TABLE "Emdb1.db"(NOM CHAR(20),PRENOM CHAR(15),'+
'CODE NUMERIC(5))');
SQLQuery1.ExecSQL;
end;

كيف تشغل دلفي من

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:54:45 +0300

بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين

كيف تشغل دلفي من قائمة كافة البرامج

أنقر فوق ابدأ
Démarrer

أنقر فوق كافة البرامج
Tous le programmes

أنقر فوق بورلند دلفي 5
Borland Delphi 5
أنقر فوق دلفي 5
Delphi 5

ظهور دلفي 5 أي مشروع جديد بعنوان
Project1

------------------------------------------------------------

كيفية اعادة انشاء مشروع من جديد

أنقر فوق ملف -Fichier- ثم من القائمة اتحه الى الامر اغلاق المشروع باكمله -Tout fermer-

أنقر فوق ملف ثم أنقر فوق جديد
Fichier\Nouveau...
من القائمة حدد جديد
من النافذة -Nouveau éléments- حدد تبويب جديد -Nouveau- ثم حدد -Application- ثم أنقر فوق موفق -ok-

Nouveau éléments\Nouveau\Application\ok
ظهور مشروع جديد بعنوان -Project1-

وظهور نموذج بعنوان -Form1- هذا هو مشروعك الذي ستعمل عليه من الآن فصاعدا بعد ذلك
حدد تبويب قياسي -Standard- انقر على العنصر -Button- ثم انقر فوق النموذج -Form1-
سيظهر لك عنصر بعنوان -Button1- اذا أردت تكبيره أو تصغيره ما عليك سوي نقرعليه أي تحديده لكي تحري عليه بعض التعديلات
ستظهر لك ثمانية نقاط سود اتجه بمؤشر الفأوة الى أي نقطة تريد واضغط واسحب الى أي اتجاه سترى شكله يتغير كلما سحبت
وبهذا تختار الشكل الذي تريد ه للعنصر المختار

أما اذا أردت تحريكه أي وضعه في مكان ما على النموذج واضغط واسحبه أي ابقى ضاغطا واسحبه الى مكان ما على الموذج

لوضع عدة العناصر على النموذج اتجه الى تبويب قياسي مثلا
اضغط على مفتاح العلوي شفت مع انقر فوق العنصر الذي تريده ثم ضع على النموذج ما تشاء من هذا العنصر أي
Button1 Button2 Button3 Button4 Button5 ... مثلا
ثم اتجه الى تبويب قياسي وانقر فوق رمز سهم في نفس تبويب

لتغيير عنوان العنصر حدد العنصر اولا ثم اتجه الى مفتش الكائنات
Inspecteur d'objets
ثم حدد الخاصية -Caption- واكتب العنوان الذي تريده

لتغيير اسم العنصر حدد العنصر اولا ثم اتجه الى مفتش الكائنات
Inspecteur d'objets
ثم حدد الخاصية -Name- واكتب الاسم الذي تراه مناسبا

هذه العملية تستطيع تنفيذها على كافة العناصر الأخرى وبنفس الطريقة

كيفية تثبيت دلفي

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:52:53 +0300

بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين

كيفية تثبيت دلفي

أدخل قرص دلفي في محرك الاقراص وانقر نقرتين فوق رمز القرص أو ادخل الى محرك الاقراص
وانقر نقرتين فوق الملف تنفيدي
INSTALL.EXE
أو
setup.exe

عند ظهور النافذة التالية
Delphi Lanceur d'installation de la version Professionnelle
وانقر فوق Delphi
ثم انقر فوق -Suivant- أدخل الرقم التسلسولي والمفتاح
numéro de série et clé
ثم انقر فوق -Suivant- ثم انقر فوق -Oui- ثم انقر فوق -Suivant-
اترك الاختيار الافتراضي كما هو -Typique- ثم انقر فوق -Suivant- ثم انقر فوق -Suivant-

هنا ملاحظة هامة بنسبة لنسخة الفرنسية فقط

عند ظهور النافذة التالية
Veuillez sélectionner les répertoires de composants
اتجه الى الخانة
Module Base de donnée
بدل é بــ e فــي المسار تالي
C:\Program Files\Borland\Module base de données
لـيصبح هكذا
C:\Program Files\Borland\Module base de donnees

--------------------------
تبديل الأو أكسو -é- بــالأو بدون أكسو -e-
هذا من أجل تشغيل معالج قواعد البيانات بدون مشاكل
--------------------------

ثم انقر فوق -Suivant- ثم انقر فوق -Suivant-
ثم انقر فوق -Installer-
انتظر حتى تنتهي عملية التثبيت وذلك حسب سرعة الجهاز

عند ظهور آخر نافذة في العملية وهي
installation terminée

حدد أحد الخيارين هو اعادة تشغيل الجهاز الآن أو في وقت آخر ومن الاحسن اعادة تشغيل الجهاز الآن
Oui, je veux redémarrer mon ordinateur maintenant
أو
Non, je redémarrer mon ordinateur plus tard

انقر فوق انهاء
terminée

ثم شغل دلفي واستمتع بها

تابع الموضوع
كيف تشغل دلفي من قائمة كافة البرامج

تفعيل الصوت في وي

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:48:27 +0300

تفعيل الصوت في ويندوز xp

تنقر باليمنى فوق أيقونة رمز جهاز الكمبيوتر في سطح المكتب

في القائمة تنقر فوق
Gérer
أو
Manage

--------------------------
Poste de travail -> List -> Gérer -> Gestionde l'ordinateur ->
Gestionnaire de périhériques ->
ContrÔleurs audio, vidéo et jeu

اذا لم تجد أي علامات صفراء فأعلم أن بطاقة الصوت مثبت في الجهاز

----------------------------------
فقم بتفعيلها فقط

Poste de travail -> List -> Gérer -> Gestionde l'ordinateur ->
Services et applications -> Services ->
Audio Windows -> démarrer

تحويل من عدد صحيح

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:21:42 +0300

بسم الله الرحمن الرحيم

دوال التحويل من الى

تحويل من عدد صحيح الى سلسلة حرفية
عدد صحيح الى سلسلة حرفية
IntToStr ==> Integer to String
مثال :
Edit1.Text := IntToStr(12);

-----------------------------------------------------------------------
عدد صحيح الى ستة عشر
IntToHex ==> Integer to hexadécimal : Renvoie la représentation en hexadécimal d'un entier.
مثال :

var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption + IntToHex(ord(Edit1.Text[i]),2) + ' ';
except
Beep;
end;
end;
end;
أدخل 1 2 3 تحصل على 31 32 33
--------------------------------
سلسلة حرفية الى عملة أي عملة متداولة أو نقدية
StrToCurr ==> String To Currency
مثال :
var cr: currency;
begin
cr := StrToCurr('550.25');
---------------------------------------
سلسلة حرفية الى تاريخ
StrToDate ==> String To Date
مثال :
var dt: tdate;
begin
dt := StrToDate('20/06/2013');
-----------------------------
سلسلة حرفية الى وقت
StrToTime ==> String to Time
مثال :
var tm: TTime;
begin
tm := StrToTime('12:20:00');
------------------------------
سلسلة حرفية الى تاريخ ووقت
StrToDateTime ==> String To Date and Time
مثال :

------------------------------
سلسلة حرفية الى عدد حقيقي
StrToFloat ==> String To Real
مثال :
var rl: real;
begin
rl := StrToFloat('10.15');
---------------------------
سلسلة حرفية الى عدد صحيح
StrToInt ==> String to Integer
مثال :
var int: real;
begin
int := StrToInt('10');

---------------------------
تاريخ الى سلسلة حرفية
DateToStr ==> Date to string
مثال :
edit1.Text := DateToStr(date);

------------------------
وقت الى سلسلة حرفية
TimeToStr ==> Tame to string
مثال :
edit1.Text := TimeToStr(time);

------------------------------------
تاريخ ووقت الى سلسلة حرفية
DateTimeToStr ==>
Date and Time To String
مثال :
edit1.Text := DateTimeToStr(now);

-------------------------------------
عدد حقيقي الى سلسلة حرفية
FloatToStr ==> Float To String
مثال :
edit1.Text := FloatToStr(10.15);

--------------------------------
عملة الى سلسلة حرفية
CurrToStr ==> Currency to string
مثال :
edit1.Text := CurrToStr(10.15);

--------------------
ملاحظة
يستعمل في عملة نقدية متداولة
Currency

الفروق بين الدلف

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:20:48 +0300

بسم الله الرحمن الرحيم
والصلاة السلام على أشرف المرسلين سيدنا محمد وعلى آله وصحبه أجمعين
أمـــا بعد :
السلام عليكم ورحمة الله تعالى بركاته أيها الاخوة الكرام

الفروق بين الدلفي Delphi و سي ++ c++ builder

C++ Builder 5 6 7 et Delphi 5 6 7
---------------------------------
تنفيذ المشروع على هذا النحو
Run\Run
أو الضغط على
H9

ويستحسن اعادة تحميل المشروع كليا
Project\Build All Projects
---------------------------------
تغيير عنوان الفورم أو مسح العنوان
سي ++ بويلدر
Form1->Caption = ""; = C++ Builder
دلفي
Form1.Caption = ''; = Delphi
يلاحظ الفرق بينهما وضع النقطة (.) بنسبة لدلفي وأما بنسبة سي++ بويلدر وضع رمزان (->) وعلى هكذا يكون القياس
-----------------------------------------------
تنفذ في سي ++ بويلدر
يلاحظ في هذه الامثلة
Load هذه الكلمة حرفها الاول كبير
Keyboard هذه الكلمة حرفها الاول كبير
Layout هذه الكلمة حرفها الاول كبير
LoadKeyboardLayout وهي تكتب هكذا
KLF_ACTIVATE هذه تكتب هكذا أي حروفها كلها كبيرة
LoadKeyboardLayout("0000040c", KLF_ACTIVATE); // Français
LoadKeyBoardLayout("00000409",KLF_ACTIVATE);// english
LoadKeyboardLayout("00000401",KLF_ACTIVATE); // arabic
اي تغيير في الكتابة ولو بين حرف كبير وصغير يأدي الى خطأ فيجب الانتباه الى ذلك
-----------
تنفيذ في دلفي
بدون أي مشاكل
loadkeyboardlayout('00000401',KLF_ACTIVATE);
LoadKeyboardLayout('00000401',KLF_ACTIVATE);
LOADKEYBOARDLAYOUT('00000401',KLF_ACTIVATE);
---------------------------------------------------
تنفذ في سي ++ بويلدر
MediaPlayer1->FileName = "C:\\WINDOWS\\Media\\chimes.wav";
MediaPlayer1->Open();
MediaPlayer1->Play();
تنفيذ في دلفي
MediaPlayer1.FileName = 'C:\WINDOWS\Media\chimes.wav';
MediaPlayer1.Open;
MediaPlayer1.Play;

تنفذ في سي ++ بويلدر
Memo1->Lines->LoadFromFile("c:\\gh3\\fichier.txt");
تنفيذ في دلفي
Memo1.Lines.LoadFromFile('c:\gh3\fichier.txt');
تنفذ في سي ++ بويلدر
Memo1->Lines->Add("kemal");
تنفيذ في دلفي
Memo1.Lines.Add('kemal');
تنفذ في سي ++ بويلدر
Close();
تنفيذ في دلفي
close; CLOSE; clOSE;
---------------------------------------------------------------------------
تنفذ في سي ++ بويلدر
Form1->Caption = "forum";
تنفيذ في دلفي
Form1.Caption := 'forum';
تنفذ في سي ++ بويلدر
Label1->Caption = "algerie";
تنفيذ في دلفي
Label1.Caption := 'algerie';
تنفذ في سي ++ بويلدر
Edit1->Text = "2013";

Edit1.Text := '2013';
تنفذ في سي ++ بويلدر
Edit1->Text = IntToStr(20);
تنفيذ في دلفي
Edit1.Text := IntToStr(20); inttostr(20); INTTOSTR(20);
--------------------
تنفذ في سي ++ بويلدر
if (Edit1->Text != "") Edit1->Clear();
تنفيذ في دلفي
if Edit1.Text <> '' then Edit1.Clear;
تنفذ في سي ++ بويلدر
for (int i=0; i<10; i++)
Memo1->Lines->Add("Valeur = "+IntToStr(i));
تنفيذ في دلفي
for i := 0 to 10 do
Memo1.Lines.Add('Valeur = '+IntToStr(i));
تنفذ في سي ++ بويلدر
Image1->Picture->LoadFromFile("Nom de fichier");
تنفيذ في دلفي
Image1.Picture.LoadFromFile('Nom de fichier');
image1.picture.loadfromfile('Nom de fichier');

تاريخ و وقت اليوم في سي ++ بويلدر
Form1->Caption = DateTimeToStr(Now());
تاريخ و وقت اليوم في دلفي
Form1.Caption := DateTimeToStr(Now);
تاريخ و وقت النظام
--------------------------------------------------------

ملاحظة
في دلفي لا فرق بين حرف كبير أو صغير
في سي ++ بويلدر

هذه اللغة حساسة لحالة الحروف
فيجب انتباه الى ذلك
-------------
محدد البداية و النهاية في دلفي و سي ++ بويلدر
begin = { بداية
end = } نهاية
يضعان مثلا بعد شرط أو حلقة لــتنفيذ عدة تعليمات لا تعليمة واحدة
وكذلك بعد دالة أو اجراء
-------------
امثلة
C++ Builder 5 6 7
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
// عربية
LoadKeyboardLayout("00000401",KLF_ACTIVATE); // Arabic
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// انجليزية
LoadKeyboardLayout("00000409",KLF_ACTIVATE); // english
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
// فرنسية
LoadKeyboardLayout("0000040c",KLF_ACTIVATE); // francie
}
-----------------------------------------------
امثلة
Delphi 5 6 7
procedure TForm1.Button1Click(Sender: TObject);
begin
// عربية
LoadKeyboardLayout('00000401',KLF_ACTIVATE); // Arabic
end;
//---------------------------------------------------------------------------
procedure TForm1.Button2Click(Sender: TObject);
begin
// انجليزية
LoadKeyboardLayout('00000409',KLF_ACTIVATE); // english
end;
//---------------------------------------------------------------------------

procedure TForm1.Button3Click(Sender: TObject);
begin
// فرنسية
LoadKeyboardLayout('0000040c',KLF_ACTIVATE); // francie
end;

لمزيد من المعلومات :
ضع مؤشر الكتابة على أي الدالة اضغط F1 في سي ++ أو في دلفي
ولتكن هذه الدالة مثلا :
LoadKeyboardLayout
يتم عرض كل المعلومات في لغتها

تعامل مع الوسائط

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:19:19 +0300

بسم الله الرحمن الرحيم

تعامل مع الوسائط المتعدد في دلفي

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
MPlayer, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Panel1: TPanel;
Button1: TButton;
OpenDialog1: TOpenDialog;
Button2Open: TButton;
Button3Save: TButton;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
procedure Button2OpenClick(Sender: TObject);
procedure Button3SaveClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
{
فتح ملف فيديو أي صوت و صورة أو وديو أي صوت
بعد البحث عنه
}
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.AutoOpen := false;
OpenDialog1.DefaultExt := 'avi';
OpenDialog1.Filter := 'fichiers avi(*.avi)|*.avi|fichiers wav(*.wav)|*.wav|tout les fichiers (*.*)|*.*';
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.DisplayRect := Panel1.ClientRect;
end;
end;

// فتح ملف صوت محدد في المسار
procedure TForm1.Button2OpenClick(Sender: TObject);
begin
MediaPlayer1.AutoOpen := false; // Ouvrir
MediaPlayer1.FileName := 'C:\WINDOWS\Media\start.wav';
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
MediaPlayer1.Wait := false;
// بداية التسجيل
MediaPlayer1.StartRecording;
end;

// حفظ الملف
procedure TForm1.Button3SaveClick(Sender: TObject);
begin
MediaPlayer1.Stop; // Entegistrer
SaveDialog1.DefaultExt := 'wav';
SaveDialog1.FileName := 'wave';
SaveDialog1.Filter := 'fichier (*.wav)|*.wav';
if SaveDialog1.Execute then
begin
MediaPlayer1.FileName := SaveDialog1.FileName;
MediaPlayer1.Save;
MediaPlayer1.Close;
end;
end;

end.

عملية البحث في قو

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:18:04 +0300

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين

عملية البحث في قواعد البيانات -دلفي- مثال بسيط
------------------------------------------------------
المشروع
------------------------------------------------------
program Recher;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3};

{$R *.RES}

begin
Application.Initialize;
;( Application.CreateForm(TForm1, Form1
); Application.CreateForm(TForm2, Form2
Application.CreateForm(TForm3, Form3);
Application.Run;
end.
------------------------------------------------------
الوحدة الاولى
------------------------------------------------------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, StdCtrls, Db, DBTables, Grids, DBGrids;

type
TForm1 = class(TForm)
Table1: TTable;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button4: TButton;
Button5: TButton;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Edit4: TEdit;
Edit5: TEdit;
Table1Code: TFloatField;
Table1Nom: TStringField;
Table1Prenom: TStringField;
Table1Lui: TStringField;
Table1Date: TStringField;
Label4: TLabel;
Label5: TLabel;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Ajout(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
private public
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Open;
Table1.Append;
Table1Code.Text := Edit1.Text;
Table1Nom.Value := Edit2.Text;
Table1Prenom.Value := Edit3.Text;
Table1Lui.Value := Edit4.Text;
Table1Date.Value := Edit5.Text;
Table1.Post;
Showmessage('تمت عملية الايظافة بنجاح');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Next;
Ajout(Form1);
end;

procedure TForm1.Ajout(Sender: TObject);
begin
Edit1.Text := Table1Code.Text;
Edit2.Text := Table1Nom.Value;
Edit3.Text := Table1Prenom.Value;
Edit4.Text := Table1Lui.Value;
Edit5.Text := Table1Date.Value;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Table1.Prior;
Ajout(Form1);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Edit1.Text := ''; Edit4.Text := '';
Edit2.Text := ''; Edit5.Text := '';
Edit3.Text := '';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Open;
Label1.Caption := 'رقم التسجيل';
Label2.Caption := 'الاســـم';
Label3.Caption := 'اللـقـــب';
Label4.Caption := 'مكان الميلاد';
Label5.Caption := 'تاريخ الميلاد';
// Label.Caption := '';
Caption := 'مثال';

Button1.Caption := 'إيظافة';
Button2.Caption := 'الـتالي';
Button3.Caption := 'بحث بالرقم';
Button4.Caption := 'السابق';
Button5.Caption := 'بحث باسم ورقم';
Button6.Caption := 'بحث';
Button7.Caption := 'مـــســـح';
Button8.Caption := 'تصحيح';
Button9.Caption := 'بحث بالاسم';
Button10.Caption := 'بحث';
Button11.Caption := 'مــــــــثال 2';
Button12.Caption := 'مـــــثال 3';
BitBtn1.Caption := '&خـــروج';
Button13.Caption := 'الاول';
Button14.Caption := 'الاخير';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
Table1.Edit;
Table1['Code'] := Edit1.Text;
Table1['Nom'] := Edit2.Text;
Table1['Prenom'] := Edit3.Text;
Table1['Lui'] := Edit4.Text;
Table1['Date'] := Edit5.Text;
Table1.Post;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Table1.SetKey;
Table1.Fields[0].AsString := Edit1.Text;
if not Table1.GotoKey then
Showmessage('هذا الاسم غير موجود');

Ajout(Form1);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
Table1.Locate('Nom',Edit2.Text,[LopartialKey]);
Ajout(Form1);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
with Table1 do
begin
EditKey;
FieldByName('Code').AsString := Edit1.Text;
FieldByName('Nom').AsString := Edit2.Text;
GotoKey;
end ;
Ajout(Form1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Table1.FindNearest([Edit1.Text]);
Ajout(Form1);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
with Table1 do
begin
SetKey;
FieldByName('Code').AsString := Edit1.text;
FieldByName('Nom').AsString := Edit2.Text;
GotoNearest;
end ;
Ajout(Form1);
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
Form3.Show;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
Table1.First; Ajout(Form1);
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
Table1.Last; Ajout(Form1);
end;

end.
------------------------------------------------------
الوحدة الثانية
------------------------------------------------------
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, StdCtrls, Buttons;

type
TForm2 = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
Edit1: TEdit;
Label1: TLabel;
procedure FormActivate(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.FormActivate(Sender: TObject);
begin
Table1.DatabaseName := '';
Table1.TableName := 'Basse1.db';
Table1.Active := True;
Table1.IndexName := '';
end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
Table1.FindNearest([Edit1.Text]);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Label1.Caption := 'أدخل رقما من القائمة';
Caption := 'القائمة';
end;

end.
------------------------------------------------------
الوحدة الثالثة
------------------------------------------------------
unit Unit3;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Grids, DBGrids, Db, DBTables;

type
TForm3 = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
Table2: TTable;
DataSource2: TDataSource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
BitBtn1: TBitBtn;
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Table1Code: TFloatField;
Table1Nom: TStringField;
Table1Prenom: TStringField;
Table2Code: TFloatField;
Table2Nom: TStringField;
Table2Prenom: TStringField;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form3: TForm3;

implementation

{$R *.DFM}

procedure TForm3.FormActivate(Sender: TObject);
begin
Table1.DatabaseName := '';
Table2.DatabaseName := '';
Table1.TableName := 'Basse1.db';
Table2.TableName := 'Basse.db';
Table1.Active := True;
Table2.Active := True;
Table1.IndexName := '';
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
Table1.FindNearest([Edit1.Text]);
Table2.Append;
Table2Code.Text := Table1Code.Text;
Table2Nom.Value := Table1Nom.Value;
Table2Prenom.Value := Table1Prenom.Value;
Table2.Post;
Table1.Delete;
Edit1.Text := '';
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
Table2.FindNearest([Edit1.Text]);
Table1.Append;
Table1Code.Text := Table2Code.Text;
Table1Nom.Value := Table2Nom.Value;
Table1Prenom.Value := Table2Prenom.Value;
Table1.Post;
Table2.Delete;
Edit1.Text := '';
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
Button1.Caption := 'نقل من القائمة الاولى الى القائمة الثانية';
Button2.Caption := 'نقل من القائمة الثانية الى الاولى';
Button2.Caption := 'نقل من القائمة الاولى الى القائمة الثانية';
end;

end.

شرح كيفية استعما

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:16:41 +0300

بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين

شرح كيفية استعمال الحلقات في دلفي

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
Memo1.Lines.Clear;
for i := 0 to 10 do
Memo1.Lines.Add('هذه القيمة = '+IntToStr(i));
end;

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
Memo1.Lines.Clear;
i := 0;
While i <= 10 do
begin
Memo1.Lines.Add('هذه القيمة = '+IntToStr(i));
i := i + 1;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var i: Integer;
begin
Memo1.Lines.Clear;
i := 0;
repeat
Memo1.Lines.Add('هذه القيمة = '+IntToStr(i));
i := i + 1;
until i >= 10;
end;

شرح كيفية استعما

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:15:34 +0300

بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين

شرح كيفية استعمال شرط بدلفي

Code:

procedure TForm1.Button4Click(Sender: TObject);
var IntA: Integer;
begin
 IntA := StrToInt(Edit1.Text); // شرط متعدد
 if IntA mod 2 = 0 then ShowMessage('هــذا العدد زوجي')
 else ShowMessage('هــذا العدد فردي');
end;

procedure TForm1.Button5Click(Sender: TObject);
var IntA, IntB: Integer;
begin
 IntA := StrToInt(Edit1.Text);
 IntB := StrToInt(Edit2.Text); // شرط متعدد
 if IntA < IntB then ShowMessage('العدد الاول أصغر من العدد الثاني')
 else if IntA > IntB then ShowMessage('العدد الاول أكبر من العدد الثاني')
 else ShowMessage('العدد الاول يساوي العدد الثاني');

end;

procedure TForm1.Button6Click(Sender: TObject);
var StrA: String;
begin
 StrA := Edit1.Text; // شرط بسيط
 if StrA = '1954' then ShowMessage('تحقق الشرط');
end;

procedure TForm1.Button7Click(Sender: TObject);
var StrA, StrB: String;
begin
 StrA := Edit1.Text; // شرط مركب
 StrB := Edit2.Text;
 if (StrA = '1954')and(StrB = '1962') then ShowMessage('تحقق شرطان');
 if (StrA = '1954')or(StrB = '1954') then ShowMessage('تحقق أحد شرطين');
end;

procedure TForm1.Button8Click(Sender: TObject);
var IntA, IntB: Integer;
begin
 IntA := StrToInt(Edit1.Text);
 case IntA of
 1: ShowMessage('أدخلت رقم واحد');
 2: ShowMessage('أدخلت رقم اثنان');
 3: ShowMessage('أدخلت رقم ثلاثة');
 4: ShowMessage('أدخلت رقم أربعة');
 5: ShowMessage('أدخلت رقم خمسة');
 else ShowMessage('أدخلت رقم أكبر من خمسة');
 end;
end;

رسم مربع بالفأرة

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:14:15 +0300

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله

رسم مربع بالفأرة

ضع الفورم وحدد
StatusBar1
من مفتش الكائنات حدد
Panels
وانقر على ثلاث نقط المجاورة من المربع انقر على
Ajouter un nouveau
أو اضغط مفتاح الايضافة
Insert
ضف أربعة منها

var StartX, StartY: Integer;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
StartX := X;
StartY := Y;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
begin
if Y > StartY then
begin
StatusBar1.Panels[0].Text := 'Top: ' + IntToStr(StartY);
StatusBar1.Panels[2].Text := 'Bottom: ' + IntToStr(Y);
end
else
begin
StatusBar1.Panels[0].Text := 'Top: ' + IntToStr(Y);
StatusBar1.Panels[2].Text := 'Bottom: ' + IntToStr(StartY);
end;
if X > StartX then
begin
StatusBar1.Panels[1].Text := 'Left: ' + IntToStr(StartX);
StatusBar1.Panels[3].Text := 'Right: ' + IntToStr(X);
end
else
begin
StatusBar1.Panels[1].Text := 'Left: ' + IntToStr(X);
StatusBar1.Panels[3].Text := 'Right: ' + IntToStr(StartX);
end;
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Form1.Canvas.Rectangle(StartX, StartY, X, Y);
StatusBar1.Panels[0].Text := '';
StatusBar1.Panels[1].Text := '';
StatusBar1.Panels[2].Text := '';
StatusBar1.Panels[3].Text := '';
end;

كيفية مناداة الا

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:13:12 +0300

كيفية مناداة الاجراء لنفسه

Code:

var i : integer;
procedure boucle_proc(i : integer);
begin
 if i = 0 then Form1.Memo1.Lines.Add('بـداية حلقة تكرارية')
 else
 begin
 boucle_proc(i-1); { يتم انقاص المتغيير بواحد في كل مرة حتى يصل الى صفر }
 Form1.Memo1.Lines.Add(IntToStr(i));
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 i:=20; // القيمة التي تعطى للمتغيير في البداية 
 boucle_proc(i);
end;

بحث في الحقول الم

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:12:17 +0300

بسم الله الرحمن الرحيم وصلى الله على سيدنا محمد وعلى آله وصحبه

بحث في الحقول المفهرسة فقط

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Table1.FindKey([Edit1.text]);
end;

Table1.FindNearest([Edit1.Text]);

بحث في الحقول الم

mybb@mybb.ru (admin) — Tue, 25 Jul 2017 20:11:20 +0300

بسم الله الرحمن الرحيم وصلى الله على سيدنا محمد وعلى آله وصحبه

بحث في الحقول المفهرسة فقط بطريقة مختلفة

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.EditKey;
Table1.FieldByName('Numero').AsString := '2';
Table1.GotoKey;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.SetKey;
Table1.FieldByName('Numero').AsString := Edit1.text; // Edit1.text = 2
Table1.GotoNearest;
end