Добрый день!
незнаю правильно ли я выбрал раздел, но проблема такая есть код на TP демонстрирующий работу модуля Crt, хотелось бы перенисти код на FP, да возникает проблемма Internal error 200309141 как от нее избавиться?
Заранее благодарен.
Прикрепленные файлы
09.pas ( 644 байт )
Кол-во скачиваний: 332
Название программы поменяй - FPC не разрешает такого... Например, на TheWindows ...
Ну да... Вообще-то в реализации Crt под FPC есть глюк: при использовании Write когда печать доходит до края текущего окна, очередные символы выходят за его границы (если это окно) или просто ВСЕ оставшиеся символы печатаются в одной позиции (если это граница экрана), в то время, как в Turbo Pascal очередной символ переносится на новую строку.
Именно это, насколько я понимаю здесь и происходит.
Окна создаются, у тебя в программе просто опечатка, которая мешает нормальной работе:
X1 := Random(40)+1;
Y1 := Random(12)+1;
X2 := X1+Random(40);
Y2 := Y2+Random(12); { <-- Здесь... Чему равно вначале Y2? }
Window(X1, Y1, X2, Y2);
// Добавляем это после создания окна
Textbackground(cyan);
ClrScr;
вроде разобрался... спасибо...