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

[Developer Marketing Rapido]

José Eduardo,
nem mesmo com o begin funciono.

Oque eu me deparei agora é o seguinte como vou dar next em um documento
texto ou seja como faço para mudar para a proxima linha pois este é o
problema, ele encontra um erro e nao consegue mudar para a proxima linha do
arquivo.

POis estou importando de um txt para o bd

Em 7 de julho de 2010 17:42, Eduardo Pombo <eduardo em embras.net> escreveu:

> 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
>
> ______________________________________________
> 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
>



-- 
Pablo Farias
Analista de Sistemas
developer em marketingrapido.com.br