Przeglądaj źródła

rtl: cleanup

git-svn-id: trunk@19352 -
paul 14 lat temu
rodzic
commit
8fc6af7fde
1 zmienionych plików z 0 dodań i 1 usunięć
  1. 0 1
      rtl/inc/astrings.inc

+ 0 - 1
rtl/inc/astrings.inc

@@ -636,7 +636,6 @@ Var
   MaxI,Temp : SizeInt;
   MaxI,Temp : SizeInt;
   cp1,cp2 : TSystemCodePage;
   cp1,cp2 : TSystemCodePage;
   r1,r2 : RawByteString;
   r1,r2 : RawByteString;
-  u1,u2 : UTF8String;
 begin
 begin
   if pointer(S1)=pointer(S2) then
   if pointer(S1)=pointer(S2) then
     begin
     begin