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

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

Как грамотрее написать вот такой код [D6, XP]

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

Abcdef123 ©   (2007-10-19 12:07:00) 

if (pubPreFixA <> '') AND (pubPreFixA <> 'ACT_') AND (pubPreFixA <> 'BUD_') AND (pubPreFixA <> 'FOR_') AND (pubPreFixA <> 'PYR_') then
     result := False;

Перечисление смотрится не красиво, думаю, как мастера написали бы?
Заранее спасибо

---

Ins   (2007-10-19 12:17:00) [21]

Можно еще просто объявить константный массив префиксов, и делать просто поиск в нем.

---

Ins   (2007-10-19 12:15:00) [22]

> Reindeer Moss Eater ©   (19.10.07 12:12) [2]

Действительно прикольно. А если преффикс будет 'D_'?

:)

---

Reindeer Moss Eater   (2007-10-19 12:12:00) [23]

Result := (pubPreFixA = '') or (Pos(pubPreFixA,'ACT_BUD_FOR_PYR_') > 0)

---

Ins   (2007-10-19 12:09:00) [24]

Result:= (pubPreFixA ='') or(pubPreFixA ='ACT_')...

---

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

Наверх