Нудно сделать в текстовом режиме строку загрузки, выводя '|', пока играет музыка...
Пожалуйста помогите....
Извеняюсь....
Задача состоит в том, что я воспроизвожу свой музыкалиный файл, при этом мне извесна длина файла.
Мне нужно вывести "строку загрузки"(или как-то так) пока играет музыка.
Если длина файла больше 80 тогда вывод должен задерживаться на определенное время, усли меньше 80 тогда выводим определенное кол-во символов"|"...
В общем я тут написал....
IF size > 80 then Size2 := size / 80
else Size2 := 80 / size;
for i := 1 to size do
Begin
IF size < 80 then
for j := 1 to size2 do write('|')
else
begin
for k := 1 to size2 - 1 do
inc(n);
write('|');
end;
End;
извеняюсь за текст тока учусь...
Делается это так:
1. Определяешь количество элементов |, которое необходимо вывести (будет на экране при 100%) - размер строки.
2. Опеделяешь количество шагов цикла в одном делении (Количество шагов цикла разделить на размер полосы)
3. В каждом шаге цикла смотришь, если I делится на кол-во шагов (см. 2), то выводишь знак (|)
Я об этом думал, но вот в чем проблема:
1. Если длина строка меньше 80 тогда за один шаг рисуем нескалько |
2. Если наоборот мне нужно сделать задержку, равную по времени Write()
Вообще я написал выше, что у меня получилось, а красным выделил действие, которое в идеале по времени должно заменить процедуру Write('|')
Подскажите как сделать, но без объявления новых переменных...