Changeset 14 for ObjectBaseTypes/UMainForm.pas

Timestamp:

Nov 6, 2009, 10:28:56 AM (15 years ago)

Author:

george

Message:

• Upraveno: Rozšíření sady tříd objektových typů.

File:

• ObjectBaseTypes/UMainForm.pas (modified) (1 diff)

ObjectBaseTypes/UMainForm.pas

@@ -100 +100 @@
     Result.Reverse;
     Add(Result.Value + ' := ' + Operand1.Value + '.Reverse');
+
+    // Pos
+    Operand1.Value := 'ABCD';
+    Operand2.Value := 'C';
+    Int := Operand1.Pos(Operand2);
+    Add(IntToStr(Int.Value) + ' := ' + Operand1.Value + '.Pos(' + Operand2.Value + ')');
   end;
 end;