Sign in to follow this  
cesaRRR

Ajudem-me!

Recommended Posts

esse erro nunca vi, mas coloca o código completo do evento do button

e antes de compilar o projeto va no menu: project --> syntax check seu projeto

se conter erro no código ele le mostrará no code editor

Share this post


Link to post
Share on other sites

opa

Solução 1

se o erro estiver antes de PRIVATE então remova a linha com erro, você deve ter apagado o codigo do OnClick do button1 sem somente apagar o seu codigo, apagando o que o delphi escreve

exemplo

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject); <----- apague esta linha

Solução 2

agora se o erro da abaixo de implementation, copie o seu codigo somente e apaga desde procedure tform1.button1....

ai só dar dois cliques no botao e colar o codigo novamente...

exemplo

procedure tform1.button1click(sender: TObject);

begin

--> copie o codigo a partir daqui

showmessage('eeee');

<-- até aqui

end;

depois que copiou seu codigo, apague este codigo pois ele não tem nenhuma referencia ao form

--> apague a partir daqui

procedure tform1.button1click(sender: TObject);

begin

showmessage('eeee');

end;

<-- até aqui

Ai depois é só dar 2 clicks no button1 novamente, e colar seu codigo abaixo do begin...

procedure tform1.button1click(sender: TObject);

begin

--> cole seu codigo aqui

end;

entendeu?

abraço

Share this post


Link to post
Share on other sites
Guest Visitante

Estava com esse problema e não conseguia compilar.

Declarei uma 'procedure teste', porém na implementação a declaração estava 'procedure teste' ao invés de 'procedure TForm1.teste'

Share this post


Link to post
Share on other sites

Estava com esse problema e não conseguia compilar.

Declarei uma 'procedure teste', porém na implementação a declaração estava 'procedure teste' ao invés de 'procedure TForm1.teste'

você pode criar a procedure direto dentro do implementation dessa forma sim procedure teste; sem precisar declarar la em cima (depois do TForm1 = class(TForm), ou em private ou public) Não há problema nisso.

Agora o melhor seria se você postasse sua unit para ver o problema.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this