Чтение файла и ProgressBar

[royun]

Добрый день.

Файл нормально читается, ProgressBar тоже увеличивается нормально. Но когда ProgressBar полностью заполняется все равно идет считывание файла.
Сама программа:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    ProgressBar1: TProgressBar;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
f: File;
i: integer;
Head: array [1..1] of Char;
begin
     if openDialog1.Execute then
     StatusBar1.SimpleText:= ' Идет обработка файла';
     AssignFile(f, Opendialog1.FileName);
     Reset(f, 1);
     ProgressBar1.position:= 0;
     ProgressBar1.max:= round(FileSize(f)*0.019);
     i:=1;
     while not eof(f) do
          begin
               BlockRead(f, Head, 1);
               inc(i);
               ProgressBar1.position:= i;
          end;
    CloseFile(f);
    StatusBar1.SimpleText:= ' Обработка файла закончена';
end;
end.

[phomm]

Немудрено.
У Вас "емкость" прогресбара выставлена в 0,019-долю от размера файла, и когда позиция чтения файла доходит до этого значение в цикле, прогресбар доходит до своего максимума, расти дальше ему нельзя, а чтение ещё долго будет идти, так как условие выхода из цикла(конец файла) не срабатывает при полном заполнение прогресбара, а только при окончании чтения файла.
Ещё не знаю начет типа File , давно паскалевскими методами работы с файлами не пользовался, но мне кажется, лучше подойдёт File of char или ещё что-то.
Ещё ошибка - если нажать в опендиалоге отмену, то программа всё равно попытается открыть файл ! потому что Вы не проверяете этого - надо бы написать :

if openDialog1.Execute then
     StatusBar1.SimpleText:= ' Идет обработка файла';
  else exit; //выйдем из процедуры, если нажата отмена

Ну и конечно же, советую застраховаться от ошибки выбора файла так

if not fileexistst(openDialog1.Execute) then
  exit;

[royun]

Тема закрыта