Changeset 402 for trunk/Library/ACLLibraryTestForm.pas

Timestamp:

May 22, 2016, 2:08:43 PM (9 years ago)

Author:

RBRi

Message:

more path fixes

File:

• trunk/Library/ACLLibraryTestForm.pas (modified) (4 diffs)

trunk/Library/ACLLibraryTestForm.pas

@@ -7 +7 @@
   StdCtrls,
   ACLFileIOUtility,
-  ACLFileUtility,
-  ACLFindFunctions,
-  ACLProfile,
-  ACLStringUtility,
   ACLUtility,
   PCharList,
@@ -30 +26 @@
     FindButton: TButton;
     Button1: TButton;
+    Button2: TButton;
     Button3: TButton;
     Procedure FindButtonOnClick (Sender: TObject);
     Procedure Button4OnClick (Sender: TObject);
     Procedure Button3OnClick (Sender: TObject);
+    Procedure Button2OnClick (Sender: TObject);
     Procedure ACLLibraryTestFormOnCreate (Sender: TObject);
     Procedure ACLLibraryTestFormOnDestroy (Sender: TObject);
@@ -51 +49 @@
 uses
   SysUtils,
-  ACLString, AStringUtilityUnit,
+  ACLString,
   RunProgramUnit;
 
@@ -77 +75 @@
 End;
 
+const
+  test: string = 'This is the string I want to test the CRC with. Ha ha haa';
+  test2: string = 'HERES ANOTHER #&*#^*& STRING';
+  test3: string = #234#221#014;
+
+Procedure TACLLibraryTestForm.Button2OnClick (Sender: TObject);
+var
+  crc: longword;
+Begin
+  crc := GetCRC32( Addr( test ), Length( test ) + 1 );
+  Memo1.Lines.Add( 'Asm Crc =    ' + IntToStr( crc ) );
+  crc := Pascal_GetCRC32( Addr( test ), Length( test ) + 1 );
+  Memo1.Lines.Add( 'Pascal Crc = ' + IntToStr( crc ) );
+
+  crc := GetCRC32( Addr( test2 ), Length( test2 ) + 1 );
+  Memo1.Lines.Add( 'Asm Crc =    ' + IntToStr( crc ) );
+  crc := Pascal_GetCRC32( Addr( test2 ), Length( test2 ) + 1 );
+  Memo1.Lines.Add( 'Pascal Crc = ' + IntToStr( crc ) );
+
+  crc := GetCRC32( Addr( test3 ), Length( test3 ) + 1 );
+  Memo1.Lines.Add( 'Asm Crc =    ' + IntToStr( crc ) );
+  crc := Pascal_GetCRC32( Addr( test3 ), Length( test3 ) + 1 );
+  Memo1.Lines.Add( 'Pascal Crc = ' + IntToStr( crc ) );
+
+End;
 
 type