[BrYan]

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

Код:

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:

Код:

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-ку

Код:

[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]

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

добавь

Код:

uses Windows, SysUtils;

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

[BrYan]

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

Код:

[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]

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

Код:

var
	hOut : HANDLE;

на

Код:

var
	hOut : THANDLE;

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