Консоль

← →
Lithium (2011-06-25 19:55) [0]

Здравствуйте!

Подскажите пожалуйста, как в консольном приложении вывести ( выводить ) статус процесса в одной строке?

Например: WriteLn(" Status : "+IntToStr(100 * Y div 1000)+"%");

В гугле ничего не удалось найти...
Заранее благодарен за ваши ответы!

← →
Inovet © (2011-06-25 20:42) [1]

Write?

← →
MBo © (2011-06-25 21:08) [2]

Не рыба, но удочка - найти раздел Console Functions в хелпе Windows SDK или в онлайновом MSDN, и выбрать оттуда пару нужных функций.

Если задач с консолью будет много, можно найти модуль, эмулирующий функции турбопаскального модуля CRT.

← →
RWolf © (2011-06-27 10:00) [3]

> Подскажите пожалуйста, как в консольном приложении вывести
> ( выводить ) статус процесса в одной строке?

элементарно: write(#13"blablabla");

← →
Lithium (2011-06-29 01:46) [4]

> элементарно: write(#13"blablabla");

Спасибо! :)

← →
Германн © (2011-06-29 02:15) [5]

> RWolf © (27.06.11 10:00) [3]
>
>
> > Подскажите пожалуйста, как в консольном приложении вывести
> > ( выводить ) статус процесса в одной строке?
>
> элементарно: write(#13"blablabla");
>

Я бы не смог сообразить и придумать такое простое решение. Как-то уже отвык, что CarriageReturn без LineFeed всё ещё живёт и даже как-то работает!

← →
Anatoly Podgoretsky © (2011-06-29 07:25) [6]

А ты попробуй еще и LF отдельно и удивись.

← →
rouf (2011-06-29 10:53) [7]

А как выводить в конкретной строке?

← →
Юрий Зотов © (2011-06-29 10:59) [8]

Чего-то я не понимаю, наверное, но зачем здесь вообще #13? Ровно то же самое выдает и просто write("blablabla"), без всяких извращений.

Да и вообще непонятно, в чем проблема? Чем плохо изначальное авторское
Write("Status : " + IntToStr(74) + "%");
или
WriteLn(Format("Status : %d%%", [74]));
или самое простое и самое правильное:
Write("Status : ", 74, "%");

← →
Юрий Зотов © (2011-06-29 11:00) [9]

> А как выводить в конкретной строке?
См. [2].

← →
QAZ (2011-06-29 11:09) [10]

> Чего-то я не понимаю, наверное, но зачем здесь вообще #13?
> Ровно то же самое выдает и просто write("blablabla"), без
> всяких извращений.

а если несколько раз подряд вызвать write("blablabla") что будет?

← →
Юрий Зотов © (2011-06-29 11:13) [11]

> rouf (29.06.11 10:53) [7]

Упрощаю задачу. Детали см. в справке.
uses Windows, SysUtils; var H: THandle; Coord: TCoord; S: string; N: Cardinal; begin S := Format("Status : %d%%", [74]); H := GetStdHandle(STD_OUTPUT_HANDLE); Coord.X := 30; Coord.Y := 12; SetConsoleCursorPosition(H, Coord); WriteConsole(H, PChar(S), Length(S), N, nil); readLn; end.

> QAZ (29.06.11 11:09) [10]
> а если несколько раз подряд вызвать write("blablabla") что будет?

То, что и хотелось автору - все напечатается в одной строке.

А если нужно в разных, то опять же - зачем извращаться? Автор сам в своем вопросе указал WriteLn.

Какие проблемы-то? Нет их.

← →
QAZ (2011-06-29 11:29) [13]

write("blablabla");
write("blablabla");
write("blablabla");
=blablablablablablablablabla

write(#13"blablabla");
write(#13"blablabla");
write(#13"blablabla");
=blablabla

> QAZ (29.06.11 11:29) [13]

А, вот оно что.
:o)

Да автор не точно поставил вопрос. Эго видимо интересовал многократный вывод в одной строке с начала, на это намекает слово Статус

Консоль Найти похожие ветки