Changeset 286 for branches/web/UCore.pas

Timestamp:

Sep 8, 2010, 10:08:43 AM (14 years ago)

Author:

george

Message:

• Odstraněno: Nadále nebude používána sada knihoven powutils.
• Přidáno: Vlastní třída pro obsluhu a podporu zpracování CGI programů.
• Upraveno: Korekce názvů sloupců a tabulek databáze.

File:

• branches/web/UCore.pas (modified) (2 diffs)

branches/web/UCore.pas

@@ -21 +21 @@
 function PagesList(URL: string; Page, TotalCount, CountPerPage: Integer): string;
 function StrRepeat(Data: string; Count: Integer): string;
-function FormatOutput(Data: string): string;
-  
+
 type
   TRegistredPage = record
@@ -177 +176 @@
 end;
 
-function FormatOutput(Data: string): string;
-var
-  BlockStart, BlockEnd: Integer;
-  Indention: Integer;
-  Indention2: Integer;
-  Line: string;
-  Command: string;
-begin
-  Result := '';
-  Indention := 0;
-  Indention2 := 0;
-  while Data <> '' do begin
-    //WebWrite('.');
-    BlockStart := Pos('<', Data);
-        BlockEnd := Pos('>', Data);
-    if BlockStart > 1 then begin
-          BlockEnd := BlockStart - 1;
-          BlockStart := 1;
-        end;
-        Line := Trim(Copy(Data, BlockStart, BlockEnd));
-        //WebWriteLn(Line);
-        if Length(Line) > 0 then
-          if Line[1] = '<' then begin
-            if Data[BlockStart + 1] = '/' then begin
-              Indention := Indention - 2;
-              Indention2 := Indention;
-            end else begin
-          if Pos(' ', Line) > 0 then Command := Copy(Line, 2, Pos(' ', Line) - 2)
-                else Command := Copy(Line, 2, Length(Line) - 2);
-                  //WebWriteLn(Command + ' ' + IntToStr(Indention));
-          if Pos('</' + Command + '>', Data) > 0 then Indention := Indention + 2;
-                  //WebWriteLn(IntToStr(Indention) + ',' + IntToStr(Indention2));
-            end;   
-          end;
-          if Line <> '' then Result := Result + StrRepeat(' ', Indention2) + Line + #13#10;
-          Data := Copy(Data, BlockEnd + 1, Length(Data));
-          Indention2 := Indention;
-  end;
-end;
 
 initialization