Здравствуйте, mrhru, Вы писали:

Я cделал след образом:

SQL_VARYING, SQL_TEXT:
   begin
      if SqlVar^.sqllen > length(TempStr) then
          SqlVar^.sqllen := length(TempStr);
       SqlVar^.sqltype := SQL_TEXT;
       ReallocMem(SqlVar^.sqldata, SqlVar^.sqllen);
       Move(TempStr[1], SqlVar^.sqldata^, SqlVar^.sqllen);
   end;

Этот пример приводился в ApiGuide. Теперь все работает ().

Вариант же который ты советуешь ниже упорно не хочет работать. Можеть написать правильный код?