Subversion Repositories userdetect2

Compare Revisions

Regard whitespace Rev 77 → Rev 81

/trunk/testuser/Functions.pas
56,7 → 56,7
 
function StrICmp(a, b: string): boolean;
begin
result := UpperCase(a) = UpperCase(b);
result := LowerCase(a) = LowerCase(b);
end;
 
function EnforceLength(s: string; len: integer; filler: char;