Quitar comas
He tenido que quitar los punto del millar en un TUpDown y no me ha funcionado la función de usuario Delete, no sé por qué. He salido del paso usando:
cStr:= Edit1.Text;
nPos:=Pos('.', cStr);
CadOK:= Copy(cStr, nPos-1, 1) + Copy(sStr, nPos+1, 3); // Sólo hay millares con cinco espacios n.nnn
nPos:=StrToInt (CadOK);
Alguien me puede decir si hay que colocar algo en el USES o dicho de otro modo, ¿ hay alguna forma mejor de quitar el puntito de milares?
Gracias.
bulc
|