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

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

Как проверить: "если Copy(SearchRP.Name, i, 1)=цифра, тогда ..." [D7]

Roman_S ©   (2007-03-05 22:13:00) 

Как проверить: "если Copy(SearchRP.Name, i, 1)=цифра, тогда ..." ?

без
for i:=1 to 8 do
    begin
     if Copy(SearchRP.Name, i, 1)=
    end

---

palva   (2007-03-06 10:11:00) [1]

c: Char;
...
c := Ord(SearchRP.Name[I]);
if (Ord('0')<=c) And (c<=Ord('9')) then ....


---

Roman_S   (2007-03-06 07:39:00) [2]

Спасибо, Loginov Dmitry!

---

Roman_S   (2007-03-05 22:15:00) [3]

Вернее, без:
for i:=0 to 9 do
   begin
    if Copy(SearchRP.Name, 3, 1)=i then ...
   end

---

Loginov Dmitry   (2007-03-05 22:15:00) [4]

if SearchRP.Name[I] in ['0'..'9'] then ....

---

Наверх