Преобразования Pascal в Delphi

[Stilet]

Это работать не будет.
Сам бы протестировал его.

[non1ka]

у меня нет исходника делфи!! и получу его только в субботу.. Просто траффик ограниченный! нет возможности проверить...

[non1ka]

по какой причине не будет???

[Stilet]

По причине отсутствия в Делфи некоторых процедур класического паскаля типа GotoXY

[non1ka]

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

По причине отсутствия в Делфи некоторых процедур класического паскаля типа GotoXY

Эта процедура описана дополнительно!!!

procedure GotoXY(X,Y:integer);
var
Coord: TCoord;
begin
Coord.x:=X;
Coord.y:=Y;
SetConsoleCursorPosition(Con,Coord) ;
end;
... Так написано на сайте. Для того что бы заменить это процедуру из паскаля необходимо ее описать дополнительно!! вот так как я выше написал!!

[non1ka]

Цитата с сайта о консольных программах на Delphi....

"Так же, лучше сразу создать свои функции для таких простых операций как позиционирование курсора, очистки экрана и отображение/скрытие курсора (так как в консольных API они немножко громозки и запутаны). Вот как они выглядят:

//-----------------------------------------
// Установка курсора в координаты X, Y
//-----------------------------------------
procedure GotoXY(X, Y : Word);
begin
Coord.X := X; Coord.Y := Y;
SetConsoleCursorPosition(ConHandle, Coord);
end;
//-----------------------------------------
// Очистка экрана - заполнение его пробелами
//-----------------------------------------
procedure Cls;
begin
Coord.X := 0; Coord.Y := 0;
FillConsoleOutputCharacter(ConHandl e, ' ', MaxX*MaxY, Coord, NOAW);
GotoXY(0, 0);
end;
//--------------------------------------
// Показываем/Скрываем курсор
//--------------------------------------
procedure ShowCursor(Show : Bool);
begin
CCI.bVisible := Show;
SetConsoleCursorInfo(ConHandle, CCI);
end;
"

[Stilet]

Я не понимаю ты написал программу вот просто так ты что ее не тестировал?
Она работает, но почему ты это спрашиваешь?

[non1ka]

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

Я не понимаю ты написал программу вот просто так ты что ее не тестировал?
Она работает, но почему ты это спрашиваешь?

У меня на машине есть Turbo Pascale. На нем все работает все впорядке.
Посидев на форуме почитав комментарии, полазил по интернету, с помощью знакомых исправил код для delphi таким образом.

Из за невозможности на данный момент проверить программу выложил ее на сайте что бы узнать какие недороботки есть... компилируется или нет..

[Stilet]

Докладываю - компилируется. Чего-то выдает, чего не знаю ибо выдает на зарубежном языке

[non1ka]

На зарубежном??? Типа какую то ошибку???
Или просит ввести значение MaxX и MaxY ?
РРРР... блин ладно не буду напрягать нужно искать дистрибутив самому ...