Case of örneği

Case ......Of

Case  RadioGroup1.ItemIndex Of

0:begin //ad'a göre

table1.locate('ADI',edit1.Text,[LoCaseInsensetive,LoPartialKey]);

end;

1:begin //Soyad'a göre

table1.locate('SOYADI',edit1.Text,[LoCaseInsensetive,LoPartialKey]);

end;

2:begin //sehir'e göre

table1.locate('SEHIR',edit1.Text,[LoCaseInsensetive,LoPartialKey]);

end;