Changeset 4 for ObjectBaseTypes/UObjectString.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)
• UObjectString.pas (modified) (4 diffs)

ObjectBaseTypes

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

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

ObjectBaseTypes/UObjectString.pas

@@ -4 +4 @@
 
 uses
-  SysUtils, UObjectTypeBase, UObjectBoolean, UObjectInteger;
+  SysUtils, UObjectTypeBase, UObjectBoolean, UObjectInteger, StrUtils;
 
 type
@@ -19 +19 @@
     procedure Insert(Index: TInteger; SubString: TString);
     function Pos(SubString: TString): TInteger;
+    procedure Reverse;
+    function LeftString(Count: TInteger): TString;
+    function RightString(Count: TInteger): TString;
   end;
 
@@ -53 +56 @@
 end;
 
+function TString.LeftString(Count: TInteger): TString;
+begin
+  Result := TString.Create;
+  Result.Value := StrUtils.LeftStr(Value, Count.Value);
+end;
+
 function TString.Length: TInteger;
 begin
@@ -70 +79 @@
 function TString.Pos(SubString: TString): TInteger;
 begin
+  Result := TInteger.Create;
   Result.Value := System.Pos(SubString.Value, Value);
+end;
+
+procedure TString.Reverse;
+begin
+  Value := StrUtils.ReverseString(Value);
+end;
+
+function TString.RightString(Count: TInteger): TString;
+begin
+  Result := TString.Create;
+  Result.Value := StrUtils.RightStr(Value, Count.Value);
 end;
 

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