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

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

Генерация строки по маске... [D5, Win2k, WinXP]


MetalFan ©   (2005-12-08 16:31:00) 

нужно нечто следующее:
в маске могут быть русские(R,r) и латинские(L,l) буквы в нижнем и верхнем регистре и арабские цыфры(0)...
примеры масок: 'RRR0', 'LL-RR-00' и т.п.
необходимы след.функции
1) Проверка маски на правильность
function CheckMask( const AMask: string): boolean
2) Проверка строки на соответствие маске
function CheckMaskMatch( const AMask, AString: string): boolean;
3) Генерация первой последовательнсти по маске
function GenFirst( const AMask: string ): string
типа: маска 'LL-rr-00'. Result := 'AA-аа-01'
4) получение следующей последовательности по маске:
function GenNext( const AMask, AString: string): string;
пример: маска 'LL-rr-00' строка 'BD-кл-99', Result := 'BD-км-01'

подскажите как реализовать или где подсмотреть или взять!!!

Заранее спасибо за подсказки и советы!!!!


MetalFan   (2005-12-08 16:59:00) [1]

ладно, спасибо и на том) буду разбираться


Leonid Troyanovsky   (2005-12-08 16:51:00) [2]


> MetalFan ©   (08.12.05 16:48) [2]
> посмотрел) но генерации там нет. да и маски там для файлов


Генерация - Format.
А для проверки TMask.Matches вполне годится, читай примечание.

--
Regards, LVT.


MetalFan   (2005-12-08 16:48:00) [3]

посмотрел) но генерации там нет. да и маски там для файлов


Игорь Шевченко   (2005-12-08 16:34:00) [4]


> или где подсмотреть


в masks.pas ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо