Format function?

[squiddy]

http://delphibasics.co.uk/RTL.asp?Name=Format

I am certain that this function exists in soldatpascal (since it is used on the text files on soldat's folder), but I don't know the name that is used. Someone help?

Thanks!

[SyavX]

I may be wrong, but it seems there's only one format function in Soldat's ScriptCore:
function FormatDate(A: string):String

[Falcon`]

http://www.freepascal.org/docs-html/rtl/sysutils/formatfloat.html
since beta.

[squiddy]

Heh, I think you misunderstood. I refer to the Format fuction that formats (lol) strings. Like:

Code: [Select]

writeln(format('My name is: %s',[getplayerstat(id,'name')]);
Like I said, it is used on the soldat text files (like: "You killed %s"). I have a very similar purpose for the use of that function. Shoozza must know this, since he has access to the soldat's core. Maybe I'll send him a message to look at this topic :p

[Falcon`]

There's nothing like that exported to scriptcore. At least not yet.

[Shoozza]

Falcon is the one who works on the ScriptCore so he knows it

I think for you string format example you can use normal string concatenation:

Code: [Select]

writeln('My name is: ' + getplayerstat(id, 'name'));
You can ofc write your own format function which parses the format string.

[squiddy]

Falcon is the one who works on the ScriptCore so he knows it

I think for you string format example you can use normal string concatenation:

Code: [Select]

writeln('My name is: ' + getplayerstat(id, 'name'));
You can ofc write your own format function which parses the format string.

Thank you - both of you! - for taking the time to answer here!

I have taken the initiative to build my own format function. It is not the same, though.

Code: [Select]

function format(const text: string; const data: array of variant): string;
var s, q: integer;
begin
result := '';
for s := 1 to length(text) do if copy(text,s,1) = '%' then begin
    q := strtoint(copy(text,s+1,1));
    case vartype(data[q]) of
        3: result := result + inttostr(data[q]);
        256: result := result + data[q];
        end;
    end else if copy(text,s-1,1) <> '%' then result := result + copy(text,s,1);
end;
Example of usage: writeln( Format('One, two, %0, %1, %0!',['three',4])); //Writes: "One, two, three, 4, three!"
You basically type "%" and then the index of the Data array.

Only works with integers and strings, though (I will only use it with those var types).

Thanks for your help!