Changeset 17 for Common/UCommon.pas

Timestamp:

Mar 30, 2010, 11:25:23 AM (15 years ago)

Author:

george

Message:

• Přidáno: Třída TIPAddress pro práci s adresami IPv4.
• Přidáno: Třída TVarIntSerializer pro práci s VarInt kódováním.
• Přidáno: Funkce Explode v knihovně Common.

File:

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

Common/UCommon.pas

@@ -8 +8 @@
 type
   TArrayOfByte = array of Byte;
-
+  TArrayOfString = array of string;
+  
 function IntToBin(Data: Cardinal; Count: Byte): string;
 function TryHexToInt(Data: string; var Value: Integer): Boolean;
@@ -99 +100 @@
 end;
 
+function Explode(Separator: char; Data: string): TArrayOfString;
+begin
+  SetLength(Result, 0);
+  while Pos(Separator, Data) > 0 do begin
+    SetLength(Result, Length(Result) + 1);
+    Result[High(Result)] := Copy(Data, 1, Pos(Separator, Data) - 1);
+    Delete(Data, 1, Pos(Separator, Data));
+  end;
+  SetLength(Result, Length(Result) + 1);
+  Result[High(Result)] := Data;
+end;
 
 end.