"черточка" в строке, возвращаемой UDF-кой
Добавлено: 02 июл 2007, 16:45
Доброго времени суток.
Иногда (в каком случае, пока не определил) UDF-функция, возвращающая строку, "добавляет" в конец строки-результата какой-то символ (в ДБГрид-е отображается как "черточка"). Подскажите, пожалуйста, в чем может быть причина?
Текст UDF:
Объявление:
Заранее спасибо.
Иногда (в каком случае, пока не определил) UDF-функция, возвращающая строку, "добавляет" в конец строки-результата какой-то символ (в ДБГрид-е отображается как "черточка"). Подскажите, пожалуйста, в чем может быть причина?
Текст UDF:
Код: Выделить всё
function Float_To_Str(Value: PDouble; Separator: PChar): PChar; stdcall;
var
LDecimalSeparator: Char;
begin
try
try
LDecimalSeparator := SysUtils.DecimalSeparator;
SysUtils.DecimalSeparator := Separator^;
result := PChar(SysUtils.floattostr(Value^));
finally
SysUtils.DecimalSeparator := LDecimalSeparator;
end;
except on E: Exception do
result := PChar(E.Message);
end;
end;Код: Выделить всё
DECLARE EXTERNAL FUNCTION Float_To_Str
DOUBLE PRECISION,CSTRING(255) RETURNS CSTRING(255)
ENTRY_POINT 'Float_To_Str' MODULE_NAME 'TEST.DLL';