Subversion Repositories userdetect2

Rev

Rev 72 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 72 Rev 81
Line 54... Line 54...
54 
  SetString(result, buffer, lstrlen(buffer));
 54 
  SetString(result, buffer, lstrlen(buffer));
55 
end;
 55 
end;
56 
 
 56 
 
57 
function StrICmp(a, b: string): boolean;
 57 
function StrICmp(a, b: string): boolean;
58 
begin
 58 
begin
59 
  result := UpperCase(a) = UpperCase(b);
 59 
  result := LowerCase(a) = LowerCase(b);
60 
end;
 60 
end;
61 
 
 61 
 
62 
function EnforceLength(s: string; len: integer; filler: char;
 62 
function EnforceLength(s: string; len: integer; filler: char;
63 
  appendRight: boolean): string;
 63 
  appendRight: boolean): string;
64 
begin
 64 
begin