delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

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

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

والأفضل هكذا ...

كود :
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

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

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

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

سلام

الصفحات : 1 2

TF6M

Effector

kachwahed

khiro.alg