function FindVariables(const SQL: string; IncludeDuplicates: Boolean): TStringList;
var
  s: string;
  //s: widestring;
  i: Integer;
  Mode: char;
  //VarName, EndC, x: WideString;
  VarName, EndC, x: string;
  VarPos: Integer;
begin
  Result := TStringList.Create;
  s := SQL + #13#10;
  Mode := 'S';
  EndC := '';
  VarPos := 0;
  for i := 1 to Length(s) do
  begin
     case Mode of
        'S':
           begin
              if s[i] = ':' then
              begin
                 Mode := 'V';
                 VarName := '';
                 VarPos := i;
              end;
              if (s[i] = '''') then
              begin
                 Mode := 'Q';
                 EndC := '''';
              end;
              if (s[i] = '/') and (s[i + 1] = '*') then
              begin
                 Mode := 'C';
                 EndC := '*/';
              end;
              if (s[i] = '-') and (s[i + 1] = '-') then
              begin
                 Mode := 'C';
                 EndC := #13#10;
              end;
           end;
        'V':
           begin
              //if (s[i] <= #255) and not(char(s[i]) in ['a' .. 'z', 'A' .. 'Z', '0' .. '9', '_', '#', '$', #128 .. #255]) then
              if (s[i] <= #255) and (not CharInSet(s[i], ['a' .. 'z', 'A' .. 'Z', '0' .. '9', '_', '#', '$', #128 .. #255])) then
              begin
                 //VarName := UpperCase(VarName);
                 //VarName := AnsiUpperCase(VarName);

                 if (VarName <> '') and (IncludeDuplicates or (Result.IndexOf(VarName) < 0)) then
                    Result.Add(VarName);
                    //Result.AddObject(VarName, TObject(VarPos));
                 Mode := 'S';
              end
              else
              begin
                 x := s[i];
                 VarName := VarName + x;
              end;
           end;
        'C':
           if (s[i] = EndC[1]) and (s[i + 1] = EndC[2]) then
              Mode := 'S';
        'Q':
           if (s[i] = EndC[1]) then
              Mode := 'S';
     end;
  end;
end;

(06-08-2017, Saat: 15:53)SimaWB Adlı Kullanıcıdan Alıntı: FindVariables çağrıldığı yerde Free edilmiyor olabilir mi? TStringList tipinde bir yanıt döndüğü için çağrıldığı yerde bu hafızanın serbest bırakılması lazım.

procedure TEJsonQuery.FindVariables;
var
  SL: TStringList;
 I: Integer;
begin
  SL := FindVars(Self.SQL.Text, False);
  try
     for i := FParams.Count - 1 downto 0 do
     begin
        if SL.IndexOf(FParams.Items[i].Name) < 0 then
        begin
           FParams.RemoveParam(FParams.Items[i]);
        end;
     end;
     for I := 0 to SL.Count - 1 do
     begin
        if FParams.FindParam(SL[i]) = nil then
        begin
           FParams.CreateParam(ftString, SL[i], ptUnknown);
        end;
     end;
  finally
     SL.Free;
  end;
end;

(11-08-2017, Saat: 02:32)mcuyan Adlı Kullanıcıdan Alıntı: System.ReportMemoryLeaksOnShutdown:=False; yapsanız acaba çözüm olur mu?

(07-08-2017, Saat: 10:18)edo Adlı Kullanıcıdan Alıntı:

(06-08-2017, Saat: 15:53)SimaWB Adlı Kullanıcıdan Alıntı: FindVariables çağrıldığı yerde Free edilmiyor olabilir mi? TStringList tipinde bir yanıt döndüğü için çağrıldığı yerde bu hafızanın serbest bırakılması lazım.

Keşke öyle olsaydı ama değil malesef    Aynı isimde 2 metod olduğu için FastMM log'undaki FindVariables'ın adını FindVars olarak değiştirdim. Sorun devam ediyor.

procedure TEJsonQuery.FindVariables;
var
  SL: TStringList;
 I: Integer;
begin
  SL := FindVars(Self.SQL.Text, False);
  try
     for i := FParams.Count - 1 downto 0 do
     begin
        if SL.IndexOf(FParams.Items[i].Name) < 0 then
        begin
           FParams.RemoveParam(FParams.Items[i]);
        end;
     end;
     for I := 0 to SL.Count - 1 do
     begin
        if FParams.FindParam(SL[i]) = nil then
        begin
           FParams.CreateParam(ftString, SL[i], ptUnknown);
        end;
     end;
  finally
     SL.Free;
  end;
end;