| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Eugênio
Aprendiz
Registrado: Sexta-Feira, 7 de Agosto de 2009
Mensagens: 170
|
 Enviada: Seg Jan 23, 2012 8:59 am Assunto: Erro ao compilar aplicação |
 |
|
Senhores na atualização de delphi 5 para delphi 7 estou com um erro estranho;
[Error] funcoes.pas(52): Statement expected but 'FUNCTION' found
[Fatal Error] aempresa.pas(91): Could not compile used unit 'funcoes.pas'
A função que esta dando erro é a seguinte;
function criptografar(texto: String): String;
const Chave : String = 'senhado sistema';
Var
x, y : Integer;
NovaSenha : String;
begin
for x := 1 to Length(Chave) do
begin
NovaSenha := '';
for y := 1 to Length(texto) do
NovaSenha := NovaSenha + chr((Ord(Chave[x]) xor Ord(Texto[y])));
Texto := NovaSenha;
end; //aqui esta dando erro
result := texto;
end;
A função esta declarada direitinho, eu uso um arquivo pas com todas as funçoes.
O que será que pode ser este erro?
Obrigadoi a todos |
|
| Voltar ao Topo |
|
 |
JCMF
Profissional
Registrado: Quarta-Feira, 28 de Abril de 2010
Mensagens: 578
Localização: Recife, PE
|
| Enviada: Seg Jan 23, 2012 9:26 am Assunto: Re: Erro ao compilar aplicação |
|
|
| Eugênio escreveu: | Senhores na atualização de delphi 5 para delphi 7 estou com um erro estranho;
[Error] funcoes.pas(52): Statement expected but 'FUNCTION' found
[Fatal Error] aempresa.pas(91): Could not compile used unit 'funcoes.pas'
A função que esta dando erro é a seguinte;
function criptografar(texto: String): String;
const Chave : String = 'senhado sistema';
Var
x, y : Integer;
NovaSenha : String;
begin
for x := 1 to Length(Chave) do
begin
NovaSenha := '';
for y := 1 to Length(texto) do
NovaSenha := NovaSenha + chr((Ord(Chave[x]) xor Ord(Texto[y])));
Texto := NovaSenha;
end; //aqui esta dando erro
result := texto;
end;
A função esta declarada direitinho, eu uso um arquivo pas com todas as funçoes.
O que será que pode ser este erro?
Obrigadoi a todos |
Amigão!
Essa declaração que vc postou está correta. O problema pode ser em outro lugar do seu código.
Já que o erro está dando exatamente no "end;", isso significa que ele está fechando outro bloco de código por estar faltando um "end".
Experimente comentar essa função no seu código e ver se o Delphi compila direito. |
|
| Voltar ao Topo |
|
|
wagnercabrera
Aprendiz
Registrado: Terça-Feira, 10 de Janeiro de 2012
Mensagens: 155
Localização: Arapongas - PR
|
| Enviada: Seg Jan 23, 2012 9:52 am Assunto: |
|
|
Verifica se o cabeçalho da função está declarado no inicio da Unit, e faz como nosso amigo disse, comente a função e verifica se é por causa dela mesmo. Aparentemente está correto.
_________________
DEVELOPER SENIOR D.E.L.P.H.I
 |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
