24-10-2012, 01:55 AM
كود :
function toupper(x:AnsiChar):LongInt cdecl;
begin
if x in ['A'..'Z']then
Result := Byte(x)
else
Result := Byte(x) - Byte('a') + Byte('A') ;
end;
function stricmp(const s1,s2:PAnsiChar):LongInt cdecl;
var i:LongInt;
begin
i:=0;
Result := 0;
while (toupper(s1[i]) = toupper(s2[i]))do
begin
if s1[i] = #0 then Exit;
Inc(i);
end;
Result := toupper(s1[i]) - toupper(s2[i]);
end;