Ajuda para utilizar memo com ProgressBar
Olá pessoal,
Eu estou carregando uma lista de e-mails ( txt ) para um memo.
Como a lista é grande o processo demora um pouco.
Quero utilizar um ProgressBar para me mostrar o status enquanto a lista esta sendo carregada para o memo.
Já tentei algumas formas, mas como sou novo no delphi ainda não deu certo.
Alguém sabe como fazer isso.
Estou usando Delphi 7.
Eu estou carregando uma lista de e-mails ( txt ) para um memo.
Como a lista é grande o processo demora um pouco.
Quero utilizar um ProgressBar para me mostrar o status enquanto a lista esta sendo carregada para o memo.
Já tentei algumas formas, mas como sou novo no delphi ainda não deu certo.
Alguém sabe como fazer isso.
Estou usando Delphi 7.
Anderson Camargo
Curtidas 0
Respostas
Ffc
23/11/2013
Você deve fazer um while() para contar quantas linhas tem seu TXT e vai alimentando seu contador := contador+1; e depois joga este
valor do contador no seu ProgressBar1.Max := Contador; ai faz outro while() para ir lendo e jogando no memo e ai novamente o
contador := contador+1; e ProgressBar1.Position := Contador;
Espero que ajude você.
valor do contador no seu ProgressBar1.Max := Contador; ai faz outro while() para ir lendo e jogando no memo e ai novamente o
contador := contador+1; e ProgressBar1.Position := Contador;
Espero que ajude você.
GOSTEI 0
Ricardo Araujo
23/11/2013
conseguiu fazer o código ?
GOSTEI 0
Anderson Camargo
23/11/2013
conseguiu fazer o código ?
Olá, já entendi a logica, porem por ser novo em delphi ainda tenho dificuldade por não ter muito conhecimento dos códigos existentes.
GOSTEI 0
Itamar Souza
23/11/2013
conseguiu fazer o código ?
Olá, já entendi a logica, porem por ser novo em delphi ainda tenho dificuldade por não ter muito conhecimento dos códigos existentes.
Boa tarde
Veja se você consegue entender como se faz isso:
procedure TfrmPrincipal.Button1Click(Sender: TObject);
var
slItens, slDados: TStringList;
QtdLinhasTotal, y :Integer;
begin
slItens := TStringList.Create;
slDados := TStringList.Create;
slItens.LoadFromFile('C:\Caminho do arquivo.txt');
//recebe a quantidade de linhas
QtdLinhasTotal := slItens.Count;
//recebe a quantidade total de linhas lidas
ProgressBar1.Max := QtdLinhasTotal;
for y := 0 to Pred( QtdLinhasTotal ) do
begin
ProgressBar1.Position := y;
end;
end;
Espero ter ajudado
GOSTEI 0