Changeset 514 for BigInt/UFormMain.pas

Timestamp:

Apr 26, 2018, 1:07:22 PM (6 years ago)

Author:

chronos

Message:

• Modified: Updated BigInt classes for Int128 a UInt128.

File:

• BigInt/UFormMain.pas (modified) (3 diffs)

BigInt/UFormMain.pas

@@ -1 +1 @@
 unit UFormMain;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, UInt128;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  ComCtrls, UInt128;
 
 type
@@ -13 +14 @@
 
   TFormMain = class(TForm)
-    Memo1: TMemo;
+    ListView1: TListView;
     procedure FormShow(Sender: TObject);
   private
+    procedure TestInt128;
 
   public
-
+    procedure AddTest(Name: string; Result: Boolean; Value: string);
   end;
 
@@ -30 +32 @@
 { TFormMain }
 
-procedure TFormMain.FormShow(Sender: TObject);
+procedure TFormMain.TestInt128;
 var
   A, B, C: Int128;
-  X: Int64;
 begin
-  A := 10;
+  ListView1.Items.Clear;
+  A := 123456789;
+  AddTest('IntToHex(123456789)', IntToHex(A, 16) = '00000000075BCD15', IntToHex(A, 16));
+  AddTest('IntToStr(123456789)', IntToStr(A) = '123456789', IntToStr(A));
+  A := 21;
+  B := 33;
+  C := A + B;
+  AddTest(IntToStr(A) + ' + ' + IntToStr(B), C = 54, IntToStr(C));
+  C := A * B;
+  AddTest(IntToStr(A) + ' * ' + IntToStr(B), C = 693, IntToStr(C));
+  A := 30;
   B := 10;
-  C := A + B;
-  X := $12345678;
-  Memo1.Lines.Add('X: ' + IntToHex(X, 8));
-  Memo1.Lines.Add(IntToStr(C));
-  Memo1.Lines.Add(IntToHex(C, 0));
+  C := A div B;
+  AddTest(IntToStr(A) + ' div ' + IntToStr(B), C = 3, IntToStr(C));
+  A := $1234567812345678;
+  B := 31;
+  C := A shr B;
+  AddTest(IntToStr(A) + ' shr ' + IntToStr(B), C = 610839792, IntToStr(C));
+  A := 100000000000;
+  C := -A;
+  AddTest('-' + IntToStr(A), C = -100000000000, IntToStr(C));
+end;
+
+procedure TFormMain.AddTest(Name: string; Result: Boolean; Value: string);
+var
+  ListItem: TListItem;
+begin
+  ListItem := ListView1.Items.Add;
+  ListItem.Caption := Name;
+  if Result then ListItem.SubItems.Add('Passed')
+    else ListItem.SubItems.Add('Failed');
+  ListItem.SubItems.Add(Value);
+end;
+
+procedure TFormMain.FormShow(Sender: TObject);
+begin
+  ListView1.Items.Clear;
+  TestInt128;
 end;