[BrYan]

добрый день\вечер
маленький вопросик: помогите перевести этот код на делфи консоль , если это возможно..?
условие задачи:составить программу для того чтоб сделать курсор невидимым. вывести сообщение.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

uses crt,dos; var Active:boolean;     X,Y:integer;     Rg:registers;     Buttons:byte; procedure SetRatio(x,y:byte); begin if Active then begin rg.ax:=$F; rg.cx:=x; rg.dx:=x; Intr($3,rg); end;end; procedure msGOTO(x,y:integer); Begin if Active then begin rg.ax:=4; rg.cx:=x; rg.dx:=y; Intr($33,rg); end;end; procedure Reset; var b:boolean; begin rg.ax:=00; Intr($33,rg); Active:=(rg.bx=2) or(rg.bx=3); SetRatio(8,16); msGoto(80,22); X:=1; Y:=1;end; procedure Show; begin if Active then begin rg.ax:=01; Intr($33,rg); end;end; procedure HidE; begin if Active then begin rg.ax:=02; Intr($33,rg); end; end; Begin Reset; Show; readln; Hide; readln; end.

если можна то чем поскорее.

[lmikle]

Не надо ничего переводить. Надо пользоваться соотв. функциями Console API:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

program ConsoleDemo;   {$APPTYPE CONSOLE}   procedure ShowConsoleCursor(bShow : Boolean); var     hOut : HANDLE;     cursorInfo : CONSOLE_CURSOR_INFO; begin   hOut      := GetStdHandle(STD_OUTPUT_HANDLE);       cursorInfo.dwSize   := 10;     cursorInfo.bVisible     := bShow;     SetConsoleCursorInfo( hOut,@cursorInfo); end;   procedure gotoXY(X,Y : Integer); var     hOut : HANDLE;   XY : COORD; begin   hOut      := GetStdHandle(STD_OUTPUT_HANDLE);   XY.X := X;   XY.Y := Y;   SetConsoleCursorPosition(hOut,XY); end;    begin   ShowConsoleCursor(False);   GotoXY(30,10);   WriteLn('Press enter to close');   ReadLn; end.

[BrYan]

Сообщение от lmikle

Не надо ничего переводить. Надо пользоваться соотв. функциями Console API:

вот что выдает сразу же
выбывает что

мне нада под 7-ку

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

[Error] Project1.dpr(7): Undeclared identifier: 'HANDLE' [Error] Project1.dpr(8): Undeclared identifier: 'CONSOLE_CURSOR_INFO' [Error] Project1.dpr(10): Undeclared identifier: 'GetStdHandle' [Error] Project1.dpr(10): Undeclared identifier: 'STD_OUTPUT_HANDLE' [Error] Project1.dpr(12): Missing operator or semicolon [Error] Project1.dpr(13): Missing operator or semicolon [Error] Project1.dpr(14): Undeclared identifier: 'SetConsoleCursorInfo' [Error] Project1.dpr(19): Undeclared identifier: 'HANDLE' [Error] Project1.dpr(20): Undeclared identifier: 'COORD' [Error] Project1.dpr(22): Undeclared identifier: 'GetStdHandle' [Error] Project1.dpr(22): Undeclared identifier: 'STD_OUTPUT_HANDLE' [Error] Project1.dpr(23): Missing operator or semicolon [Error] Project1.dpr(24): Missing operator or semicolon [Error] Project1.dpr(25): Undeclared identifier: 'SetConsoleCursorPosition'

[lmikle]

А подумать???

добавь

Код:

1	uses Windows, SysUtils;

НАРОД!!! ДОСТАЛИ УЖЕ ПРОСИТЬ ДЕЛАТЬ ПОЛНОСТЬЮ КАКИЕ-ТО ДУРАЦКИЕ ШКОЛЬНЫЕ ЗАДАНИЯ!!! ДАВАЙТЕ УВАЖАТЬ ДРУГ ДРУГА.
ДЕЛАЕМ САМИ И СПРАШИВАЕМ ТО, ЧТО НЕ ПОЛУЧАЕТСЯ (С ВЫКЛАДЫВАНИЕМ СВОЕГО КОДА).

[BrYan]

подключил, терерь ероров меньше, но всёже есть

Код:

1 2 3

[Error] Project1.dpr(9): Undeclared identifier: 'HANDLE' [Error] Project1.dpr(16): Incompatible types: '_CONSOLE_CURSOR_INFO' and 'Pointer' [Error] Project1.dpr(21): Undeclared identifier: 'HANDLE'

[PhoeniX]

Похоже, что "HANDLE" надо заменить на "THandle" (в двух местах), а вот про второе подумай сам...

P.S. Да, начинаю понимать Imikle... с этим замечательным высказыванием...

[BrYan]

извеняюсь что достаю, но просто я неимел работы с функциями Console API

[PhoeniX]

При чём тут вообще Console API? Стандартнейшие ошибки, в любой книжке любого уровня они рассматриваются, как и способы их решения. Почитай ту же старую добрую "Библию Delphi"... Хорошая такая книжка формата А4 толщиной с телефонный справочник, не помню какого года... Я один раз её вызубрил от корки до корки, и относительно простых вопросов почти не возникает...

[lmikle]

Сообщение от BrYan

извеняюсь что достаю, но просто я неимел работы с функциями Console API

Я тоже до этого момента не работал.
Найти нужную информацию в google - 10 минут, понять как ее переделать для Delphi - 5 минут, собственно переделка и проверка - еще 5 минут.

[BrYan]

ну спс нет что бы помочь, ешо издеваются

[lmikle]

Помочь - пожалуйста.
А вот за тебя все делать как то не очень хочется...

[BrYan]

лан, здам на паскале

[lmikle]

Блин, ну тебе же дали работающий код. Что тебе еще надо?

[BrYan]

ну написал же что проблема там какаято, чесно говоря я не знаю что делать

[Black Raider]

Сказали ж заменить:

Код:

1 2	var     hOut : HANDLE;

на

Код:

1 2	var     hOut : THANDLE;

Какие еще ошибки?