Замена символов в строке.

← →
Ryser (2002-03-14 13:43) [0]

есть, к примеру, строка "12345,67" нужно перебрать по одному символу слева до зяпятой и заменить "," на "."
Есть какие-нибудь мысли?

← →
mrcat (2002-03-14 13:50) [1]

Используй Pos для определения положения нужного символа:
i := Pos(символ, строка);
Заменяй i-ый символ на что нужно:
строка[i] := новый_символ;

← →
Ra (2002-03-14 13:50) [2]

так в чем проблема?

for i:=1 to length(s) do
if s[i]="," then s[i]:="."

← →
Alx2 (2002-03-14 13:51) [3]

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

← →
mrcat (2002-03-14 13:51) [4]

в догонку...таким макаром можно определить только одну ЗПТ. в строке %)

← →
Johnmen (2002-03-14 13:54) [5]

А все это от незнания/непонимания DecimalSeparator

← →
Андрей Сенченко (2002-03-14 16:40) [6]

>> Johnmen © (14.03.02 13:54)

Далеко не факт

← →
Johnmen (2002-03-14 16:49) [7]

>Андрей Сенченко © : А какие варианты ты можешь предположить ? :)

← →
Андрей Сенченко (2002-03-14 18:14) [8]

Выше есть два вполне рабочих примера.

← →
Anatoly Podgoretsky (2002-03-14 21:39) [9]

Johnmen © (14.03.02 16:49)
while Pos(символ, строка) > 0 ...

← →
Alx2 (2002-03-15 10:12) [10]

>Anatoly Podgoretsky © (14.03.02 21:39)
>while Pos(символ, строка) > 0 ...
ИМХО долго.
Так мы будем ездить по строке n раз, где n - количество вхождений "символ" в "строка". Много быстрее в "Ra © (14.03.02 13:50)"

← →
JohnnyCrisJoe (2002-03-15 10:42) [11]

← →
userppp (2002-03-15 13:20) [12]

Всем большое спасибо за уделенное внимание вопросу! Проблема уже решилась путем выделения целой части и остатка.

← →
Alx2 (2002-03-15 13:36) [13]

← →
Anatoly Podgoretsky (2002-03-15 21:15) [14]

Замена символов в строке. Найти похожие ветки