Apply Query Substitutions

string s = ""
// 
s := Database.ApplyQuerySubstitutions(testo sql)

// ***************
// Esegue la query
// ***************
public void QueryAnalyzer.Esegui()
{
  // Imposto il tempo di timeout di esecuzione
  NorthwindDB.Timeout := Dati.Timeout
  // 
  // Applico tutte le sostituzioni
  NorthwindDB.ClearQuerySubstitutions()
  for each row
  {
    select
      StringaDaCercareSostituzione := StringaDaCercare
      ValoreDaInserireSostituzione := ValoreDaInserire
    from
      Sostituzioni // Tabella Master
    // 
    record Sostituzione
      string StringaDaCercare // 
      string ValoreDaInserire // 
    // 
    NorthwindDB.AddQuerySubstitution(Sostituzioni.StringaDaCercareSostituzione, Sostituzioni.
      ValoreDaInserireSostituzione)
  }
  // 
  // Svuoto il risultato precedente
  delete from Risultato
  // 
  // Provo ad eseguire l'istruzione SQL
  try
  {
    // Se è stata richiesta una query
    if Lower(Left(TrimLeft(Dati.Testo), C6)) = select
      ...
    else  // Se è stato richiesto uno statement non query
    {
      NorthwindDB.SQLExecute(NorthwindDB.ApplyQuerySubstitutions(Dati.Testo))
      // 
      Risultati.SelectPage(Messaggi.Me())
      Tabella.Visible := False
    }
  }
  catch  // L'esecuzione non è andata a buon fine
    ...
}