Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с конслолью на ТР 
:(
    Опции темы
KvSanya
Дата 12.7.2008, 23:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 11.9.2006

Репутация: нет
Всего: нет
Я пишу программу на ТР. Как можно вывести строку на экран, а потом ее затереть и на ее месте вывести другую. Использовать модуль Graph нельзя. Ну например этп строка будет показывать в процентах чтото.
PM MAIL   Вверх
mmvds
Дата 13.7.2008, 00:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 22.12.2007

Репутация: нет
Всего: 6
Код

uses crt;{модуль для работы с экраном}
var i:integer;
begin
for i:=1 to 100 do
  begin
  clrscr;{очистить экран (модуль crt)}
  writeln(i,'%');
  delay(10000);{по идее  - задержка в миллисекундах, 1000-1 сек, но у меня на компе при 10000 проценты доходили до 100 почти мгновенно}
  end;
end.
PM MAIL ICQ   Вверх
KvSanya
Дата 13.7.2008, 08:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 11.9.2006

Репутация: нет
Всего: нет
Хм...я наверное неправильно объяснил проблему. Мне нужно стереть только последнюю строку консоли. 

Ну приведу примерный кусочек кода

Код

var x,i:integer;
begin
randomize;
random(100);
random(100);
random(100);
random(100);
for i:=1 to 100 do
  begin
    ???!
     writeln(i,'%');
  end;
end.


Это сообщение отредактировал(а) KvSanya - 13.7.2008, 08:35
PM MAIL   Вверх
ILyAHA
Дата 13.7.2008, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Гламурный хакер
*


Профиль
Группа: Участник
Сообщений: 193
Регистрация: 30.3.2007
Где: Ярославская обл. г.Рыбинск

Репутация: нет
Всего: 3
Используй GotoXY и DelLine
--------------------
<sсriрt>alert('xss')</sсriрt>
PM MAIL   Вверх
Dobermann
Дата 13.7.2008, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0
Цитата(KvSanya @  13.7.2008,  08:30 Найти цитируемый пост)
Хм...я наверное неправильно объяснил проблему. Мне нужно стереть только последнюю строку консоли. 

Да и сейчас не особо понятно...
PM   Вверх
VanHelsing
Дата 13.7.2008, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ХОЧУ ВСЕ ЗНАТЬ!!!
**
Награды: 1



Профиль
Группа: Участник
Сообщений: 288
Регистрация: 3.1.2008
Где: Екатеринбург

Репутация: нет
Всего: 6
Переместить курсор на последнюю строку (GotoXY ) и вывести пустую строку.


--------------------
Мой блог.
Specialist
PM MAIL   Вверх
KvSanya
Дата 13.7.2008, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 11.9.2006

Репутация: нет
Всего: нет
Спасибо, понял
PM MAIL   Вверх
Dobermann
Дата 14.7.2008, 01:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0
хм...Я думал, ты имеешь ввиду, что надо в запущенной проге затереть строку.....как в блокноте)))
Просто подробней разъяснять надо!! smile  smile  smile 
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

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

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.2302 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.