(Resolvido) Code completion não funciona

[Guest João Cunha]

Olá a todos!

Programo em outras linguagens, mas estou começando com Delphi. Fiz um programa para copiar arquivos aqui no trabalho que está funcionando normalmente, mas em determinados momentos o auto completion simplesmente pára de funcionar.

Já debugguei, chequei a sintaxe, comentei linha a linha, recortei, etc, e simplesmente não consigo achar a falha. O Delphi acusa erro no código, mas tenho certeza que está tudo correto, estou achando que é algum problema de instalação. Se alguém puder dar uma força, segue o código:

procedure TMainForm.btnAtualizarClick(Sender: TObject);
var origem, destino: string;
    x: integer;
begin
   for x := 0 to (adoCat.RecordCount -1) do
   begin
      while not adoCat.Eof do           
      begin
         adoCur.Close();
         adoCur.Filter := 'ck_cronograma = 1 AND cd_categoria = ' + adoCatcd_categoria.Text;
         adoCur.Filtered := true;
         adoCur.Open();

         while not adoCur.Eof do
         begin
            origem := txtOrigem.Text + adoCatcd_categoria.Text + '.jpg';
            destino := txtDestino.Text + adoCurtx_internet.Text + '.jpg';

            if not FileExists(origem) then
             begin
               memoLog.Lines.Add('ERRO - ' + origem);
               break;
            end;

            if FileExists(origem) and not FileExists(destino) then
            begin
               CopyFile(PChar(origem), PChar(destino), true);
               memoLog.Lines.Add('OK - ' + destino);
               adoCur.Next();
            end;
         end;
         adoCat.Next();
      end;
   end;
end;

Valeu, um abraço a todos!

[Jhonas]

Já debugguei, chequei a sintaxe, comentei linha a linha, recortei, etc, e simplesmente não consigo achar a falha. O Delphi acusa erro no código, mas tenho certeza que está tudo correto

For e while costuma não dar muito certo ... ou use um ou use outro

por exemplo:

for x := 0 to (adoCat.RecordCount -1) do

voce colocou um comando For para contar seus registros do inicio ao fim ... então porque utilizar

while not adoCat.Eof do

para testar o fim do arquivo ?

OBS: experimente tirar esse while do codigo e veja o que acontece.

abraço

[Guest João Cunha]

Já debugguei, chequei a sintaxe, comentei linha a linha, recortei, etc, e simplesmente não consigo achar a falha. O Delphi acusa erro no código, mas tenho certeza que está tudo correto

For e while costuma não dar muito certo ... ou use um ou use outro

por exemplo:

for x := 0 to (adoCat.RecordCount -1) do

voce colocou um comando For para contar seus registros do inicio ao fim ... então porque utilizar

while not adoCat.Eof do

para testar o fim do arquivo ?

OBS: experimente tirar esse while do codigo e veja o que acontece.

abraço

Olá Jhonas, obrigado por responder.

Realmente esse um desses dois loops está sobrando. Testei removendo ambos, e nada. O programa funciona normalmente, mas o code completion não. Estou achando que foi algum erro durante a instalação dos componentes, ou algo assim.

[Jhonas]

Coloque o erro que é mostrado na tela.

abraço

[Guest João Cunha]

Coloque o erro que é mostrado na tela.

abraço

Segue um deles.

Na verdade cada hora é um, sempre um pouco diferente, mas esse é o principal.

[Jhonas]

O erro é:

Incapaz de invocar conclusão de código devido a erros no codigo fonte

então voce deve procurar no codigo o comando que está provocando este erro...

sugestão refaça o codigo por partes e vá testando.

tambem experimente tirar os parenteses de:

adoCur.Close();

adoCur.Open();

adoCur.Next();

adoCat.Next();

acho que não são necessarios.

abraço

[Guest João Cunha]

O erro é:

Incapaz de invocar conclusão de código devido a erros no codigo fonte

então voce deve procurar no codigo o comando que está provocando este erro...

sugestão refaça o codigo por partes e vá testando.

tambem experimente tirar os parenteses de:

adoCur.Close();

adoCur.Open();

adoCur.Next();

adoCat.Next();

acho que não são necessarios.

abraço

Removi os parênteses, e nada. Um colega de trabalho abriu meu .dpr em sua máquina, nada também. De repente ele resolveu reescrever algumas linhas do código e voilá - autocompletion funcionando.

É, mais um daqueles bugs que não fazem o menor sentido, mas foi corrigido. Talvez o Delphi tenha salvado algum log ou algo assim, e quando reescrito voltou a funcionar. Se souber o motivo, compartilhe!

Um abraço, obrigado pela força.