[firebase-br] off topic - IF Que não Funciona

Eduardo Pombo eduardo em embras.net
Qua Jul 7 17:42:08 -03 2010


Aparentemente o ELSE este sem um begin no trecho

   else

                             showmessage(varEmail);
                             varErro := varErro+1;
end;


e acredito q como isso eh valido mas ele executa so uma linha so
esteja ficando em laco infinito
sem contar q nao percebi um NEXT ou algo parecido para mudar de registro no laco



espero ter ajudado




2010/7/7 Developer Marketing Rapido <developer em marketingrapido.com.br>:
> Pessoal,
> criei a seguinte rotina, para importar um arquivo texto,
>
> procedure TfrmImportaDestinatarios.BitBtn1Click(Sender: TObject);
> var
>      Txt : TextFile;
>      Entrada : String;
>      Arquivo : TStringList;
>      registro :  Integer;
>      varEmail : string;
>      varErro : Integer;
> begin
>      If OpenArquivo.Execute then
>      begin
>            dm.qEmails.Active:=true;
>            AssignFile(Txt,(OpenArquivo.FileName));
>            Reset(Txt);
>            Arquivo := TStringList.Create;
>            Arquivo.LoadFromFile(OpenArquivo.FileName);
>            ProgressBar1.Max:= Arquivo.Count;
>            Registro :=0;
>            varErro  :=0;
>
>
>     while not Eoln(Txt) do
>           begin
>            varEmail :=trim(Copy(Entrada,0,999));
>
>              if ValidaEMail(varEmail) then
>                  begin
>                        Readln(Txt, Entrada);
>                        dm.qEmails.Append;
>                        DM.qEmails.FieldByName('email').Value:= varEmail;
>                        DM.qEmails.FieldByName('status').Value:= 1;
>                        dm.qEmails.FieldByName('nome').value:='Importado por
> Arquivo Txt';
>                        dm.qEmails.FieldByName('grupo').Value:=1;
>                        dm.qEmails.Post;
>                        Registro := Registro +1;
>                        ProgressBar1.Position:= Registro;
>                        end
>                    else
>
>                              showmessage(varEmail);
>                              varErro := varErro+1;
>                 end ;
>           end;
>
>              ShowMessage(IntToStr(Arquivo.Count));
>              dm.qEmails.CommitAction;
>              CloseFile(Txt);
>              DM.qEmails.Close;
>              label1.Caption:=IntToStr(varErro);
>            end;
>
>
> end.
>
>
>
>
> Porem quando ele var no varErro logo abaixo do showmessage, ele fica ali
> somando e nao sai para continuar a importação, sera que alguem pode dar uma
> luz?
>
>
> Obrigado.
> --
> Pablo Farias
> Analista de Sistemas
> developer em marketingrapido.com.br
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use: http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>



-- 

Atenciosamente

José Eduardo Pombo de Barros
Gerente de Manutenção de Sistemas




Mais detalhes sobre a lista de discussão lista