JvInterpreterProgram Nao consigo formatar com o FormatFloat?

Delphi

14/05/2007

Pessoal, nao consigo formatar usando o formatfloat nesta string de forma alguma

Olhem o codigo
procedure TForm1.Button1Click(Sender: TObject);
var
valor : real;
begin
JvInterpreterProgram1.Source := M.Lines.Text;
JvInterpreterProgram1.Run;
{formatar o panel}
valor:=JvInterpreterProgram1.VResult;
Panel1.Caption:=FormatFloat(´#,0.00´,(Valor));
Panel1.Caption := FloatToStr(Valor);
end;

**************************************
Vamos supor que eu digite 500
Nao teria que aparecer no panel 500,00?
**************************************

[b:bf3072388f]Nota: Estou usando componente [color=blue:bf3072388f]JvInterpreterProgram do JEDI[/color:bf3072388f][/b:bf3072388f]

Grato
Adriano


Adriano_servitec

Adriano_servitec

Curtidas 0

Respostas

Adriano_servitec

Adriano_servitec

14/05/2007

Pessoal, ja resolvi
O codigo correto
procedure TForm1.Button1Click(Sender: TObject);
var
valor : real;
begin
JvInterpreterProgram1.Source := M.Lines.Text;
JvInterpreterProgram1.Run;
{formatar o panel}
valor:=JvInterpreterProgram1.VResult;
Panel1.Caption:=FormatFloat(´,0.00´,(Valor));
end;

**************************************
Valeu galera.


GOSTEI 0
POSTAR