Pascal/Turbo Pascal - Pasar de String a Real

{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í.