Progressbar para varrer um arquivo texto

24/06/2008

2

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;



Responder

Posts

24/06/2008

Joaoshi

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.


Responder