Problemas com o comando IF

Delphi

09/04/2004

Amigos
qual a posicao correta para acrecentar o if
sendo que conforme esta demonstrado abaixo nao esta correto


var
Txt:TextFile;
[color=red:f753d161e7]optsimples:string;[/color:f753d161e7]
i:integer;
begin
datamodule2.qryempresas.First;
i :=0;
gauge1.MinValue :=0;
While not datamodule2.qryempresas.Eof do
begin
datamodule2.qryempresas.next;
i := i+1;
gauge1.MaxValue := i;
end;
begin
AssignFile(Txt,´c:\conversoes\exporta\empresas.txt´);
ReWrite(Txt);
datamodule2.qryempresas.First;
While not datamodule2.qryempresas.Eof do
Begin
[color=red:f753d161e7]if datamodule2.qryempresasSIM.Value :=´S´
then optsimples:=´2´ else optsimples:=´1´;[/color:f753d161e7] gauge1.AddProgress(1);
WriteLn(Txt,datamodule2.qryempresase03.value+´;´
+datamodule2.qryempresasE04.Value+´;´
+datamodule2.qryempresasE08.Value+´;´
+datamodule2.qryempresasE06.Value+´;´
+datamodule2.qryempresasE12.Value+´;´
+datamodule2.qryempresasE11.Value+´;´
+´´+´;´
+´´+´;´
+datamodule2.qryempresasE05.Value+´;´
+´´+´;´
+datamodule2.qryempresasE01.Value);

datamodule2.qryempresas.next;
end;

application.MessageBox(´Exportação Realizada com sucesso´,´conclused´,MB_OK+MB_ICONINFORMATION);
edit2.Text := intToStr(i);
CloseFile(txt);
end;
end;


end.


Eme_matos

Eme_matos

Curtidas 0

Respostas

Christian_adriano

Christian_adriano

09/04/2004

Olha Eme_matos,

no seu IF vc não deve colocar ´:=´ q seguinifica ´Recebe´ vc tem q colocar ´=´ (Igual), <> (diferente), >= (Maior e Igual), ....

o seu código com o IF fica assim :

if datamodule2.qryempresasSIM.Value = ´S´ then
optsimples := ´2´
else
optsimples := ´1´;


GOSTEI 0
Logado

Logado

09/04/2004

Po naum queria ser indelicado mas o seu código precisa ser identado...


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

09/04/2004

concordo com o [b:8b7b802358]christian_adriano[/b:8b7b802358] no que se refere ao [b:8b7b802358]:=[/b:8b7b802358] no [b:8b7b802358]if[/b:8b7b802358]. além disso, não vi no código onde deve ser utilizada a variável [color=red:8b7b802358][b:8b7b802358]optsimples[/b:8b7b802358][/color:8b7b802358].

var
    Txt:TextFile;
[b:8b7b802358]    optsimples: char;[/b:8b7b802358]
    i:integer;
begin
    i := 0;
    gauge1.MinValue := 0;
    gauge1.Progress := 0;

    datamodule2.qryempresas.First;
    while not datamodule2.qryempresas.Eof do
    begin
        datamodule2.qryempresas.next;
        inc(i);
    end;
    gauge1.MaxValue := i;

    AssignFile(Txt,´c:\conversoes\exporta\empresas.txt´);
    ReWrite(Txt);

    datamodule2.qryempresas.First;
    while not datamodule2.qryempresas.Eof do
    begin
[b:8b7b802358][color=red:8b7b802358]        if datamodule2.qryempresasSIM.AsString = ´S´
        then optsimples := ´2´
        else optsimples := ´1´;[/color:8b7b802358][/b:8b7b802358] // onde é usado?

        WriteLn(Txt,datamodule2.qryempresase03.asstring+´;´
                  +datamodule2.qryempresasE04.asstring+´;´
                  +datamodule2.qryempresasE08.asstring+´;´
                  +datamodule2.qryempresasE06.asstring+´;´
                  +datamodule2.qryempresasE12.asstring+´;´
                  +datamodule2.qryempresasE11.asstring+´;´
                  +´;´
                  +´;´
                  +datamodule2.qryempresasE05.Value+´;´
                  +´;´
                  +datamodule2.qryempresasE01.Value);

        gauge1.AddProgress(1);
        datamodule2.qryempresas.next;
    end;

    application.MessageBox(´Exportação Realizada com sucesso´,´conclused´,MB_OK+MB_ICONINFORMATION);
    edit2.Text := intToStr(i);
    CloseFile(txt);
end;


end.


GOSTEI 0
POSTAR