home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / screen.swg / 0006_GETCHAR2.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  1012 b   |  50 lines
  1. {
  2. >I need a routine that will go to a specific screen position and grab one
  3. >or two Characters that are there (or next to it) - e.g It would go to row
  4. >1 column 1 and return With the Character in that spot..
  5.  
  6. Try this For TP 6.0
  7. }
  8.  
  9. Uses
  10.   Crt;
  11.  
  12. Function ScrnChar(x,y:Byte):Char;
  13. Var
  14.   xkeep, ykeep : Byte;
  15. begin
  16.   xkeep := whereX;
  17.   ykeep := whereY;
  18.   GotoXY(x, y);
  19.   Asm
  20.     push  bx
  21.     mov   ah,8
  22.     xor   bx,bx
  23.     int   16
  24.     mov   @Result,al
  25.     pop   bx
  26.   end;
  27.   GotoXY(xkeep,ykeep)
  28. end;
  29. {
  30. I am not sure about the "@Result" as being the correct name, but TP 6.0 has a
  31. name that is used For the result of a Function. This should be Compatible with
  32. the Windows etc. of TP 6.0
  33. }
  34.  
  35. Var
  36.   ch : Char;
  37.   Count : Integer;
  38.  
  39. begin
  40.   ClrScr;
  41.   For Count := 1 to 500 do
  42.   begin
  43.     Write(chr(Count));
  44.     if count mod 80 = 0 then
  45.       Write(#13#10);
  46.   end;
  47.   ch := scrnChar(5,5);
  48.   Write(#13#10#10#10#10#10,'The Character at position (5,5) is: ',ch);
  49.   readln;
  50. end.