{CountryPref.pas}
{$code appl,FUWA,code,101}
program Fuwafuwa;
type iBasFunType=function(S:string):string;
var iBasCallPP:iBasFunType;
type
SystemPreferencesChoice=(
prefVersion,
prefCountry);
function PrefGetPreference(whichPref:SystemPreferencesChoice):integer; inline($4E4F,$A2D1);
procedure StrIToA(var S:string;N:integer); inline($4E4F,$A0C9);
function IntToString(i:integer):string;
var
sResult:string;
begin
StrIToA(sResult,i);
IntToString:=sResult;
end;
function CallPP(S:string):string;
var
MyCountry:integer;
begin
MyCountry:=PrefGetPreference(prefCountry);
CallPP:=IntToString(MyCountry);
end;
begin
iBasCallPP:=CallPP;
end. |