Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

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


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]


> Anatoly Podgoretsky © (14.03.02 21:39)
> while Pos(символ, строка) > 0 ...


Зато как элегантно.. :))



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

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



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

>Johnmen © (14.03.02 13:54)
Пророк, однако :))



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

Alx2 © (15.03.02 10:12)
Ну если дело за оптимальностью, так это не проблема, но було сомнение насчет возможности :-)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.036 c
4-91101           chernoruk             2002-01-28 03:25  2002.03.28  
Открытие ссылки


1-90845           Di_wind               2002-03-16 16:16  2002.03.28  
Как вчтроить некоторые данные в программу?


1-90843           pusrg                 2002-03-14 20:40  2002.03.28  
Сохранение буфера обмена.


3-90803           arnold lane           2002-03-04 20:59  2002.03.28  
вопрос


3-90737           Demon ltd             2002-02-27 23:26  2002.03.28  
Удаление из базы через SQL