За TIBDataset го правим по следния много грозен начин:

Съдържаниет е скрито
Влезте за да го видите

    ParamOK := FALSE;

    repeat

      try

        (DataSource.DataSet as TIBDataSet).ParamByName('param name').AsString := s;

        ParamOK := TRUE;

      except

        if (s = '') then

          raise;

        s := Copy(s, 1, Length(s) - 1);

      end;

    until ParamOK;

Съдържаниет е скрито
Влезте за да го видите