| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как мне в консольном приложении выводить текст? [D6, WinXP]

Aleksandr ©   (2002-09-27 15:02:00) 

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

---

Evolution Q   (2002-09-27 19:31:00) [1]

1). Файл->Создать->Другой->Консольное приложение
2). В заготовке удалите строку {$apptype console}
(ОС должна быть не ранее windows 98)

program Project1;
uses
SysUtils,
Windows;
var
f : TextFile;
begin
AssignFile(f, "MessageFile.vbs"); // создаем файл
ReWrite(f);
Writeln(f, "wscript.echo"PUT YOUR TEXT HERE""); // пишем код
Close(f);
winexec("c:\...\MessageFile.vbs", SW_SHOW); // запускаем
end.

---

Aleksandr   (2002-09-27 15:53:00) [2]

2 MBo:
Спасибо, прохлопал глазами ):

---

MBo   (2002-09-27 15:40:00) [3]

это есть в хелпе по SetConsoleCursorPosition

---

Aleksandr   (2002-09-27 15:37:00) [4]

2 MBo:
Спасибо, я посмотрел указанные Вами функции в Helpe, но возник вытекающий вопрос: а как узнать текущие координаты курсора?

---

MBo   (2002-09-27 15:19:00) [5]

GetStdHandle(STD_OUTPUT_HANDLE)
SetConsoleCursorPosition

---

qube   (2002-09-27 15:05:00) [6]

попробуй
write(s,#13);

---

Наверх