Changeset 44 for trunk/UCore.pas

Timestamp:

Dec 4, 2010, 6:41:05 PM (14 years ago)

Author:

george

Message:

• Odstraněno: Soubory patřící pod web server jsou nyní v samostatném balíčku CoolWeb.

File:

• trunk/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -8 +8 @@
   USqlDatabase, Classes, SysUtils, StrUtils;
   
-type
-  TArrayOfString = array of string;
-
 function NavigationLink(URL: string): string;
 function MakeLink(Text, URL: string): string;
@@ -18 +15 @@
 function ShowHeader(Title, Path: string): string;
 function ShowFooter: string;
-function Explode(Separator: Char; Data: string): TArrayOfString;
 function HumanDate(Date: TDateTime): string;
 function PagesList(URL: string; Page, TotalCount, CountPerPage: Integer): string;
-function StrRepeat(Data: string; Count: Integer): string;
 
 implementation
@@ -63 +58 @@
   //ShowArray($GLOBALS);
   Result := Result + '</body></html>';
-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;
 
@@ -153 +136 @@
 end; 
 
-function StrRepeat(Data: string; Count: Integer): string;
-var
-  I: Integer;
-begin  
-  Result := '';
-  for I := 1 to Count do 
-    Result := Result + Data;
-end;
-
 
 initialization