Statement expected but ´PROCEDURE´ found

Vc vai achar a minha solução meio maluca, mas eu sempre faço isso.
Qdo tudo parece correto, não se acha erros nos fontes, eu prefiro apagar e fazer novamente, eu li a sua outra mensagem, como seu codigo ainda é pequeno, ..., se fosse vc apagaria tudo o que esta dentro dos begins e ends das procedures, apagaria os botoes, colocaria novos, e escreveria tudo novamente com o cuidado para não apagar as informações ja existentes..... como Begin e End, o que é até comum de acontecer....

Enviada: Sex Jan 16, 2004 5:36 pm Assunto: Statement expected but ´PROCEDURE´ found

--------------------------------------------------------------------------------

Fiz exatamente como vc falou, mas continua dando erro!!!


unit Uteste;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
btn1: TButton;
btn2: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
if btn1.Enabled = true then
begin
btn1.Enabled := false;
btn2.Enabled := true;
btn1.Caption := ´OFF´;
btn2.Caption := ´ON´;
end; [color=red:1591d26840]// Fim do if[/color:1591d26840]
[color=red:1591d26840]end; //fim do procedure [/color:1591d26840]

procedure TForm1.btn2Click(Sender: TObject);[b]
begin
if btn2.Enabled = true then
begin
btn2.Enabled := false;
btn1.Enabled := true;
btn2.Caption := ´OFF´;
btn1.Caption := ´ON´;
end; [color=red:1591d26840]//Fim do if[/color:1591d26840]
[color=red:1591d26840]end; // fim da procedure[/color:1591d26840]
end.

:twisted: :evil: :twisted:

Ai, quando for responmder a um tópico, use o botão responder, as coisas fiam mais organizadas dai, use o novo tópico só quando for para postar uma outra dúvida.

E você leu oque eu escrevi, lá disse que para dar certo, tem que ter um


:?:

Emerson,

Acho que ele queria negritar o texto na mensagem. Para colocar um texto em negrito, a melhor forma é primeiro digitar o texto, marcar (selecionar com o mouse) e depois pressionar a letra B (Bold) logo acima ao invés de fazer manualmente, pois o phpBB faz a abertura e fechamento da tag.