[Денис]

подскажите как исправить следующую проблему

Код:

var
a:string;
x:comp;             'пробовал Real ошибка остается
...
showmessage(a);     'a не нулевое значение например "0,3"
x:=x+strtofloat(a); 'х до сложения было 0
showmessage(floattostr(x));     'выдает 0

[Денис]

хочу отметить что x изменяется в цикле
цикл проходит несколько раз. перед каждым выполняется x:=0 первый раз когда выполняется этот цикл ошибки не возникает

[Drozh]

Это старый тип лучше его не использовать, вот читай тут
FAQ

Юзай вместо него Double, Extended

[:S.p.a.m.]

С Real все работает норм:

Код:

var a:string;
    x:real;
begin
  a:='1,3';
  x:=StrToFloat(a);
  showmessage(floattostr(x));

[Денис]

Сообщение от Drozh

Это старый тип лучше его не использовать, вот читай тут
FAQ

Юзай вместо него Double, Extended

Написал Extended теперь такой ошибки не возникает. Спасибо

[Денис]

Сообщение от :S.p.a.m.

С Real все работает норм:

Код:

var a:string;
    x:real;
begin
  a:='1,3';
  x:=StrToFloat(a);
  showmessage(floattostr(x));

Прочитай моё второе сообщение. Я написал, что первый раз ошибки не возникает, она возникает только второй раз после обнуления x

[Денис]

Написал отдельно кусок программы где ошибка появляется (с тем же типом Comp) программа почему то работает нормально...
А кто нибудь знает почему вообще такая ошибка возникает?