مشكل اين كد چيه؟؟؟؟

کد:

---

begin
Case combo1.ItemIndex Of
 0:edit1.Text:='EF-53FZ9F-64LWSB-NLWT3L'
  edit2.Text:='EF-3HVMFR-ZQEGBF-6CMDWG';
 1:edit1.Text:='EG-9QN9RR-NVWS9V-N5V7Z7'
  edit2.Text:='EG-10GCJ0-ELGTDD-9VFN8H';
 2:edit1.Text:='H3-GTWNV7-0XVQTS-J256CH'
  edit2.Text:='H3-4L2RK7-7YG92E-685391';
 3:edit1.Text:='7H-5NWFFQ-NE551Z-415LNP'
  edit2.Text:='7H-FQMRL1-QX8K68-RP22HV';
 4:edit1.Text:='7N-0F8ZX6-PY2DP7-R2C1ET'
  edit2.Text:='7N-31ERHB-QR0M2S-SCR12K';
 5:edit1.Text:='7Q-BPY5DC-972C44-RDQL0N'
  edit2.Text:='7Q-879ZB7-DW1679-TK0FF7';
end;

end.

---

اينم چندتا اروري كه ميده البته اين يك نمونشه.
x[Error] Unit1.pas(58): Missing operator or semicolon

نقل قول:

---

نوشته شده توسط Arash_XL7710i_207 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---

begin
Case combo1.ItemIndex Of
 0:edit1.Text:='EF-53FZ9F-64LWSB-NLWT3L'
  edit2.Text:='EF-3HVMFR-ZQEGBF-6CMDWG';
 1:edit1.Text:='EG-9QN9RR-NVWS9V-N5V7Z7'
  edit2.Text:='EG-10GCJ0-ELGTDD-9VFN8H';
 2:edit1.Text:='H3-GTWNV7-0XVQTS-J256CH'
  edit2.Text:='H3-4L2RK7-7YG92E-685391';
 3:edit1.Text:='7H-5NWFFQ-NE551Z-415LNP'
  edit2.Text:='7H-FQMRL1-QX8K68-RP22HV';
 4:edit1.Text:='7N-0F8ZX6-PY2DP7-R2C1ET'
  edit2.Text:='7N-31ERHB-QR0M2S-SCR12K';
 5:edit1.Text:='7Q-BPY5DC-972C44-RDQL0N'
  edit2.Text:='7Q-879ZB7-DW1679-TK0FF7';
end;

end.

---

اينم چندتا اروري كه ميده البته اين يك نمونشه.
x[Error] Unit1.pas(58): Missing operator or semicolon

---

سلام
والا مشكل كه چه عرض كنم، اون خطايي كه نوشتيد دقيقا ميگه مشكل كجاست.
آخر خطاها ; نگذاشتيد.
در ضمن اگر ميخواهيد در دستور Case‌چند دستور اجرا بشه بايد آنها را درون بلوك Begin .. End قرار دهيد.
مثل :

کد:

---

0 : begin
      edit1.Text:='EF-53FZ9F-64LWSB-NLWT3L';
      edit2.Text:='EF-3HVMFR-ZQEGBF-6CMDWG';
    end;

---

آها پس مشكل بلوك بندي بود
خيلي خيلي ممنون