mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-04 14:42:23 -05:00
b2a6b0e15c
Define PS_StdCall to use StdCall. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@479 3f818213-9676-44b0-a9b4-5e4c4e03d09d
1 line
620 B
PHP
1 line
620 B
PHP
function psFormat(const fmt : string;const args : array of const) : string;
|
|
ps_decl;
|
|
begin;
|
|
Result := Format(fmt,Args);
|
|
end;
|
|
|
|
function Capitalize(str : string) : string;
|
|
ps_decl;
|
|
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;
|
|
ps_decl;
|
|
begin;
|
|
result := BoolToStr(bool,true);
|
|
end;
|