Separador de miles como separador decimal

[Nuria]

Hola!

Te podías crear una función que cuando pulsaras una tecla de un campo numérico la llamaras:

function fSepDecimal(tecla: char) : char;
begin
  if DECIMALSEPARATOR = ',' then begin
     if tecla = '.' then Result:= ','
     else Result := tecla;
  end
  else begin
     if tecla = ',' then Result:= '.'
     else Result := tecla;
  end;
end;

La llamarías de esta forma:

key := fSepDecimal(key);

Espero que te sirva.

Saludos!

[__cadetill]

Ampliando algo la respuesta de Nuria (muy buena, por cierto)

 if DBGrid1.SelectedField.DataType in [ftFloat, ftCurrency, ftBCD] then
    key := fSepDecimal(key);

Podiendo poner el tipo de datos que quieras controlar

[Nuria]

Empezado por cadetill

Ampliando algo la respuesta de Nuria (muy buena, por cierto)

Assias, viniendo de quien viene todo un cumplido , eso es porque tengo buenos maestros...

[ingabraham]

Empezado por aciram

Ampliando algo la respuesta de Nuria (muy buena, por cierto)

 if DBGrid1.SelectedField.DataType in [ftFloat, ftCurrency, ftBCD] then
    key := fSepDecimal(key);

Podiendo poner el tipo de datos que quieras controlar

no me reconoce estos formatos x q
[ftFloat, ftCurrency, ftBCD]