Hola de nuevo
Siguiendo con mis primeros pasos, estoy desarrollando un edit propio de manera muy novata. Este edit coge numeros decimales (positivos o negativos). Mi ultimo problema a la hora de este desarrollo es que no consigo que cuando borre la coma, me deje volver a meterla hasta que borro todo de nuevo. Mi pregunta es como mirar el caracter que borro, y que si es una coma, poner una variable a 0 para que me active de nuevo el volver a meterla.
Os pego el código que he hecho, teniendo ese fallo y teniendo en cuenta que en esto de Delphi llevo poco más de una semana.
if (centigrados.Text='') then begin
if ( (Key<'0') or (Key>'9') ) and (Key<>#8) and (Key<>#45) then Key:=#0;
end
else begin
if (sw2=1) or (centigrados.Text='-') then begin
if ( (Key<'0') or (Key>'9') ) and (Key<>#8) then Key:=#0; end
else
if ( (Key<'0') or (Key>'9') ) and (Key<>#8) and (Key<>',') then Key:=#0;
end;
if (centigrados.Text='')then
sw2:=0;
if (Key=',') then
sw2:=1;
Espero críticas a la hora de programar, ya que al llevar tan poco tiempo, me gustaría quitarme esos malos hábitos a la hora de programar.
Un saludo
RyAr