osval80
19 de Noviembre del 2004

quiero poder escribir los datos en un Edit con punto en vez de tener q escribirlos con coma, es decir quiero poder meter 1.1, en vez de tener q meter 1,1.No se lo q debo hacer, si hay q tratarlos con distintas funciones o hay q modificar algo en el Edit.
chao, muchas gradias

xnomad
19 de Noviembre del 2004

El problema que tenes es que de seguro es un DBEdit no un edit común. Si es así, tenes que cambiar la configuracion regional del sistema operatibo para que tome el . como separador de digitos y la , como separador de mil.

Si tu problema es porque del edit.text sacas el valor y queres convertirlo a real o double, con una funcion como strtofloat, tenes que primero ejecutar una funcion que te cambie la , por . :

function comaapunto(s:string): string;
var
aux:string;
i:byte;
begin
aux:='';
for i:= 1 to length(s) do
if s[i] = ',' then aux[i]:='.' else aux[i]:=s[i];
end;

No recuerdo bien si se empieza en 0 o en 1, si es en 0 entonces en lugar de for i:= 1 to length(s) do
va for i:= 0 to length(s)-1 do

Espero te sirva.