Fórum Erro!quot;Expression expected but end or file foundquot; N #342045
19/05/2007
0
Olah pessoal, eh o seguinte estou querendo que num button se nao for selecionado nenhum item no listbox me avise que precisa ser selecionado algum item
Fiz assim
E volta acusando um erro
[b:083d2b7639][color=red:083d2b7639]expression expected but end or file found[/color:083d2b7639][/b:083d2b7639]
Isso ocorre somente na hora em que clico no button.
Fiz assim
procedure TForm1.Button1Click(Sender: TObject);
var
valor : real;
begin
if (M.ItemIndex)>-1 then
else
MessageDlg(´Atenção!!! Deve selecionar valor na lista de fórmulas´,mtwarning,[mbok],0);
JvInterpreterProgram1.Source := vItems; //jvInterpreter recebendo a variavel do listbox
JvInterpreterProgram1.Run; //componente em modo de compilaçao
{formatar o panel}
valor:=JvInterpreterProgram1.VResult;
Label1.Caption:=FormatFloat(´,0.00´,(Valor)); //resultado fa formula
end;E volta acusando um erro
[b:083d2b7639][color=red:083d2b7639]expression expected but end or file found[/color:083d2b7639][/b:083d2b7639]
Isso ocorre somente na hora em que clico no button.
Adriano_servitec
Curtir tópico
+ 0
Responder
Posts
19/05/2007
Marco Salles
hummm
procedure TForm1.Button1Click(Sender: TObject);
var
valor : real;
begin
if (M.ItemIndex)>-1 then
begin
JvInterpreterProgram1.Source := vItems; //jvInterpreter recebendo a variavel do listbox
JvInterpreterProgram1.Run; //componente em modo de compilaçao
{formatar o panel}
valor:=JvInterpreterProgram1.VResult;
Label1.Caption:=FormatFloat(´,0.00´,(Valor)); //resultado fa formula
end
else
MessageDlg(´Atenção!!! Deve selecionar valor na lista de fórmulas´,mtwarning,[mbok],0);
end;
Responder
Gostei + 0
19/05/2007
Adriano_servitec
O que um codigo mal feito consegue gerar heim!!!! :oops:
Da um estrago danado no projeto.
Valeu amigo, funcionou certinho agora.
Muito obrigado.
Adriano
Da um estrago danado no projeto.
Valeu amigo, funcionou certinho agora.
Muito obrigado.
Adriano
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)