Changeset 13 for trunk/SunriseChatCoreUtils.pas

Timestamp:

Feb 11, 2008, 2:14:42 PM (16 years ago)

Author:

george

Message:

Opraveno: Načítání seznamu síťových adaptérů na Linuxu.
Přidáno: Úpravy pro potřeby ladění problému s nepřijímáním UDP paketů.

File:

• trunk/SunriseChatCoreUtils.pas (modified) (1 diff)

trunk/SunriseChatCoreUtils.pas

@@ -60 +60 @@
 end;
 
-function Explode(Separator: Char;
-  Data: string): TArrayOfString;
+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));
+  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;
+  SetLength(Result, Length(Result) + 1);
+  Result[High(Result)] := Data;
 end;