Changeset 104 for Network/CoolWeb/WebServer/UHTTPServerCGI.pas

Timestamp:

Dec 31, 2010, 9:59:19 PM (14 years ago)

Author:

george

Message:

• Přidáno: Třídy THtmlForm. THtmlInput a THtmlLineBreak.

File:

• Network/CoolWeb/WebServer/UHTTPServerCGI.pas (modified) (2 diffs)

Network/CoolWeb/WebServer/UHTTPServerCGI.pas

@@ -22 +22 @@
 
 implementation
+
+resourcestring
+  SEnvironmentVariables = 'Environment variables:';
 
 { THTTPServerCGI }
@@ -107 +110 @@
   inherited;
   with HandlerData, Response.Stream do begin
-    WriteString('<h5>Environment variables:</h5>');
+    WriteString('<h5>' + SEnvironmentVariables + '</h5>');
     WriteString('<table border="1">');
     for I := 0 to EnvVars.Count - 1 do begin