Changeset 25 for branches/lazarus/Common/UHtmlClasses.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/Common/UHtmlClasses.pas (modified) (3 diffs)

branches/lazarus/Common/UHtmlClasses.pas

@@ -146 +146 @@
 implementation
 
+resourcestring
+  SStringToIPConversionError = 'String to IP address conversion error';
+
+
 function LeftCutString(var Source, Output: string; Delimiter: string; Allowed: string = ''): Boolean;
 var
@@ -225 +229 @@
   Result := TXmlDocument.Create;
   with Result, Content do begin
-    Formated := True;
     DocType := TXMlTag.Create;
     DocType.Name := '!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"';
@@ -380 +383 @@
 //    end else raise EConvertError.Create('String to IP address conversion error');
     except
-      raise EConvertError.Create('String to IP address conversion error');
+      raise EConvertError.Create(SStringToIPConversionError);
     end;
   finally