home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / unity / d56 / DW / DW10242.ZIP / HTMWorks.pas < prev    next >
Pascal/Delphi Source File  |  2002-03-10  |  3KB  |  69 lines
  1. (*---------------------------------HTMWorks.pas--------------------------
  2.  V1.0.7   - 10.03.2001 current release / first release
  3. ------------------------------------------------------------------------*)
  4.  
  5. unit HTMWorks;
  6.  
  7. interface
  8.  
  9. uses StringWorks;
  10.  
  11. type
  12.   HTMLstr = string[8];
  13.  
  14. const htAnz = 102;
  15.  
  16.   htTEXT: array[0..htAnz] of char = (
  17.     '&','<','>', ' ', '⌐', '«', 'Ö', '½', '╗', 'í', '┐', '└', 'α', '┴', 'ß', '┬',
  18.     'Γ', '├', 'π', '─', 'Σ', '┼', 'σ', '╞', 'µ', '╟', 'τ', '╨', '≡', '╚', 'Φ', '╔', 'Θ', '╩',
  19.     'Ω', '╦', 'δ', '╠', '∞', '═', 'φ', '╬', 'ε', '╧', '∩', '╤', '±', '╥', '≥', '╙', '≤', '╘',
  20.     '⌠', '╒', '⌡', '╓', '÷', '╪', '°', '┘', '∙', '┌', '·', '█', '√', '▄', 'ⁿ', '▌', '²', ' ',
  21.     '▐', '■', '▀', 'º', '╢', '╡', '|', '▒', '¡', '¿', '╕', '¬', '░', '¼', 'û', '»', '║', '╣',
  22.     '▓', '│', '╝', '╜', '╛', '╫', '≈', 'ó', 'ú', 'ñ', 'Ñ', 'Ç', 'ô', '"', 'ö');
  23.  
  24.  
  25.   htHTML: array[0..htAnz] of HTMLstr = (
  26.     '&','>','<',' ', '©', '®', '™',
  27.     '«', '»', '¡', '¿', 'À', 'à', 'Á',
  28.     'á', 'Â', 'â', 'Ã', 'ã', 'Ä', 'ä',
  29.     'Å', 'å', 'Æ', 'æ', 'Ç', 'ç', 'Ð',
  30.     'ð', 'È', 'è', 'É', 'é', 'Ê', 'ê',
  31.     'Ë', 'ë', 'Ì', 'ì', 'Í', 'í', 'Î',
  32.     'î', 'Ï', 'ï', 'Ñ', 'ñ', 'Ò', 'ò',
  33.     'Ó', 'ó', 'Ô', 'ô', 'Õ', 'õ', 'Ö',
  34.     'ö', 'Ø', 'ø', 'Ù', 'ù', 'Ú', 'ú',
  35.     'Û', 'û', 'Ü', 'ü', 'Ý', 'ý', 'ÿ',
  36.     'Þ', 'þ', 'ß', '§', '¶', 'µ', '¦',
  37.     '±', '·', '¨', '¸', 'ª', 'º', '¬', '­',
  38.     '¯', '&def;', '¹', '²', '³', '¼', '½',
  39.     '¾', '×', '÷', '¢', '£', '¤', '¥',
  40.     '€', '“', '"', '”');
  41.  
  42. function CharToHTML(Chr: Char): string;
  43. function StringToHTML(Str: String): String;
  44.  
  45. implementation
  46.  
  47. function CharToHTML(Chr: Char): string;
  48. var i: integer;
  49. begin
  50.   Result := Chr;
  51.   for i := 0 to High(htTEXT) do
  52.     if htTEXT[i] = Chr then Result := htHTML[i];
  53. end;
  54.  
  55. function StringToHTML(Str: String): String;
  56. var
  57.    I: Integer;
  58.    Chr: Char;
  59.    ReplStr: String;
  60. begin
  61.    for I:= 1 to StringLen(Str) do begin
  62.       Chr:= Str[I];
  63.       ReplStr:= CharToHTML(Chr);
  64.       result:= result + ReplStr;
  65.    end;
  66. end;
  67.  
  68. end.
  69.