Real в PCar/String

← →
Интересующийся (2006-08-13 08:08) [0]

Всем доброе время суток!

Подскажите рещение возникшей проблемы.

Немогу приоброзовать Real в строку и обратно.

При загрузке данных из внешнего источника моя программа получает значения которые представляют собой реальные числа (20.25, 100.216....) но при работе с этими данными я использую тип Real.

При преоброзовании полученых чисел я получаю ошибку.

← →
PZ (2006-08-13 08:47) [1]

procedure TForm1.Button1Click(Sender: TObject); Var Delimiter : Char; S : String; begin Delimiter := "."; S := FloatToStr(20.25); ShowMessage(S); end;

← →
Интересующийся (2006-08-13 09:28) [2]

Обратно как я понимаю - StrToFloat("20.25")?

← →
PZ (2006-08-13 11:09) [3]

В [1] я, конечно, неправильно написал, надо
procedure TForm1.Button1Click(Sender: TObject);
Var
// Delimiter : Char;
S : String;
begin
// Delimiter := ".";
S := FloatToStr(20.25);
ShowMessage(S);
end;

А обратно я бы сделал

S := "20.25"; While Pos(".", S) > 0 do S[Pos(".", S)] := ","; R := StrToFloat(S); ShowMessage(S);

Может кто-то лучше предложит вариант

var oSep: Char; begin oSep := DecimalSeparator; DecimalSeparator := "."; try result := FloatToStr(s); finally DecimalSeparator := oSep; end;

обратно аналогично.

Real в PCar/String Найти похожие ветки