Changeset 134 for trunk/UTest.pas

Timestamp:

Apr 10, 2022, 1:54:34 PM (3 years ago)

Author:

chronos

Message:

• Modified: UDataFile unit moved into Common package and TDataFile class made TComponent descendant.

File:

• trunk/UTest.pas (modified) (2 diffs)

trunk/UTest.pas

@@ -87 +87 @@
   Lines := TStringList.Create;
   try
-    with TVCardFile.Create do
+    with TVCardFile.Create(nil) do
     try
       Lines.Text := Input;
@@ -115 +115 @@
   Lines := TStringList.Create;
   try
-    with TVCardFile.Create do
+    with TVCardFile.Create(nil) do
     try
       Lines.Text := Input;