Değişken' den sql in içerisini doldurma

[onurakman]

Herkese merhaba,

DELPHI 7' de

deger.ini isimli bir ini dosyam var ve içerisinde aşağıdaki gibi değerlerim mevcut.

[STOK]
stok_grup='SATIŞ,ÜRETİM,PAZARLAMA';

aşağıdaki kod ile ini dosyasındaki değerime ulaşabiliyorum.

inidosya := Tinifile.Create(Extractfilepath(application.ExeName) + 'deger.ini');
 try
   stok_grup := inidosya.ReadString('STOK', 'stok_grup', '');
 finally
   inidosya.Free;
 end;

ini dosyasından aldığım stok_grup degerlerini sql sorgumda IN içerisinde nasıl kullanabilirim?

SELECT STOKKODU, STOK_ADI
FROM STOK
WHERE ID>0 AND STOK_GRUP IN('SATIŞ','ÜRETİM','PAZARLAMA');

bu şekilde.

Yardımlarınız için şimdiden teşekkürler.

[boreas]

Bu tür durumlarda ben direk sql sorgusunu string olarak oluşturup query.sql.text değişkenine atıyorum.

[emrgln]

Şöyle birşey hazırladım. Uyarlayabilirsiniz.

procedure TForm1.Button2Click(Sender: TObject);
var
 List:TstringList;
 sqlText,inText:String;
 i:integer;
begin
  List:=TstringList.Create;
  List.Delimiter := ',';
  List.DelimitedText := 'aaa,bbb,ccc';

  for i:=0 to List.count-1 do
  begin
     if i<>List.count-1 then
     inText:= inText+QuotedStr(List[i])+','
     else
     inText:= inText+QuotedStr(List[i]);
  end;

end;

[adelphiforumz]

Bununla ilgili bir çok yöntem uygulayabilirsin bunlardan 1 tanesi
Sql de aşağıdaki gibi bir fonksiyon yaz

Create function [dbo].[Fn_SplitString](@String nvarchar(4000), @Delimiter char(1))
returns @Results TABLE (Myval varchar(100))
as
  begin
  declare @index int
  declare @slice nvarchar(4000)
  declare @sno int

  select @index = 1
  if @String is null return
  
  set @sno = 0

  while @index != 0
      begin
       select @index = charindex(@Delimiter,@String)
         if @index !=0
          select @slice = left(@String,@index - 1)
         else
            select @slice = @String
           
         set @sno = @sno + 1
         insert into @Results(Myval) values(@slice)
         select @String = right(@String,len(@String) - @index)
         if len(@String) = 0 break
      end    return
end

Sonra bunu aşağıdaki gibi kullanabilrsin

SELECT STOKKODU, STOK_ADI
FROM STOK
WHERE ID>0 AND STOK_GRUP IN (Select Myval From Fn_SplitString('SATIŞ,ÜRETİM,PAZARLAMA', ',') ) ;

[SimaWB]

(24-04-2019, Saat: 12:48)onurakman Adlı Kullanıcıdan Alıntı:

inidosya := Tinifile.Create(Extractfilepath(application.ExeName) + 'deger.ini');
 try
   stok_grup := inidosya.ReadString('STOK', 'stok_grup', '');
 finally
   inidosya.Free;
 end;

stok_grup := Format('''%s''', [StringReplace(stok_grup, ',', ''',''', [rfReplaceAll])]);

[onurakman]

(24-04-2019, Saat: 13:12)emrgln Adlı Kullanıcıdan Alıntı: Şöyle birşey hazırladım. Uyarlayabilirsiniz.

procedure TForm1.Button2Click(Sender: TObject);
var
 List:TstringList;
 sqlText,inText:String;
 i:integer;
begin
  List:=TstringList.Create;
  List.Delimiter := ',';
  List.DelimitedText := 'aaa,bbb,ccc';

  for i:=0 to List.count-1 do
  begin
     if i<>List.count-1 then
     inText:= inText+QuotedStr(List[i])+','
     else
     inText:= inText+QuotedStr(List[i]);
  end;

end;

İlgilenen herkese çok teşekkür ederim. @emrgln hocam yazmış olduğunuz kodu kullandım. Çok sağolun.