Changeset 14 for ObjectBaseTypes


Ignore:
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:
15 added
8 deleted
2 edited

Legend:

Unmodified
Added
Removed
  • ObjectBaseTypes/TestApplication.dpr

    r4 r14  
    44  Forms,
    55  UMainForm in 'UMainForm.pas' {MainForm},
    6   UObjectString in 'UObjectString.pas',
    7   UObjectInteger in 'UObjectInteger.pas',
    8   UObjectTypeBase in 'UObjectTypeBase.pas',
    9   UObjectBoolean in 'UObjectBoolean.pas',
    10   UObjectByte in 'UObjectByte.pas',
    116  UInterfacedBits in 'UInterfacedBits.pas',
    12   UObjectDouble in 'UObjectDouble.pas',
    13   UObjectPoint in 'UObjectPoint.pas',
    14   UObjectNumber in 'UObjectNumber.pas';
     7  UObjectTypeBase in 'Level 1\UObjectTypeBase.pas',
     8  UObjectBoolean in 'Level 1\UObjectBoolean.pas',
     9  UObjectByte in 'Level 1\UObjectByte.pas',
     10  UObjectDateTime in 'Level 1\UObjectDateTime.pas',
     11  UObjectDouble in 'Level 1\UObjectDouble.pas',
     12  UObjectChar in 'Level 1\UObjectChar.pas',
     13  UObjectInteger in 'Level 1\UObjectInteger.pas',
     14  UObjectString in 'Level 2\UObjectString.pas',
     15  UFileSystem in 'Level 2\UFileSystem.pas',
     16  UObjectPoint in 'Level 2\UObjectPoint.pas',
     17  USystem in 'Level 3\USystem.pas',
     18  UObjectStringList in 'Level 3\UObjectStringList.pas';
    1519
    1620{$R *.res}
  • ObjectBaseTypes/UMainForm.pas

    r4 r14  
    100100    Result.Reverse;
    101101    Add(Result.Value + ' := ' + Operand1.Value + '.Reverse');
     102
     103    // Pos
     104    Operand1.Value := 'ABCD';
     105    Operand2.Value := 'C';
     106    Int := Operand1.Pos(Operand2);
     107    Add(IntToStr(Int.Value) + ' := ' + Operand1.Value + '.Pos(' + Operand2.Value + ')');
    102108  end;
    103109end;
Note: See TracChangeset for help on using the changeset viewer.