Str to Real и Real to Str

[Zeraim]

Наткнулся на такую проблемку, мне надо вещественные числа перегнать в стринг и соответственно обратно.
Долго сидев и ломав голову я накидал алгоритм который это делает...
Но то как я это сделал ужасно, а мне еще надо обратно в реал перегонять числа.. Может есть какой способ попроще. Я делал так:
Разбивал строку до запятой и после запятой на 2 куска. Потом сравнивал чары в кусках с массивом из чаров от 0 до 9, и по шагу цикла -1 определял число в виде интеджера, перегонял в реал. Результаты домножал на 10 в степени количества символов в разбитых строках и суммировал...
Выложил бы код, да он частично на бумаге 8)

[VVM]

А чем не нравятся StrToFloat и FloatToStr ?

procedure TForm1.Button1Click(Sender: TObject);
var
  R: Real;
  Str: string;
begin
  R := 232.24234;
  Str := FloatToStr(R);
  R := StrToFloat(Str);
end;

[Terran]

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

Наткнулся на такую проблемку, мне надо вещественные числа перегнать в стринг и соответственно обратно.
Долго сидев и ломав голову я накидал алгоритм который это делает...
Но то как я это сделал ужасно, а мне еще надо обратно в реал перегонять числа.. Может есть какой способ попроще. Я делал так:
Разбивал строку до запятой и после запятой на 2 куска. Потом сравнивал чары в кусках с массивом из чаров от 0 до 9, и по шагу цикла -1 определял число в виде интеджера, перегонял в реал. Результаты домножал на 10 в степени количества символов в разбитых строках и суммировал...
Выложил бы код, да он частично на бумаге 8)

Всё делается легко. Используйте функции FloatToStr и StrToFloat.

[Zeraim]

Мдас _) Что-то я неочём _)

[Alar]

http://pblog.ru/?p=84 - еще вариации на тему конвертации типов, с помощью указателей.

Любой начинающий делфист написав эту процедуру расстроится, когда она не заработает, конечно, можно исправить это положение, написав свой или использовать сторонний модуль с функциями преобразования величин. В принципе, об этом я и хотел написать, как перевести переменную из одного типа в другую.

Используя указатели мы можем обращаться к любой ячейке в памяти и использовать размещённые там данные.