المشاركات : 563
المواضيع 28
:
: 0
الإنتساب : Dec 2008
kachwahed كتب :
تقصد الكتاب الفرنسي من developpez.com، صح؟
100/100% نعم .... :d
المشاركات : 16
المواضيع 0
:
: 0
الإنتساب : Mar 2009
والأفضل هكذا ...
كود :
var
vColor: array[1..4] of String = ('Red', 'Blue', 'Green', 'White');
procedure TForm1.btn1Click(Sender: TObject);
var
C: String;
begin
for C in vColor do
begin
if Edt1.Text = C then
ShowMessage('Valid color.')
else
ShowMessage('Invalid color!');
end;
end
;
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to ListBox1.Items.Count-1 do
if Edit1.Text = ListBox1.Items[i] then
ShowMessage('Valid Color')
else
ShowMessage('Invalid Color!');
end
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
إقتباس : والأفضل هكذا ...
كلا...،الأول أفضل، هذا فيه تكرار.
ما زلنا ننتظر حل الوظيفة 
المشاركات : 198
المواضيع 17
:
: 24
الإنتساب : Nov 2009
السلام عليكم
بارك الله فيك أخي كاش واحد على الموضوع الجميل والمفيد
أظن أنه يمكن إستعمال الطريقة داخل جملة If - مثلا لتفحص شيء داخل مصفوفة
أن أحد لم يحل الوضيفة فأفدنا أنت أخي
سلام
ومن يتهيب صعود الجبال يعش أبد الدهر بين التلال و الحفر
الحلقة التكرارية ForLoopRamblings For...in