 Символ на экране..., какой?? |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
| Флогримм |
  26.11.2004 17:44
Сообщение
#1
|
 Бывалый  Группа: Пользователи Сообщений: 253 Пол: Мужской Репутация:  4   |
Как узнать какой символ находиться на экране в позиции [x,y] (в текстовом режиме)??
-------------------- Я не буду жить с этой злобой внутри / Я не буду частью смертельной цепи / Я не буду потребителем твоих идей / Я не буду никогда убивать зверей (Unconform)
|
   |
 
|
  |
Ответов
| volvo |
26.11.2004 17:57
Сообщение
#2
|
|
Гость |
Код 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 17:59 |
|
|
|
Сообщений в этой теме
Флогримм Символ на экране... 26.11.2004 17:44
Флогримм volvo, спасибо
ща попробую разобраться 26.11.2004 18:10 Altair Function GetChar(x, y: Integer): C... 26.11.2004 18:55 Altair ага, это функция 08h прерывания 10h.
mov ah,08h
mo... 26.11.2004 19:01 ZeroLink Посмотри мой исходник на
http://far.by.ru/progs/gr... 27.11.2004 9:17
APAL Type Ekr = array[1..4000] of Byte;
... 27.11.2004 10:53 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 18:16 |