wtf.pas

  1.   // -------------------------------------------------------
  2.   // Display list of paramters that have been used in the program
  3.   // -------------------------------------------------------
  4.   Procedure CreateParamsinXMLFile;
  5.   begin
  6.     Writeln(XMLFile,'<Parameters>');
  7.  
  8.      Writeln(XMLFile,Format('<Param1>%s</Param1>',[Paramstr(1)]));
  9.       Writeln(XMLFile,Format('<Param2>%s</Param2>',[Paramstr(2)]));
  10.        Writeln(XMLFile,Format('<Param3>%s</Param3>',[Paramstr(3)]));
  11.         Writeln(XMLFile,Format('<Param4>%s</Param4>',[Paramstr(4)]));
  12.          Writeln(XMLFile,Format('<Param5>%s</Param5>',[Paramstr(5)]));
  13.           Writeln(XMLFile,Format('<Param6>%s</Param6>',[Paramstr(6)]));
  14.            Writeln(XMLFile,Format('<Param7>%s</Param7>',[Paramstr(7)]));
  15.             Writeln(XMLFile,Format('<Param8>%s</Param8>',[Paramstr(8)]));
  16.              Writeln(XMLFile,Format('<Param9>%s</Param9>',[Paramstr(9)]));
  17.               Writeln(XMLFile,Format('<Param10>%s</Param10>',[Paramstr(10)]));
  18.                Writeln(XMLFile,Format('<Param11>%s</Param11>',[Paramstr(11)]));
  19.                 Writeln(XMLFile,Format('<Param12>%s</Param12>',[Paramstr(12)]));
  20.                  Writeln(XMLFile,Format('<Param13>%s</Param13>',[Paramstr(13)]));
  21.                   Writeln(XMLFile,Format('<Param14>%s</Param14>',[Paramstr(14)]));
  22.                    Writeln(XMLFile,Format('<Param15>%s</Param15>',[Paramstr(15)]));
  23.  
  24.      if Stage <> 1 then Writeln(XMLFile,Format('<Param16>%s</Param16>',[Paramstr(16)]));
  25.  
  26.      if (Stage <> 1) and (Stage <> 2) then
  27.      begin
  28.        Writeln(XMLFile,Format('<Param17>%s</Param17>',[Paramstr(17)]));
  29.        Writeln(XMLFile,Format('<Param18>%s</Param18>',[Paramstr(18)]));
  30.      end;
  31.  
  32.      Writeln(XMLFile,'</Parameters>');
  33.   end;
  34.