Символ на экране..., какой?? Опции

[Флогримм]

Как узнать какой символ находиться на экране в позиции [x,y] (в текстовом режиме)??

[volvo]

Код

type
 TVideoWord =
 Record
   Ch: Char; Attrib: Byte;
 End;
 TVideoBuffer = Array[1 .. 50*80] Of TVideoWord;

Var
 Buff: TVideoBuffer Absolute $B800:$0000;
 { цветной режим. Для Mono $B000:$0000 }

 Column: Byte Absolute $0000:$044A;

Function GetChar(x, y: Integer): Char
 Var i: Integer;
 Begin
   i := Column*Pred(y) + x;
   GetChar := Buff[i].Ch;
 End;

Begin
 WriteLn( GetChar(10, 10) );
End.

Сообщение отредактировано: volvo - 26.11.2004 21:59