Eliminar una coma de un valor obtenido
 

Hola...

Si me puede decir, que me hace falta en el código que le voy a mostrar. Para eliminar la coma de un resultado ej: 456,78...

Quiero que elimine la (coma) a través de una búsqueda. Y no que, yo le indique donde se encuentra la coma por ej: Delete(Eliminar,4,1);

Este es mi codigo:

Código Delphi [-]
var

Texto: String;
Z:Real;

Pos:integer;

Begin

      Z:=(Sdt-R);
      Str (Z,texto);
      Str (Z:5:2,texto);
      texto:=texto;

                                    //Y:= delete(pos('.',texto));
     Pos:=pos('.',texto);
     Delete(texto,pos,1);
                                  //Delete(Eliminar,7,1);

      Edit32.Text:=(texto);

Espero su respuesta. Pr fvr y grcs...

Disculpe por la ortografía...

Gracias, ya lo resolví. Aquí les dejo el código para eliminar coma. Y eliminar algunos valores, después de la coma.

Código Delphi [-]
var
Texto: String;
Z:Real;

Posi:integer;
begin
        Z:=(Sdt-R);
        Str (Z,texto);
        Str (Z:5:2,texto);
        texto:=texto;

        Posi:=pos('.',Texto);
        Delete(Texto, posi,1);

        Edit20.Text:=(texto);

        SpeedButton9.Enabled:=true;

end;

Y lo de ponerlo en "Conexión con bases de datos" es porque hoy es luna llena :p

Pues a ver si ya vamos leyendo la guía de estilo de los foros, que hace un buen día para ello ;)

Y a propósito, ese código ¿en qué lenguaje es?

jajaja, no se si es que estoy siego. pero ya e leido completo esa guia(bueno eso creo). y donde vi que podia montar esta duda que tenia. era aqui.(Aunque se que no tiene nada con el tema o titulo que montaron en el foro). Pero ya avia subido anteriormente mis dudas, en este sitio.

Y el lenguaje: Pascal.

Programa que utilizo: Delphi xe5...

¿Y para qué sirve esta línea?

Código Delphi [-]
texto:=texto;

Aqui va con algo general:

Código Delphi [-]
Z:=(Sdt-R);   // Sdt y R son del codigo que no estoy mostrando
Str (Z,texto);             // Ej: 452,1233333333
Str (Z:5:2,texto);       // Ej: 452,12

texto:=texto;  // Solo lo coloco, para confirmar o para giarme. Que es el que lleva el resultado que voy a mostrar en 
                            pantalla y el que voy a utilizar para el siguiente codigo.   (452,12)

Posi:=pos('.',Texto);      // localiso (.)
Delete(Texto, posi,1);    // Elimino 45212
Edit20.Text:=(texto);     // imprimo 45212

Entonces no sirve para nada.
Y cómo es la función str?

La funcion STR (Formatea una cadena de una variable de punto entero o flotante.)

Es decir, te ayuda moldiar el texto o Dato que quieres modificar. Que esta siendo dividido por un signo u otro.

En este caso un resultado, que obtiene (,). Y un caracter infinito (que me molesta es un decir). Y quiero redondear el resultado para ser mas exacto con mis cuentas...

Código Delphi [-]
Z= que es dato que quiero modificar;

Texto= Es donde se va a reflejar lo modificado;

ej: Str (Z,texto);             // Ej: Z=452,1233333333 
     Str (Z:5:2,texto);       // Ej: Texto=452,12

     // (5:2) le estoy indicando la cantidad de caracter de antes y despues de la coma.

var
Texto: String;
Z:Real;

Posi:integer;

Creo que es, lo que querias saber. Si no me equivoco...

Pues sí, gracias. No recuerdo haber usado nunca esa función.

Vale estamos a la orden...

En este momento estoy creando una pagina algo privada(Asi como tambien en el facebook), para hacerlo mas didactico. Que trate de diseño y programacion. (Como una ayuda extra).

Si te interesa este es mi correo: e n o n o n a n o _ 1 @ h o t m a i l . c o m

Asi como club delphi.(Que Ayuda vastante)...

Por favor, vuelve a leer "despacio" la guía de estilo y pasa el texto por un corrector (ortográfico y gramatical).

Epale, gracias por la corrección.
Se que no es excusa, escribir mal aunque este apurado...