Ошибка при переходе на 3 версию
При работе со 2-ой версией код был такой.
procedure TFastRep.FRUserFunction(const Name: String; p1, p2, p3: Variant;
var Val: Variant);
var
I: Integer;
Buf1, Buf2: String;
begin
try
if Name = 'GETTRIADESNEW' then
begin
FR.GetVariableValue(p1, p1);
Val := FormatFloat('# ##0.00',d1);
end
else
Подскажите как избавиться от функции GetVariableValue. Так как надо будет использовать 3-ю версию, а от 2-ой отказаться. Писал за место нееЖ
p1 := strtofloat(p1); так она говорит "is not a valid floating point value"
Подскажите очень надо.
procedure TFastRep.FRUserFunction(const Name: String; p1, p2, p3: Variant;
var Val: Variant);
var
I: Integer;
Buf1, Buf2: String;
begin
try
if Name = 'GETTRIADESNEW' then
begin
FR.GetVariableValue(p1, p1);
Val := FormatFloat('# ##0.00',d1);
end
else
Подскажите как избавиться от функции GetVariableValue. Так как надо будет использовать 3-ю версию, а от 2-ой отказаться. Писал за место нееЖ
p1 := strtofloat(p1); так она говорит "is not a valid floating point value"
Подскажите очень надо.
Комментарии
Val := FormatFloat('# ##0.00',frParser.Calc(p1))
а в FR 3.xx
Val := FormatFloat('# ##0.00',Params[0])
Да и в FR 3.xx FormatFloat уже встроена