Fórum Problemas com o comando IF #225011

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

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

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.