консольный текстовый редактор Опции

[kr3v3tkus]

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

Код

          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

[kr3v3tkus]

drkb 2.3 ... ты знаеш, я находил юнит в нете, точно такой же, } и = я то исправлял, но всё равно не хочет, но блин там нету мануала ток пару каментов... ну ладно с компиляцией разберусь, но можеш тогда показать на примере его использования программу как отловить выделенный текст и например скопировать его пзялста ?
забыл - дельфя седьмые

ща позырел - в InputRec нету метода(или как?) InputRec{$IfDef NEW_STYLES}.Event.KeyEvent, а есть InputRec{$IfDef NEW_STYLES}.Event.keybd_event

...чёт я не того... походу это и есть добавление... чеж он ругаеца тада(((

-__- блин это походу изза этих штук {$IfDef NEW_STYLES}... а что это ваще? не коментарии же?..

Сообщение отредактировано: kr3v3tkus - 31.10.2007 1:25