VPF::Help! ProgressBar! - Форум программистов

chelHide

Дата 17.4.2006, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Help! Челы, я вот только начал пробовать писать на делфаке! Я хотел бы узнать у вас как можно использовать TProgressBar в своих программах, например индикация копирования и тд.! Если возможно, то предоставте пример! smile

Poseidon

Дата 17.4.2006, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код


with ProgressBar1 do Position:= Position + 10;

Название темы должно кратко отражать ее суть!

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Guedda

Дата 18.4.2006, 13:14 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Копирование файла с заполнением ProgressBar:

Код


procedure TMainForm.Button1Click(Sender: TObject);
var
  SrcFile, DestFile: file;
  BytesRead, BytesWritten, TotalRead: Integer;
  Buffer: array[1..500] of byte;
  FSize: Integer;
begin
  AssignFile(SrcFile, 'srcfile.tst');
  AssignFile(DestFile, 'destfile.tst');
  Reset(SrcFile, 1);
  try
    Rewrite(DestFile, 1);
    try
      try
        TotalRead := 0;
        FSize := FileSize(SrcFile);
        repeat
          BlockRead(SrcFile, Buffer, SizeOf(Buffer), BytesRead);
          if BytesRead > 0 then
          begin
            BlockWrite(DestFile, Buffer, BytesRead, BytesWritten);
            if BytesRead <> BytesWritten then
              raise Exception.Create('Ошибка записи файла!')
            else
            begin
              TotalRead := TotalRead + BytesRead;
              ProgressBar1.Position := Trunc(TotalRead / Fsize) * 100;
              ProgressBar1.Update;
            end;
          end
        until BytesRead = 0;
      except
        Erase(DestFile);
        raise;
      end;
    finally
      CloseFile(DestFile);
    end;
  finally
    CloseFile(SrcFile);
  end;
end;

--------------------

Ll 2

Sunvas

Дата 19.4.2006, 07:35 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

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

Репутация: 28
Всего: 89

Скорость выполнения процедуры с фором

Код


for i:=0 to 100 do
begin
{какие-то действия с чем-то}
ProgressBar1.Position :=i;
end;

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

chelHide

Дата 22.4.2006, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Большое вам спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »