Changeset 300 for branches/2.19_branch/Library/AStringUtilityUnit.pas

Timestamp:

Jul 8, 2008, 5:42:19 PM (17 years ago)

Author:

RBRi

Message:

cleanup

File:

• branches/2.19_branch/Library/AStringUtilityUnit.pas (modified) (2 diffs)

branches/2.19_branch/Library/AStringUtilityUnit.pas

@@ -139 +139 @@
   AtPos: longint;
   SecondAtPos: longint;
-  DotPos: longint;
 begin
   result := false;
@@ -211 +210 @@
 procedure TrimPunctuation( s: TAString );
 var
-  c: char;
   ChangesMade: boolean;
 begin