| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

работа со строкой [D7, XP]

Страницы:   < 1 2 >

tey ©   (2008-06-17 16:06:00) 

подскажите как убрать из строки все символы, кроме цифр и точек?

---

Riply   (2008-06-17 17:03:00) [21]

> [2] Ega23 ©   (17.06.08 16:09)
> for i:=1 to Length(S) do
>   if S[i] in ['0'..'9', '.'] then
>     Result := Result + S[i];

Некузяво :)
IMHO, лучше дважды пройтись циклом:
первый раз посчитать необходимый Length результата,
а во втором цикле его (Result) заполнить.

---

Dennis I. Komarov   (2008-06-17 16:12:00) [22]

> [2] Ega23 ©   (17.06.08 16:09)

домены уде освоены, теперь за дельфу Медведев взялся... :)

---

Ega23   (2008-06-17 16:10:00) [23]

А в целом - пора о метле задумываться, коли такую простейшую вещь сделать не можешь.

---

Dennis I. Komarov   (2008-06-17 16:09:00) [24]

Пробежаться по строке, если не цифра и не точка то удалить.

---

tey   (2008-06-17 16:09:00) [25]

:)

---

Ega23   (2008-06-17 16:09:00) [26]

function ВсёКромеТочек(const S : string) : string;
var
 i : Integer;
begin
 Result := '';
 for i:=1 to Length(S) do
   if S[i] in ['0'..'9', '.'] then
     Result := Result + S[i];
end;

---

Страницы:   < 1 2 >

Наверх