(Resolvido) Transformar Texto em Valor Stringgrid

[rdestri]

Bom dia,

Estou montando uma Stringgrid onde na coluna 1 tenho mes/ano (já fiz a procedure para preencher automaticamente) e na coluna 2 deixo para o usuário digitar o valor, porém entra como texto e gostaria que quando ele terminasse de digitar o numero, assim que ele sair da célula transformasse em real, e se possível aparecer o R$.

Obrigado.

[Jhonas]

faça assim:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var val : real;
begin
   if StringGrid1.Cells[ACol-1,ARow] <> '' then
      val := strtofloat(StringGrid1.Cells[ACol-1,ARow]);

   with Sender as tStringGrid do
      if ACol = 3 then
         StringGrid1.Cells[ACol-1,ARow] := 'R$ '+ formatfloat(',0.00',val);
end;

abraço

[rdestri]

Agradeço a dica, mas não deu certo, pois possuo um Keypress que quando tecla Enter vai para a linha de baixo, para facilitar a digitação dos valores, o que deu certo foi no OnKeyPress assim:

if key = #13 then

begin

if (sg_calculo.Cells[1,sg_calculo.row]) <> '' then

sg_calculo.Cells[1,sg_calculo.Row]:=FormatFloat('##,###,##0.00',StrtoFloat(sg_calculo.Cells[1,sg_calculo.row]));

ahhh, e tive que tirar o R$ pois quando quero apagar ou alterar o valor digitado não dá quando converto de text p float.

Mas deu certo assim!

Aproveitando, para que serve esta linha:

with Sender as tStringGrid do

Desculpe minha ignorância, é que faz muito tempo que não mexo com Delphi.

Obrigado.

[Jhonas]

Aproveitando, para que serve esta linha: 

with Sender as tStringGrid do

é para indicar que o comando só será executado se o foco estiver exclusivamente no StringGrid

abraço

[rdestri]

Brigadão Jhonas!

Abcs.