Changeset 14 for ObjectBaseTypes

Timestamp:

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

Author:

george

Message:

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

Location:

ObjectBaseTypes

Files:

• Level 1 (added)
• Level 1/UObjectBoolean.pas (added)
• Level 1/UObjectByte.pas (added)
• Level 1/UObjectChar.pas (added)
• Level 1/UObjectDateTime.pas (added)
• Level 1/UObjectDouble.pas (added)
• Level 1/UObjectInteger.pas (added)
• Level 1/UObjectTypeBase.pas (added)
• Level 2 (added)
• Level 2/UFileSystem.pas (added)
• Level 2/UObjectPoint.pas (added)
• Level 2/UObjectString.pas (added)
• Level 3 (added)
• Level 3/UObjectStringList.pas (added)
• Level 3/USystem.pas (added)
• TestApplication.dpr (modified) (1 diff)
• UMainForm.pas (modified) (1 diff)
• UObjectBoolean.pas (deleted)
• UObjectByte.pas (deleted)
• UObjectDouble.pas (deleted)
• UObjectInteger.pas (deleted)
• UObjectNumber.pas (deleted)
• UObjectPoint.pas (deleted)
• UObjectString.pas (deleted)
• UObjectTypeBase.pas (deleted)

ObjectBaseTypes/TestApplication.dpr

@@ -4 +4 @@
   Forms,
   UMainForm in 'UMainForm.pas' {MainForm},
-  UObjectString in 'UObjectString.pas',
-  UObjectInteger in 'UObjectInteger.pas',
-  UObjectTypeBase in 'UObjectTypeBase.pas',
-  UObjectBoolean in 'UObjectBoolean.pas',
-  UObjectByte in 'UObjectByte.pas',
   UInterfacedBits in 'UInterfacedBits.pas',
-  UObjectDouble in 'UObjectDouble.pas',
-  UObjectPoint in 'UObjectPoint.pas',
-  UObjectNumber in 'UObjectNumber.pas';
+  UObjectTypeBase in 'Level 1\UObjectTypeBase.pas',
+  UObjectBoolean in 'Level 1\UObjectBoolean.pas',
+  UObjectByte in 'Level 1\UObjectByte.pas',
+  UObjectDateTime in 'Level 1\UObjectDateTime.pas',
+  UObjectDouble in 'Level 1\UObjectDouble.pas',
+  UObjectChar in 'Level 1\UObjectChar.pas',
+  UObjectInteger in 'Level 1\UObjectInteger.pas',
+  UObjectString in 'Level 2\UObjectString.pas',
+  UFileSystem in 'Level 2\UFileSystem.pas',
+  UObjectPoint in 'Level 2\UObjectPoint.pas',
+  USystem in 'Level 3\USystem.pas',
+  UObjectStringList in 'Level 3\UObjectStringList.pas';
 
 {$R *.res}

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;