Changeset 423 for Generics/NativeGenerics/Units/GenericString.pas

Timestamp:

Sep 18, 2012, 8:17:09 AM (12 years ago)

Author:

chronos

Message:

• Added: TGFileList generic class to NativeGenerics package.

File:

• Generics/NativeGenerics/Units/GenericString.pas (modified) (2 diffs)

Generics/NativeGenerics/Units/GenericString.pas

@@ -29 +29 @@
 begin
   for I := 0 to Count - 1 do
-    if (Items[I] in ['a'..'z']) then
+    if (Items[I] >= 'a') and (Items[I] <= 'z') then
       Items[I] := Char(Byte(Items[I]) - 32);
 end;
@@ -38 +38 @@
 begin
   for I := 0 to Count - 1 do
-    if (Items[I] in ['A'..'Z']) then
+    if (Items[I] >= 'A') and (Items[I] <= 'Z') then
       Items[I] := Char(Byte(Items[I]) + 32);
 end;