home *** CD-ROM | disk | FTP | other *** search
/ synchro.net / synchro.net.tar / synchro.net / main / BBS / FDFP_092.ZIP / extra.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-07-24  |  3.0 KB  |  113 lines
  1. unit extra;
  2.  
  3. interface
  4. uses dos;
  5.  
  6. {
  7. procedure cursoroff;
  8. procedure cursoron;
  9. }
  10. function UpperCase (S : String) : String;
  11. Function GetCurTimeSecs : Integer;
  12. procedure elapsed(time1_hour, time1_min, time1_sec, time2_hour, time2_min,
  13.                   time2_sec: word; var elap_hour, elap_min, elap_sec: word);
  14. Procedure Convert_To_ANSI (var MyStr : String);
  15.  
  16. implementation
  17.  
  18. {
  19. procedure cursoroff;
  20. begin
  21.   HideCursor;
  22. end;
  23.  
  24. procedure cursoron;
  25. begin
  26.   ShowCursor;
  27. end;
  28. }
  29.  
  30. function UpperCase (S : String) : String;
  31. var
  32.   TempInt : Integer;
  33. begin
  34.   For TempInt := 1 to Length(S) do
  35.     S[TempInt] := UpCase(S[TempInt]);
  36.   UpperCase := S;
  37. end;
  38.  
  39. Function GetCurTimeSecs : Integer;
  40. var
  41.   h, m, s, hund : word;
  42. begin
  43.   GetTime(h,m,s,hund);
  44.   GetCurTimeSecs := (h * 60 * 60) + (m * 60) + s;
  45. end;
  46.  
  47. procedure elapsed(time1_hour, time1_min, time1_sec, time2_hour, time2_min,
  48.                   time2_sec: word; var elap_hour, elap_min, elap_sec: word);
  49. var
  50.  a,b,c: word;
  51. begin;
  52.  if time1_hour<time2_hour then time1_hour:=time1_hour+24;
  53.  a:=(time1_hour*3600)+(time1_min*60)+time1_sec;
  54.  b:=(time2_hour*3600)+(time2_min*60)+time2_sec;
  55.  c:=a-b;
  56.  if c>=3600 then elap_hour:=c div 3600 else elap_hour:=0;
  57.  c:=c-((c div 3600)*3600);
  58.  if c>=60 then elap_min:=c div 60 else elap_min:=0;
  59.  c:=c-((c div 60)*60);
  60.  elap_sec:=c;
  61. end;
  62.  
  63. (*************************************************************)
  64.  Procedure Convert_To_ANSI (var MyStr : String);
  65. (*************************************************************)
  66. Var
  67.   DummyInt : Integer;
  68.   AnsiStr : String;
  69. Begin
  70.   DummyInt := 0;
  71.   Repeat
  72.     if Pos ('`', MyStr) <> 0 then
  73.     begin
  74.       DummyInt := Pos('`', MyStr) + 2;
  75.         Case MyStr[DummyInt] of
  76.           '0': AnsiStr := #27 + '[0;30;';
  77.           '1': AnsiStr := #27 + '[0;34;';
  78.           '2': AnsiStr := #27 + '[0;32;';
  79.           '3': AnsiStr := #27 + '[0;36;';
  80.           '4': AnsiStr := #27 + '[0;31;';
  81.           '5': AnsiStr := #27 + '[0;35;';
  82.           '6': AnsiStr := #27 + '[0;33;';
  83.           '7': AnsiStr := #27 + '[0;37;';
  84.           '8': AnsiStr := #27 + '[1;30;';
  85.           '9': AnsiStr := #27 + '[1;34;';
  86.           'A': AnsiStr := #27 + '[1;32;';
  87.           'B': AnsiStr := #27 + '[1;36;';
  88.           'C': AnsiStr := #27 + '[1;31;';
  89.           'D': AnsiStr := #27 + '[1;35;';
  90.           'E': AnsiStr := #27 + '[1;33;';
  91.           'F': AnsiStr := #27 + '[1;37;';
  92.         end;
  93.       DummyInt := DummyInt - 1;
  94.         Case MyStr[DummyInt] of
  95.           '0': AnsiStr := AnsiStr + '40m';
  96.           '1': AnsiStr := AnsiStr + '44m';
  97.           '2': AnsiStr := AnsiStr + '42m';
  98.           '3': AnsiStr := AnsiStr + '46m';
  99.           '4': AnsiStr := AnsiStr + '41m';
  100.           '5': AnsiStr := AnsiStr + '45m';
  101.           '6': AnsiStr := AnsiStr + '43m';
  102.           '7': AnsiStr := AnsiStr + '47m';
  103.         end;
  104.       Delete (MyStr, DummyInt - 1, 3);
  105.       Insert (AnsiStr, MyStr, DummyInt - 1);
  106.     End;
  107.   Until Pos ('`', MyStr) = 0;
  108. End;
  109.  
  110.  
  111. begin
  112. end.
  113.