کد:
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