الحلقة التكرارية ForLoopRamblings For...in

الحلقة التكرارية ForLoopRamblings For...in - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : الحلقة التكرارية ForLoopRamblings For...in (/showthread.php?tid=1032)

الصفحات: 1 2

الحلقة التكرارية ForLoopRamblings For...in - TF6M - 12-07-2009

kachwahed كتب :
تقصد الكتاب الفرنسي من developpez.com، صح؟

100/100% نعم .... :d

الحلقة التكرارية ForLoopRamblings For...in - Effector - 13-07-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

الحلقة التكرارية ForLoopRamblings For...in - kachwahed - 13-07-2009

إقتباس : والأفضل هكذا ...

كلا...،الأول أفضل، هذا فيه تكرار.
ما زلنا ننتظر حل الوظيفة Smile

الحلقة التكرارية ForLoopRamblings For...in - khiro.alg - 22-08-2010

السلام عليكم
بارك الله فيك أخي كاش واحد على الموضوع الجميل والمفيد
أظن أنه يمكن إستعمال الطريقة داخل جملة If - مثلا لتفحص شيء داخل مصفوفة
أن أحد لم يحل الوضيفة فأفدنا أنت أخي Smile

سلام