瀏覽代碼

* fixed AnsiStrLower/AnsiStrUpper (were exchanged)

git-svn-id: trunk@9441 -
Jonas Maebe 17 年之前
父節點
當前提交
19985965e6
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      rtl/unix/cwstring.pp

+ 2 - 2
rtl/unix/cwstring.pp

@@ -669,7 +669,7 @@ function AnsiStrLower(Str: PChar): PChar;
 var
   temp: ansistring;
 begin
-  temp:=upperansistring(str);
+  temp:=loweransistring(str);
   ansi2pchar(temp,str,result);
 end;
 
@@ -678,7 +678,7 @@ function AnsiStrUpper(Str: PChar): PChar;
 var
   temp: ansistring;
 begin
-  temp:=loweransistring(str);
+  temp:=upperansistring(str);
   ansi2pchar(temp,str,result);
 end;