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
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