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

¡¡¡Que parecemos novatos!!! ;)

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

Mi a ver esto

Código Delphi [-]
...
var
  X: String;
begin
  X := Edit1.Text;
  Delete(X, Pos('.', X), 1);
  Result := X;
end;

Un saludo

Dos cosas: ¿Por qué no has abierto un hilo nuevo?
Segundo: Creo que el código es Delphi, pero ¿no tiene Delphi la función StringReplace al igual que Builder? En Builder sería algo así:
Así eliminas todos los puntos que haya en la cadena. Imagino que en Delphi hay una instrucción similar

olbeup, estás incumpliendo sistemáticamente las normas de clubdelphi, por favor, sigue nuestra guía de estilo. Aunque no sé cuantas veces lo he mencionado ya.
Gracias.

Hola Casimiro,

Si es verdad, no me había dado cuenta que la pregunta era distinta a la primera y que tenia que haber abierto otro hilo, perdón.

Un saludo

Realmente son cosas normales que ocurren y que no tienen mayor importancia, solo que tú no eres un novato en clubdelphi y es de esperar que tuvieses más cuidado con esas cosas.
En fin, no te enojes, sólo te pedimos un poquito de colaboración, gracias :)

Edito mi respuesta porque has editado tu mensaje :)

||-||

Había otra frase que hacia una pregunta y, me he decidido por reconocer lo hecho y disculparme por no haberme dado cuenta.

Un saludo

Gracias ^\||/
||-||||-||