![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
kr3v3tkus |
![]()
Сообщение
#1
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 111 Пол: Мужской Реальное имя: Рома Репутация: ![]() ![]() ![]() |
Подскажите как реализовать функции редактирования текста в консоли?
Код AssignFile (F, s); Reset(F); while not EOF(F) do begin Readln (F, s); MyWriteln(s); end; можно вообще их реализовать при таком вводе? зы пробовал делать пару процедур по мануалам - не работают ![]() ![]() Код procedure GotoXY(X, Y: Word); begin Coord.X := X; Coord.Y := Y; SetConsoleCursorPosition(ConHandle, Coord); end; procedure ClrScr; begin Coord.X := 0; Coord.Y := 0; FillConsoleOutputCharacter(ConHandle, ' ', MaxX * MaxY, Coord, NOAW); GotoXY(0, 0); end; ззы или плз киньте линки на литературу >__> Сообщение отредактировано: kr3v3tkus - 29.10.2007 11:44 -------------------- Цитата . . \__/ (**) (>:=:=:~~ ^ ^ ^ ^ Креветка присваивания :DDD |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Погоди... Тебе надо полноэкранное консольное приложение, или достаточно будет не полноэкранного? Если второе - то вот тут: http://www.silicontaiga.ru/home.asp?artId=5757
разжевано до неприличия, как работать с консолью, как отлавливать клавиши, события мыши и т.п. Посмотри, по-моему достаточно просто можно собрать из всего, что там написано, программу с нужной функциональностью. Если не будет получаться - говори, попробуем помочь... Добавлено через 11 мин. Цитата а что это ваще? не коментарии же?.. Нет... Не комментарии... Это директивы компиляции. То есть, если у тебя определен символ компиляции VER130 или VER140 (то есть, версия Object Pascal-компилятора 13.0 или 14.0), то будет определен и символ NEW_STYLES... А уже если определен NEW_STYLES, то строка типа:(InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.KeyEvent.bKeyDown) then ... будет восприниматься компилятором, как (InputRec.Event.KeyEvent.bKeyDown) then ..., если же NEW_STYLES не определено (может, компилятор старше чем D6, может, наоборот, новый, в котором версия Object Pascal больше чем 14.0), тогда обращение будет БЕЗ поля Event (символ компиляции отсутствует - то, что находится между $IFDEF/$ENDIF выбрасывается): (InputRec.KeyEvent.bKeyDown) then ... Для этого я и спрашивал, какая у тебя версия Дельфи... Насчет семерки не знаю, у меня D6, все компилируется... |
![]() ![]() |
![]() |
Текстовая версия | 9.08.2025 20:25 |