| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с выводом!!! [D5, WinXP]
Начинающий делфер © (2002-10-30 07:41:00)Здраствуйте мастера!!!
У меня тут маленькая трабла нужно сделать две вещи:
1) есть строка, в которую заносится запись о свободном месте на диске (в байтах). Например 1234567890. Вопрос: как из этой строки сделать 1,234,567,890 (как это сделано в FAR"e)
2) есть функция копирования файлов и каталогов. Вопрос: как реализовать с помощью индикатора вывод - сколько процентов копирования завершено (а то обламывает, при копировании не видно сколько осталось)
Заранее благодарен!!!
iNew (2002-10-30 08:48:00) [1]Для копирования ф-ии BlockRead и BlockWright
Akella (2002-10-30 08:33:00) [2]1)
rez:="";
while length(s)>3 do
begin
rez:=rez+","+copy(s,length(s)-2,3);
s:=copy(s,1,length(s)-3);
end;
rez:=s+rez;
2)
сначала нужно узнать размер всех файлов для копирования, а потом отслеживать процесс копирования.
Мой знакомый зделал так :
В начале зделал один прогон по всем файлам которые надо скопировать и посчитал сумму размеров. А потом при копировании каждого файла определял его размер и увеличивал сумарный размер скопированных файлов. В итоге есть два значения - что скопировал, и что надо скопировать. А дальше юзаешь стандартные компоненты. единственный трабл - показывает изменения когда файл скопировался. если попадется большой файл - долго прийдется ждать результата. Но чтоб с этим бороться - нужно знать как ты копируешь файлы.
Separator (2002-10-30 08:26:00) [3]1) Format("%0:.0n", [StrToFloat(Edit1.Text)])
Opuhshii (2002-10-30 08:23:00) [4]1)CurrToStrF
2)CopyFileEx
| |
