Замена точки на запятую

← →
SkySat (2004-01-21 18:06) [0]

Подскажите функцию, которая могла бы переводить текст пита: 2,2 на: 2.2
Спасибо!

← →
Skier © (2004-01-21 18:09) [1]

А зачем сие ?

← →
Тимохов © (2004-01-21 18:13) [2]

stringreplace

← →
jack128 © (2004-01-21 18:14) [3]

var
iPos: integer;
begin
i := Pos(",", s);
while i > 0 do
begin
s[i] := ".";
i := Pos(",", s);
end
end

← →
YuRock © (2004-01-21 18:15) [4]

function Zamena_Zapyatoy_Na_Tochky(const Text_S_Zapyatymi: String): String; var i: Integer; begin Result := Text_S_Zapyatymi; for i := 1 to Length(Result) do if Result[i] = "," then Result[i] := "."; end;

:))

← →
Sandman25 © (2004-01-21 18:23) [5]

Присоединяюсь к [1]. А зачем сие? (c) Skier
Возможно, лучше изменить DecimalSeparator.

← →
Юрий Зотов © (2004-01-21 18:27) [6]

Что-то у меня такое ощущение, что автору вопроса больше подойдет вот это:

function NormalizeFloat(const FloatStr: String): String;
var
i: Integer;
begin
Result := FloatStr;
for i := 1 to Length(Result) do
if Result[i] in [".", ","] then
Result[i] := DecimalSeparator
end;

> Юрий Зотов © (21.01.04 18:27) [6]

Хорошо, конечно, но что делать, если в FloatStr несколько запятых?..

По-моему, автор так до сих пор и не ответил на [1]...

← →
Zz_ (2004-01-21 18:36) [8]

function Xm(Value:Double):String;
var S:String; i,j:Integer;
begin
S := FloatToStrF(1E-15*Value,ffExponent,16,3);
SetLength(Result,25);
j := 1;
for i := 1 to Length(S) do begin
if(S[i]=DecimalSeparator)then Continue;
Result[j] := S[i];
Inc(j);
end;
Result[j] := #0;
Result := PChar(Result);
end;

> YuRock © (21.01.04 18:30) [7]

> что делать, если в FloatStr несколько запятых?
Искать ошибку в коде, формирующем FloatStr.
:о)

> По-моему, автор так до сих пор и не ответил на [1]
Эт-точно.
:о)

Замена точки на запятую Найти похожие ветки