Changeset 25 for branches/lazarus/UCore.pas

Timestamp:

Sep 8, 2010, 8:34:15 PM (14 years ago)

Author:

george

Message:

• Opraveno: Zobrazování jednotlivých stránek.
• Opraveno: Zobrazení výpisu historie sítě.

File:

• branches/lazarus/UCore.pas (modified) (3 diffs)

branches/lazarus/UCore.pas

@@ -10 +10 @@
 type
   TArrayOfString = array of string;
-  TPageProducer = function: string;
 
 function MakeLink(Text, URL: string): string;
@@ -20 +19 @@
 function ShowFooter: string;
 function Explode(Separator: Char; Data: string): TArrayOfString;
-function HumanDate(Date: string): string;
+function HumanDate(Date: TDateTime): string;
 function PagesList(URL: string; Page, TotalCount, CountPerPage: Integer): string;
 function StrRepeat(Data: string; Count: Integer): string;
@@ -78 +77 @@
 end;
 
-function HumanDate(Date: string): string;
-var
-  Parts: TArrayOfString;
-  Parts2: TArrayOfString;
+function HumanDate(Date: TDateTime): string;
 begin
-  Parts := Explode(' ', Date);
-//  Result := Date;
-  Parts2 := Explode('-', Parts[0]);
-  if Date <> '0000-00-00' then Result := IntToStr(StrToInt(Parts2[2])*1) + '.' + IntToStr(StrToInt(Parts2[1])*1) + '.' + Parts2[0]
-    else Result := '&nbsp;';
+  Result := FormatDateTime('d.m.yyyy', Date);
 end;