Проблема с выводом!!!

← →
Начинающий делфер (2002-10-30 07:41) [0]

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

У меня тут маленькая трабла нужно сделать две вещи:

1) есть строка, в которую заносится запись о свободном месте на диске (в байтах). Например 1234567890. Вопрос: как из этой строки сделать 1,234,567,890 (как это сделано в FAR"e)

2) есть функция копирования файлов и каталогов. Вопрос: как реализовать с помощью индикатора вывод - сколько процентов копирования завершено (а то обламывает, при копировании не видно сколько осталось)

Заранее благодарен!!!

← →
Opuhshii (2002-10-30 08:23) [1]

1)CurrToStrF
2)CopyFileEx

← →
Separator (2002-10-30 08:26) [2]

1) Format("%0:.0n", [StrToFloat(Edit1.Text)])

← →
Akella (2002-10-30 08:33) [3]

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)
сначала нужно узнать размер всех файлов для копирования, а потом отслеживать процесс копирования.
Мой знакомый зделал так :
В начале зделал один прогон по всем файлам которые надо скопировать и посчитал сумму размеров. А потом при копировании каждого файла определял его размер и увеличивал сумарный размер скопированных файлов. В итоге есть два значения - что скопировал, и что надо скопировать. А дальше юзаешь стандартные компоненты. единственный трабл - показывает изменения когда файл скопировался. если попадется большой файл - долго прийдется ждать результата. Но чтоб с этим бороться - нужно знать как ты копируешь файлы.

← →
iNew (2002-10-30 08:48) [4]

Для копирования ф-ии BlockRead и BlockWright

Проблема с выводом!!! Найти похожие ветки