Скачать: CL | DM;

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

← →
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;

---

← →
YuRock ©   (2004-01-21 18:30) [7]

> Юрий Зотов © (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;

---

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

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c