home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / delphi / kompon / d123456 / STR_BIT.ZIP / UTIL / DOSPREO.PAS < prev    next >
Pascal/Delphi Source File  |  1996-09-10  |  1KB  |  40 lines
  1. unit DosPreo;
  2.  
  3. interface
  4.  
  5. function PrDosWin(StrDos:String) :String;
  6.  
  7. function PrWinDos(StrWin:String) :String;
  8.  
  9. implementation
  10.  
  11. function PrDosWin(StrDos:String) :String;
  12. const MasPerec : string [128] = '└┴┬├─┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀' +
  13.                                 'αßΓπΣσµτΦΘΩδ∞φε∩                ' +
  14.                                 '                                ' +
  15.                                 '≡±≥≤⌠⌡÷≈°∙·√ⁿ²■ ¿╕         ▒╣ñ. ';
  16. var i : integer; Vnut : string;
  17. begin
  18.  Vnut := '';
  19.  if StrDos <> '' then for i := 1 to length(StrDos) do
  20.    if StrDos[i] > #127 then Vnut := Vnut + MasPerec[Ord(StrDos[i])-127]
  21.                        else Vnut := Vnut + StrDos[i];
  22.  PrDosWin := Vnut;
  23. end;
  24.  
  25. function PrWinDos(StrWin:String) :String;
  26. const MasPerec : string [128] = 'üâ,ú"            ``""           ' +
  27.                                 ' ÷≈J²I|≡  <   ⌠. Iirm .±ⁿe>jSs⌡' +
  28.                                 'ÇüéâäàåçêëèïîìÄÅÉæÆôöòûùÿÖÜ¢£¥₧ƒ' +
  29.                                 'áíóúñѪº¿⌐¬½¼¡«»αßΓπΣσµτΦΘΩδ∞φε∩';
  30. var i : integer;  Vnut : string;
  31. begin
  32.  Vnut := '';   
  33.  if StrWin <> '' then for i := 1 to length(StrWin) do
  34.    if StrWin[i] > #127 then Vnut := Vnut + MasPerec[Ord(StrWin[i])-127]
  35.                        else Vnut := Vnut + StrWin[i];
  36.  PrWinDos := Vnut;
  37. end;
  38.  
  39. end.
  40.