Cita:
Empezado por bulc
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
|
Mi a ver esto
Código Delphi [-]...
var
X: String;
begin
X := Edit1.Text;
Delete(X, Pos('.', X), 1);
Result := X;
end;
Un saludo
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
|