Progressbar para varrer um arquivo texto

Question

Como fa�o para colocar uma progressbar num arquivo texto, ou seja, tipo:

While not eof(Arq) do begin ......... Minha ProgressBar para acompanhar toda a varredura do arquivo end;

Joaoshi · Answer

Colega, voc� poderia utilizar um [b:0494bed42b]TStringList[/b:0494bed42b] para saber o total de linhas do Arquivo (TStringList.Count) e fazer o progressbar.

Ex.:

procedure TForm2.Button1Click(Sender: TObject);
var sString : TStringList;
begin
  Try
    sString :=TStringList.create;
    sString.LoadFromFile(�NomeDoArquivo.txt�);
    Memo2.Lines.Add(IntToStr(sString.Count));
  Finally
    sString.Free;
  End;
end;

Espero ter ajudado.