Case Of RadioGroup Için Kullanımı

Tform1.SıralaClick(Sender.....);
begin
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;end.