| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Real в PCar/String [D6, D7, WinXP]

Интересующийся ©   (2006-08-13 08:08:00) 

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

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

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

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

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

---

Ketmar   (2006-08-13 11:44:00) [1]


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


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

---

PZ   (2006-08-13 11:09:00) [2]

В [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);


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

---

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

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

---

PZ   (2006-08-13 08:47:00) [4]

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

---

Наверх