Форум: "Основная";
Поиск по всему сайту: 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.039 c
6-91011           RP                    2002-01-14 09:44  2002.03.28  
Почтовый клиент


7-91096           Flakon                2001-10-29 13:55  2002.03.28  
Com-port


1-90901           kull                  2002-03-18 11:21  2002.03.28  
Народ! срочно нужна помощь по Mail Slot!


6-91013           sergant               2001-12-27 13:03  2002.03.28  
Компоненты для чата


1-90994           Alx2                  2002-03-15 13:44  2002.03.28  
А не накроется что-нибудь, если..