Progressbar

Question

Como fazer uma progressbar andar dentro desse c�digo. O c�digo funciona, at� pq � bem simples, apenas gravar um txt vindo de uma stringlist.[quote:3ab7ca461e]procedure TfrmLe_ECF.cxButton1Click(Sender...

Eniorm · Answer

vamos facilitar mais a coisa...j� que vc usa o StringListfaz assim StringList.SaveToFile(�nomedoarquivo.txt�);...

Paulo · Answer

N�o entendi o porque do saveToFile, j� que est� funcionando o meu c�digo. S� quero colocar uma ProgressBar para dar um visual melhor do que o cursor como eu estou fazendo....

Eniorm · Answer

quero dizer que � mais simples vc usar o SaveToFile do que implementar toda essa sua rotina para salvar o conte�do do stringlist num arquivo de texto

vc usa SaveToFile para salvar, e LoadFromFile para abrir um arquivo txt

Paulo · Answer

Mas como colocaria um Progressbar a� usando um SaveToFile? O Meu caso � somente o Progressbar e ele tem que da em algum lugar,eheheheh. Fiz assim, mas n�o anda. Ele fica em 0 e depois vai a 100�. Veja o c�digo:

procedure TfrmLe_ECF.cxButton1Click(Sender: TObject); var i: Integer; begin Screen.Cursor := crHourGlass; CapturaStatus; AssignFile(arq,ExtractFilePath(Application.ExeName)+�\Teste.TXT�); Rewrite(arq); pb.Properties.Max := guardastatus.Count; pb.Position := 0; for I := 0 to GuardaStatus.Count - 1 do begin pb.Position := pb.Position; WriteLn(Arq, GuardaStatus.Text[i]); end; Write(arq,guardastatus.Text); CloseFile(arq); Screen.Cursor := crDefault; end;

Paulo · Answer

O c�digo correto:[quote:034ca09820]procedure TfrmLe_ECF.cxButton1Click(Sender: TObject);var i: Integer;begin  Screen.Cursor := crHourGlass;  CapturaStatus;  AssignFile(arq,ExtractFilePath(Application.ExeName)+�Teste.TXT�);  Rewrite(arq);  pb.Properties.Max := guardastatus.Count;  pb.Position := 0;for I := 0 to GuardaStatus.Count - 1 dobegin  pb.Position := pb.Position+i;  WriteLn(Arq, GuardaStatus.Text);end;  Write(arq,guardastatus.Text);  CloseFile(arq);  Screen.Cursor := crDefault;end;[/quote:034ca09820]...

Eniorm · Answer

a menos que vc tenha um arquivo texto gigante, a opera��o ser� t�o r�pida que n�o da tempo de vc notar o incremento do progressbar...