testexclusion.obs

来自「格式化源码的最新板」· OBS 代码 · 共 30 行

unit testexclusion;{(*}  {*)}interface implementation uses sysutils;function fred:string
;begin result:=inttostr(random(20));end;{(*}
function Fred2: string;
function GetARandomNumber: integer;
begin
Result := Random (20);
end;
begin
Result := IntToStr (GetARandomNumber);
end;

function Fred3: string;

function GetARandomNumber: integer;

function GetLimit: integer;
begin
Result := 20;
end;
{ can format again } {*)}begin result:=random(getlimit);end;begin
result:=inttostr(getarandomnumber);end;procedure jim3(var ps1:string;const ps2:string
);var ls3:string;begin ls3:=fred;{(*} if ps1 = '' then ls3 := 'Fred' else ls3 := 'NotFred'; {*)}end;procedure jim4(var ps1:string;const ps2:
string);var ls3:string;begin ls3:=fred;//jcf:format=off
  if ps1 = '' then ls3 := 'Fred' else ls3 := 'NotFred';
  //jcf:all=on
end;procedure jim5(var ps1:string;const ps2:string);var ls3:string;begin ls3:=fred
;//jcf:format=off
  if ps1 = '' then ls3 := 'Fred' else ls3 := 'NotFred';
  //jcf:format=on
end;end.