Спасибо. Давно в руки паскаль не брал. Как все усложнилось, главное что понятно, то что написано.
Добавлено спустя 21 час 39 минут 16 секунд:
InitVideo;
gotoxy(1,1);
writeln('1');
Writeln('Char kod:', (VideoBuf^[0] and $FF) );
DoneVideo;
получаем:
1
Char kod:32 (тут не ...
Найдено 2 результата
- 12.10.2014 18:45:34
- Форум: Обучение Free Pascal
- Тема: Работа с консолью
- Ответы: 3
- Просмотры: 10589
- 11.10.2014 13:27:08
- Форум: Обучение Free Pascal
- Тема: Работа с консолью
- Ответы: 3
- Просмотры: 10589
Работа с консолью
FPC 2.6.4 / Windows 7 x64 /
Задача: с экрана (консоль) считать символ и его атрибут.
На BorlandPascal делалось примерно так...
type
TEkr= array[1..2000,1..2] of byte;
var
Ekran : TEkr absolute $B800:$0000;
begin
{ читаем с массива что хотим }
end.
На такую конструкцию идет ошибка: 2.pas(4,29 ...
Задача: с экрана (консоль) считать символ и его атрибут.
На BorlandPascal делалось примерно так...
type
TEkr= array[1..2000,1..2] of byte;
var
Ekran : TEkr absolute $B800:$0000;
begin
{ читаем с массива что хотим }
end.
На такую конструкцию идет ошибка: 2.pas(4,29 ...