Pascal/Turbo Pascal - Pasar de String a Real

   
Vista:

Pasar de String a Real

Publicado por Franco Sanguedolce (32 intervenciones) el 03/09/2013 02:40:21
Hola amigos, estoy haciendo un programa similar a una calculadora en modo grafico de pascal,
hasta ahora llevo todo bastante bien, pero me surge una duda.
tengo que pasar valores de tipo STRING (ya que en modo grafico no hay rutinas para la lectura desde el teclado de este tipo de variables) a REAL.

usando la funcion VAL(txt str, var real, error) no consigo hacerlo, me da error=1;

alguna otra forma de hacerlo??
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Pasar de String a Real

Publicado por ramon (2072 intervenciones) el 03/09/2013 13:48:01
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
{La Función es correcta pero tienes que verificar que no salte
 error eso seria algo como esto.
 
  function stringreal(t : string) : real;
   var
     error : integer;
     rr : real;
   begin
      val(t,rr,error);
      if error <> 0 then
      begin
         erase(t,error,1);
         val(t,rr,error);
      end;
          stringreal := rr;
   end;
 
 {Esto o limpiar el estringe de espacios en blanco o sea}
  for i := 1 to length(t) do
   if t[i] <> #32 then
   erase(t,i,1);
{Esto de una cadena que tuviera '123 456 ' te la dejaria
 '123456' así.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar