Pausa em TMemo

Question

Pausa. Duvida!Ol� teria como me ajudar.. tipo em um memo tem uma lista de nomes de exemplo teria 1000 e quando chegar na linha 20 ele pausaria 1 minuto e depois continuaria nas linhas seguintes depois...

Edilcimar · Answer

supondo, uma vez que vc n�o especificou, que vc est� carregando o memo de algum lugar, vc pode fazer um loop ou um for e a cada 20, 40, 100, etc, linhas carregadas colocar um timer para funcionar, n�o h� mist�rio algum

Chackal · Answer

amigo no caso a lista com nomes ela ja estaria l� no Tmemo.. no caso seria mesmo para pausar em 20 em 20 e continuar ate completar todas as linhas que tem no Tmemo... teria como postar um exemplo de sua explica��o? te agrade�o muito pela ajuda... grato

Onjahyr · Answer

Voc� tem que fazer perguntas mais objetivas, se os dados j� est�o no TMemo, o que tem que pausar ent�o? N�o entendi! Voc� quer dizer rolar o texto para baixo, � isso?...

Chackal · Answer

Os dados j� est�o no Tmemo.. de exemplo teria 1000 nomes ele ira pausar de 20 em 20 nomes ( lines do Tmemo ) nisto no intervalo de 1 minuto.. sempre que chegar na linha 20 assim em diante 20..40..60.. etc ele pausa 1 minuto e continua a substitui��o.. Oque quero e da a pausa de 1 minuto e continuar.. seria na substitui��o dos nomes.. nisto com intervalo de 20 em 20 nomes ( linhas )... o texto pode rolar sim n�o tem problema seria mais o intervalo o importante sendo que ele pausa e continua de 20 em 20 linhas... Obrigado pela ajuda pessoal ;D

Onjahyr · Answer

_________________________________________________

Acho que entendi o que vc t� querendo fazer, s� que (se for o que estou pensando), estes dados que vc disse j� estar no TMemo, deveria estar em um Array ou numa TStringList, e a� voc� copia da Stringlist (a cada um minuto usando um TTimer) 20 nomes para dentro do TMemo, passando este minuto, limpa o TMemo e substitui come�ando do 21 para o 41, e assim consecutivamente. Voc� pode abrir um arquivo texto para essa TStringList ou Array se desejar tamb�m. � isso?
________________________________________________

Se n�o for isso desisto, deixo que outra pessoa interprete o que vc t� querendo informar, n�o t� conseguindo interpretar n�o...

Desculpe!

Chackal · Answer

Ol� amigo sim e assim mesmo! teria como me mostar um exemplo? te agrade�o pela ajuda...

Chackal · Answer

No caso de abrir um arquivo TXT com os nomes seria bem melhor dele jogar para o Tmemo e tendo a substitui��o como voc� disse.. assim jogando para ele e substituindo de 20 em 20 com o intervalo de um minuto..

Alberteije · Answer

Caro,Realize  os procedimentos desejados em cada linha e fa�a o seguinte teste:[code:1:11e424902e]if memo1.Lines.Count mod 20 = 0 then   sleep(10000);[/code:1:11e424902e]Dessa forma, de 20 em 20 linhas, a exce��o da primeira vez, haver� uma pausa de 1 minuto no sistema.Baixe v�deos gratuitos aqui://www.alberteije.com/cursodelphini.phpAbra�osAlbert Eije...

Chackal · Answer

Amigo teria me explicar tentei usar o seu codigo no enviador para ele pausar a cada 20 emails enviados e retornar depois de 1 min. e continuar no 40 assim e diante, de 20 em 20 na pausa de 1 min,so q no caso ele nao pausou e enviou todos os emails de uma vez,agrade�o a toda comunidade pela ajuda.
Aguardo retorno.

begin
IdMessage.Body.Clear;
IdMessage.From.Name := txtempresa.Text;
IdMessage.From.Address := txtAddress.Text;
IdMessage.BccList.EMailAddresses := Memo1.lines.text;
IdMessage.Subject := txtassunto.Text;
IdMessage.Body := RichEdit2.Lines;
IdSMTP.Host := txtHost.Text;
IdSMTP.AuthenticationType := atLogin ;
IdSMTP.Username := txtUser.Text+ComboBox1.Text;
IdSMTP.Password := txtPassword.Text;
IdSMTP.Port := 25;
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
if memo1.Lines.Count mod 20 = 0 then
sleep(10000);
except
IdSMTP.Disconnect;
end;
IdSMTP.Disconnect;
begin
with Memo1 do
Linha := Perform(EM_LINEFROMCHAR,SelStart, 1);
StatusBar1.Panels[1].Text := IntToStr(Linha);
�+IntToStr(Memo1.CaretPos.Y);
end;
end;
end;

Alberteije · Answer

OK.Voc� est� enviando os e-mails que est�o inseridos num Memo. A cada 20 e-mails voc� deseja pausar um minuto.Crie ent�o uma variavel para contar as linhas. A cada envio voc� incrementa essa variavel. Sempre que essa variavel for um divisor de 20 o programa pausar� um minuto:[code:1:5755e5eee5]procedure ...var   contador:integer;begin   contador := 0;   while contador <= memo1.lines.count do begin      fa�a todos os procedimentos para o envio do e-mail      inc(contador);//o contador � incrementado aqui      if contador mod 20 = 0 then         sleep(10000);   end;end;[/code:1:5755e5eee5]Tenta implementar a�, se n�o conseguir volte a postar.Abra�osAlbert Eijebaixe v�deo aulas gratuitas aqui: //www.alberteije.com...

Chackal · Answer

Amigo teria como analizar este code pois n�o deu intervalo de tempo para enviar de 20 em 20.... Obrigada

var
contador:integer;
begin
contador := 0;
while contador <= memo1.lines.count do begin
IdMessage.From.Name := txtempresa.Text;
IdMessage.From.Address := txtAddress.Text;
IdMessage.BccList.EMailAddresses := Memo1.lines.text;
IdMessage.Subject := txtassunto.Text;
IdMessage.Body := RichEdit2.Lines;
IdSMTP.Host := txtHost.Text;
IdSMTP.AuthenticationType := atLogin ;
IdSMTP.Username := txtUser.Text+ComboBox1.Text;
IdSMTP.Password := txtPassword.Text;
IdSMTP.Port := 25;
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
inc(contador);//o contador � incrementado aqui
if contador mod 20 = 0 then
sleep(10000);
except
IdSMTP.Disconnect;
end;
IdSMTP.Disconnect;
end;
end;
end;
end;

Rodc · Answer

[quote:25f1079aa6=�chackal�]Amigo teria como analizar este code pois n�o deu intervalo de tempo para enviar de 20 em 20.... Obrigada[/quote:25f1079aa6]Sua l�gica est� correta, ele vai parar a cada 20 linhas.S� � preciso fazer alguns ajustes:- Para pegar uma linha do Memo (apenas um email) utilize Memo1.lines.Strings[contador].- Sleep() recebe um par�metro em milisegundos, logo o seu c�digo est� pausando apenas 10 segundos. Passe 60000 para pausar 1 minuto (60 segundos)....

Rodc · Answer

Ah, outra coisa, quando for postar um c�digo, use a Tag �Code� (ver bot�es no editor de respostas) para n�o perder a formata��o do c�digo fonte....

F�rum Pausa em TMemo #353259