Changeset 4 for ObjectBaseTypes/UMainForm.pas

Timestamp:

Jul 27, 2009, 3:19:14 PM (15 years ago)

Author:

george

Message:

• Přidáno: Objektová třída TPoint, TDouble.

Location:

ObjectBaseTypes

Files:

• . (modified) (1 prop)
• UMainForm.pas (modified) (2 diffs)

ObjectBaseTypes

@@ -3 +3 @@
 TestApplication.res
 *.dcu
+*.~dsk

@@ -3 +3 @@
 TestApplication.res
 *.dcu
+*.~dsk

ObjectBaseTypes/UMainForm.pas

@@ -57 +57 @@
     Add(BoolToStr(Result.Value) + ' := ' + BoolToStr(Operand1.Value));
 
-    // Ordinal
-    Result.Value := False;
-    Int := TInteger(Result.Ordinal);
-    Add(IntToStr(Int.Value) + ' := ordinal ' + BoolToStr(Result.Value));
-
-    Result.Value := True;
-    Int := TInteger(Result.Ordinal);
-    Add(IntToStr(Int.Value) + ' := ordinal ' + BoolToStr(Result.Value));
-
     // OrTo
     Result.Value := True;
@@ -98 +89 @@
     Bool := Result.EqualTo(Operand1);
     Add(BoolToStr(Bool.Value) + ' := ' + Result.Value + '.EqualTo(' + Operand1.Value + ')');
+
+    // Length
+    Result.Value := 'ABCD';
+    Int := Result.Length;
+    Add(IntToStr(Int.Value) + ' := ' + Result.Value + '.Length');
+
+    // Reverse
+    Operand1.Value := 'ABCD';
+    Result.Assign(Operand1);
+    Result.Reverse;
+    Add(Result.Value + ' := ' + Operand1.Value + '.Reverse');
   end;
 end;

@@ -3 +3 @@
 TestApplication.res
 *.dcu
+*.~dsk