[olbeup]

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