program consoleprog;
{$APPTYPE CONSOLE}
begin
WriteLn('Нажми Enter');
ReadLn
end.
GoToXY - где взять?
Приветствую господа!
У меня вопрос к тем, кто знает как же всё таки сделать этот проклятый gotoxy в Delphi (5.0)??? В турбо паскале такая фигня очень полезная вещь, а вот в консольных приложениях под дельфи нет такой вещи! А она нужна, ещё как! Кто нить подскажет как сделать эту вешь, перемещение курсора, в консольных приложениях в delphi?
У меня вопрос к тем, кто знает как же всё таки сделать этот проклятый gotoxy в Delphi (5.0)??? В турбо паскале такая фигня очень полезная вещь, а вот в консольных приложениях под дельфи нет такой вещи! А она нужна, ещё как! Кто нить подскажет как сделать эту вешь, перемещение курсора, в консольных приложениях в delphi?
И что никто не знает как реализовать данную возможность в делфях????
:( :!!!: :!!!:
:( :!!!: :!!!:
Цитата:
Originally posted by keygena
И что никто не знает как реализовать данную возможность в делфях????
:( :!!!: :!!!:
И что никто не знает как реализовать данную возможность в делфях????
:( :!!!: :!!!:
Посмотри функцию WinAPI SetConsoleCursorPosition, может чем поможет.
Цитата:
Originally posted by Sagittarius
Посмотри функцию WinAPI SetConsoleCursorPosition, может чем поможет.
Посмотри функцию WinAPI SetConsoleCursorPosition, может чем поможет.
А как это реализовать в дельфи? Как API функцию объявить в коде дельфийском?
Простой способ: подключить Windows.pas, скорее всего, там эта функция описана, и ее можно будет сразу использовать.
Сложный способ: взять MSDN, посмотреть описание этой функции на C, а также DLL-библиотеку, в которой она находится, и написать где-ниубдь в начале программы следующее:
Function SetConsoleCursorPosition(параметры):тип_значения; stdcall; external 'библиотека.DLL';
Сложный способ: взять MSDN, посмотреть описание этой функции на C, а также DLL-библиотеку, в которой она находится, и написать где-ниубдь в начале программы следующее:
Function SetConsoleCursorPosition(параметры):тип_значения; stdcall; external 'библиотека.DLL';
НАРОД!
Какой простой, какой сложный способ?
uses Windows, Messages; // стандартный uses для приложений API
begin
Call_API_Func(Params)
end.
ВСЕ!
Зачем смотреть MSDN, когда вместе c Delphi набор хелпов идет(Пуск|Delphi|Help|MSHelp)!
Думайте головой
Какой простой, какой сложный способ?
uses Windows, Messages; // стандартный uses для приложений API
begin
Call_API_Func(Params)
end.
ВСЕ!
Зачем смотреть MSDN, когда вместе c Delphi набор хелпов идет(Пуск|Delphi|Help|MSHelp)!
Думайте головой
Цитата:
Originally posted by Proger_XP
НАРОД!
Какой простой, какой сложный способ?
uses Windows, Messages; // стандартный uses для приложений API
begin
Call_API_Func(Params)
end.
ВСЕ!
Зачем смотреть MSDN, когда вместе c Delphi набор хелпов идет(Пуск|Delphi|Help|MSHelp)!
Думайте головой
НАРОД!
Какой простой, какой сложный способ?
uses Windows, Messages; // стандартный uses для приложений API
begin
Call_API_Func(Params)
end.
ВСЕ!
Зачем смотреть MSDN, когда вместе c Delphi набор хелпов идет(Пуск|Delphi|Help|MSHelp)!
Думайте головой
А нельзя ли привести полный текст вызова этой API??? и соответственно небольшой пример... потому как я делал... пытался по крайней мере сделать как рекомендуют... да компилятор не ругается всё нормально компилируется... но ничего как надо не работает...
Не скромный вопрос - ты знаешь Delphi или только Pascal?
Вот полный текст консольного приложения:
Вот полный текст консольного приложения:
Код:
Цитата:
Originally posted by Proger_XP
Не скромный вопрос - ты знаешь Delphi или только Pascal?
Вот полный текст консольного приложения:
Не скромный вопрос - ты знаешь Delphi или только Pascal?
Вот полный текст консольного приложения:
Код:
program consoleprog;
{$APPTYPE CONSOLE}
begin
WriteLn('Нажми Enter');
ReadLn
end.
{$APPTYPE CONSOLE}
begin
WriteLn('Нажми Enter');
ReadLn
end.
Конечно знаю... иначе бы меня здесь не было... не скромный вот такой мой ответ... А консольного приложения... код, код конечно вижу... но ничего такого... что надо в нем я для себя не вижу...
Спрашиваю про API потому как никогда не встречался с этим в решении задач на этом языке программирования... Можно было бы уже и немного объяснить... показать на примере... X)-
Посмотри в Win32SDK.hlp(он входит в состав Delphi) тему про консольные приложения
Цитата:
Originally posted by keygena
А нельзя ли привести полный текст вызова этой API??? и соответственно небольшой пример... потому как я делал... пытался по крайней мере сделать как рекомендуют... да компилятор не ругается всё нормально компилируется... но ничего как надо не работает...
А нельзя ли привести полный текст вызова этой API??? и соответственно небольшой пример... потому как я делал... пытался по крайней мере сделать как рекомендуют... да компилятор не ругается всё нормально компилируется... но ничего как надо не работает...
Ну описание я тебе приводить не буду, в help'е почитаешь, а вот пример...
[COLOR=blue]program ConsoleProject;
{$APPTYPE CONSOLE}
uses Windows;
var
pos: _COORD;
begin
pos.X := 5;
pos.Y := 0;
write('Delphi 4ever');
writeln;
SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE),pos);
readln;
end.[/COLOR]