Formatar Valores

[Fabson]

Como faço para formatar o valor dessa forma R$ 700,565.66 e exibir numa label

desde já agradeco

[pauloevaristo]

Label1.Caption := 'R$ ' + FloatToSTrF(Variavel,ffNumber,12,2);

[Capablanca]

Pegando o gancho da dica do nosso colega:

1) Coloquei um objeto EDIT, um LABEL e um BUTTON;

2) Adicione o evento OnClick no objeto BUTTON;

3) Quando se clica no BUTTON, é pego o valor dentor do EDIT (Edit1, no caso) e o mesmo é atribuído à propriedade CAPTION do objeto LABEL.

===================================================

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

Variavel: double;

begin

Variavel:= StrToFloat(Edit1.Text);

Label1.Caption := 'R$ ' + FloatToSTrF(Variavel,ffNumber,12,2);

end;

end.

===================================================

Abraços.