Problem with Index specifiers in format function

Pascal Script
1

Good Day,

Using Index specifiers for format results in exception.

Ex:

format(abc.link(“%0:s”),[‘temp’]) results in error

so we changed the LOC to format(abc.link(“%s”),[‘temp’])

2

Hi,

Can you create a simple testcase that reproduces this, pls?

as for me, index specifiers work correctly:

Untitled
Untitled845×518 22.1 KB

Untitled
Untitled854×525 25.2 KB

3

please find the sample code
Sample.pas (3.8 KB)

4

it works well in normal way, but when integrated with pascal script we were getting blank values

5

Hi,

ofc, it won’t work correctly - your testcase is broken (I’ve used Delphi 11.3)

you have

function MyOwnFunction(Data: ansistring): ansistring;
begin
  xxx := data;
end;

but function is registered as

Sender.AddDelphiFunction('function MyOwnFunction(Data: string):string');

if you change ansistring → string, it will work:

Untitled
Untitled995×324 64.4 KB

6

image
image481×325 7.5 KB

this was the O/P when i use string
and
image
image280×261 4.28 KB

this when i use ansistring

PFA
Sample.pas (3.8 KB)

7

Hi,

I’ve committed a new fix to GitHub - remobjects/pascalscript: pascalscript .

also I’ve fixed wrong declaration at Sample.pas (3.8 KB)

8

Hi,
Thanks for the fix, u sorry to say it didn’t work for me. Am using D11 32-bit and 64-bit. Don’t know whether this info. helps, but i thought you should know.

9

Hi,

as a workaround, I can suggest to use this method instead of System.AnsiStrings.Format:

function MyFormat(const Format: AnsiString; const Args: array of const): AnsiString;
var
  args1 : TArray<TVarRec>;
begin
  Args1 := TValueArrayToArrayOfConst(ArrayOfConstToTValueArray(Args));
  result := System.AnsiStrings.Format(Format, Args1);
end;

function ScriptOnUses(Sender: TPSPascalCompiler;...
...
Sender.AddDelphiFunction('function Format(const Format: Ansistring; const Args: array of const): Ansistring;');

procedure ExecuteScript(const script: string; sqlconn: TSQLConnection);
...
  Exec.RegisterDelphiFunction(@MyFormat, 'Format', cdRegister);

Sample.pas (4.0 KB)