sorgu içinde değişken kullanmak

[sako]

Aşağıdaki kodda bir sıkıntım yok. Ancak 20 kere bu sorguyu yapmaktansa kırmızı işaretli sayıyı değiştirebilirmiyim. Yani 1 yerine gerekirse 15 veya başka bir sayı yapabilir miyim. Bie değişken atayıp o araya sıkıştiriyim dedim ama beceremedim .

Kolay geldin

begin
personel.close;
personel.SQL.Clear;
personel.SQL.Add('select * from genel where ALAN = '''+Edit1.Text+''''+'and (tercih1secim BETWEEN :ilk AND :son) ');
apersonel.Parameters.ParamByName('ilk').Value:=atamaSIRA_NO.Value;
personel.Parameters.ParamByName('SON').Value:=atamaSIRA_NO.Value;
personel.open;

Ben şu şekilde denedim ama olmadı

var
sayi:string;
begin
sayi:='1'
personel.close;
personel.SQL.Clear;
personel.SQL.Add('select * from genel where ALAN = '''+Edit1.Text+''''+'and (tercih(pchar(sayi))secim BETWEEN :ilk AND :son) ');
apersonel.Parameters.ParamByName('ilk').Value:=atamaSIRA_NO.Value;
personel.Parameters.ParamByName('SON').Value:=atamaSIRA_NO.Value;
personel.open;

[omurolmez]

Kod: Tümünü seç

var
  SatirSayisi :integer;
begin
  SatirSayisi :=1;
  personel.SQL.Text :=Format(' select * from genel where ALAN = ''%s'' and (tercih %d secim BETWEEN :ilk AND :son) ', [Edit1.Text, SatirSayisi]);
  personel.Parameters.ParamByName('ilk').Value:=atamaSIRA_NO.Value;
  personel.Parameters.ParamByName('SON').Value:=atamaSIRA_NO.Value;
end;

[sako]

cuk diye oturdu teşekkürler