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

[Developer Marketing Rapido]

Tudo resolvido só faltava o comando para mudar de linha no arquivo de texto

Readln(Txt, Entrada);

Obs.: Desculpe Cantu, pelo Off

Obrigado pela colaboração de todos.


Pablo

Em 7 de julho de 2010 18:17, Developer Marketing Rapido <
developer em marketingrapido.com.br> escreveu:

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



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