IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> консольный текстовый редактор
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 111
Пол: Мужской
Реальное имя: Рома

Репутация: -  0  +


Подскажите как реализовать функции редактирования текста в консоли?
Код

          AssignFile (F, s);
          Reset(F);

          while not EOF(F) do
          begin
            Readln (F, s);
            MyWriteln(s);
          end;

можно вообще их реализовать при таком вводе?
зы пробовал делать пару процедур по мануалам - не работают sad.gif чиво они так? sad.gif
Код

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 -


--------------------
Цитата
          .     .
           \__/
          (**)
(>:=:=:~~ 
  ^ ^ ^ ^ 

Креветка присваивания :DDD
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #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, все компилируется...
 К началу страницы 
+ Ответить 

Сообщений в этой теме
kr3v3tkus   консольный текстовый редактор   29.10.2007 15:43
volvo   В DRKB просмотри реализацию модуля "CRT для к…   29.10.2007 15:57
kr3v3tkus   там большой модуль Т__Т а нет попроще реализации б…   29.10.2007 16:26
kr3v3tkus   никто ничё не подскажет? :'( надеввду боше нет…   31.10.2007 4:21
volvo   :blink: Ты DRKB какой версии используешь? Если 3.…   31.10.2007 4:33
kr3v3tkus   drkb 2.3 ... ты знаеш, я находил юнит в нете, точн…   31.10.2007 4:56
volvo   Погоди... Тебе надо полноэкранное консольное прило…   31.10.2007 6:01
kr3v3tkus   о большое пасиб, а то я не мог найти такого мануал…   31.10.2007 6:16
kr3v3tkus   пардон конечено, но я опять с тупыми вопросами -_-…   3.11.2007 7:22
volvo   Вот начало программы: Пока она умеет только запу…   3.11.2007 7:33
kr3v3tkus   согласен :)) пасиб большое щаз бум препарировать …   3.11.2007 7:39
kr3v3tkus   небольшой вопросик - почему vk_Return не хочет вып…   3.11.2007 8:44
kr3v3tkus   разобрался ток с созданием сохранением загрузкой и…   6.11.2007 5:19


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 24.04.2024 8:21
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name