Changeset 129 for Common

Timestamp:

Jan 17, 2011, 6:55:36 AM (14 years ago)

Author:

george

Message:

• Modified: Thread exception handling through global handler.
• Modified: CoolStreaming BitStream demo use AsString property.

File:

• Common/UCommon.pas (modified) (4 diffs)

Common/UCommon.pas

@@ -4 +4 @@
 
 uses
-  Windows, Classes, SysUtils, SpecializedList; //, ShFolder, ShellAPI;
+  Windows, Classes, SysUtils, SpecializedList, StrUtils; //, ShFolder, ShellAPI;
 
 type
   TArrayOfByte = array of Byte;
   TArrayOfString = array of string;
+  TExceptionEvent = procedure(Sender: TObject; E: Exception) of object;
 
   TUserNameFormat = (
@@ -22 +23 @@
     unfDNSDomainName = 11);
 
+var
+  ExceptionHandler: TExceptionEvent;
 
 function IntToBin(Data: Cardinal; Count: Byte): string;
@@ -38 +41 @@
 procedure SetBit(var Variable: Word; Index: Byte; State: Boolean);
 function AddLeadingZeroes(const aNumber, Length : integer) : string;
+function LastPos(const SubStr: String; const S: String): Integer;
 
 implementation
@@ -65 +69 @@
 end;*)
 
+function LastPos(const SubStr: String; const S: String): Integer;
+begin
+  Result := Pos(ReverseString(SubStr), ReverseString(S));
+  if (Result <> 0) then
+    Result := ((Length(S) - Length(SubStr)) + 1) - Result + 1;
+end;
+
 function BCDToInt(Value: Byte): Byte;
 begin