Краткое описание :

sqlAddStr некорректно работает если во второй параметр передан аргумент типа variant

Описание :

Прямой SQL

Что измененно :

DSQL

----- СУТЬ ПРЕДЛОЖЕНИЯ -----
Требуется возможность передавать в качестве параметра в процедуру сущность SQL QUERY
Также желательно иметь возможность объявить параметр такой, чтобы в него можно было
передать строки разного сорта, как, например, второй параметр функции sqlAddStr

Как измененно :

В качестве типа параметра или локальной переменной такого рода рекомендуется использовать тип variant.
* Можно присвоить этому типу строки 3-х сортов: string, результат sqlAddStr и SQL QUERY литерал
* Далее такую переменную можно передать во все функции, которые принимают строки этих 3-х сортов
* Редактировать такую переменную нельзя. Можно только присваивать и передавать в системные функции DSQL
Пример кода функции:
function sqlExecDirectMy(x: variant, flags : longint): integer;
{
if( flags = 0 ) {
result := sqlExecDirect(x);
} else {
var myS : longint;
myS := 0;
sqlAddStr(myS, x);
sqlAddStr(myS, ' ORDER BY 1');
result := sqlExecDirect(myS);
sqlFreeStr(myS);
}
}