procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text <>'' then
begin
kodlar ......
select * from kisiler where tc:='edit1.text'
end;
if edit2.Text <>'' then
begin
kodlar ......
select * from kisiler where ad:='edit2.text'
end;
if edit3.Text <>'' then
begin
kodlar ......
select * from kisiler where tc:='edit3.text'
end;
end;
end.
ancak bunu yatığında diğer edilerin boş olmasına dikkat et. bunun içinde bilgi girişi yaptıktan sonra bilgi girişi yaptığın edit'in onexit olayına diğer editleri boşaltıp değiştirilme özelliklerini enabled=false edecek şekilde kod yaz. Ve sorgu işlemi bittikten sonra tum editlerin enabled=true olsun. bu şekilde bi kontrol mekanızmasıda yaparsa daha sağlam olurç
