1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-05 15:12:19 -05:00
Simba/branches/script-component/Units/MMLAddon/PSInc/Wrappers/strings.inc

27 lines
616 B
PHP
Raw Normal View History

function psFormat(const fmt : string;const args : array of const) : string;
begin;
Result := Format(fmt,Args);
end;
function Capitalize(str : string) : string;
var
i , l : integer;
cap : boolean;
begin;
result := str;
l := length(str);
cap := true;
for i := 1 to l do
if cap and (str[i] in ['a'..'z'] + ['A'..'Z']) then
begin;
result[i] := UpperCase(str[i])[1];
cap := false;
end else if not (str[i] in ['a'..'z'] + ['A'..'Z']) then
cap := true;
end;
function psBoolToStr(bool : boolean) : string;
begin;
result := BoolToStr(bool,true);
end;