|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.01.2009, 14:44 | #1 |
Пользователь
Регистрация: 03.06.2008
Сообщений: 31
|
Любая буква
stringreplace(good,'Test'+bykva,myt ext,[rfReplaceAll, rfIgnoreCase]);
Вместо буква нужно чтобы при каждом обращении проверялись все буквы русского или англ. алфавита...Можно конечно сделать так: stringreplace(good,'Test'+'a',mytex t,[rfReplaceAll, rfIgnoreCase]); stringreplace(good,'Test'+'б',mytex t,[rfReplaceAll, rfIgnoreCase]); ... Но может есть проще вариант ?! |
07.01.2009, 14:44 | #2 |
Форумчанин Подтвердите свой е-майл
Регистрация: 01.12.2006
Сообщений: 514
|
есть
a,b:integer for i:=a to b do stringreplace(good,'Test'+char(i),m ytext,[rfReplaceAll, rfIgnoreCase]); где a код первой буквы алфавита, а b - код последней и остается перевести "i" в букву, вроде char подходит но я не помню точно
Пишу на Delphi за еду
|
07.01.2009, 19:25 | #3 |
Пользователь
Регистрация: 03.06.2008
Сообщений: 31
|
Спасибо, чет я не догнал тогда. Все правильно чар переводит
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна любая база данных на Паскале | Coo11eR | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 20.11.2008 22:20 |
Буква - не буква? | nec117 | Общие вопросы C/C++ | 4 | 06.11.2008 17:27 |
Помогите с игрой в Visual Basic (совершенно любая, карточная, домино, дарц и т.д.) | leogirl | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 6 | 13.11.2007 19:18 |
Буква CD-ROM’a | Micha | Компоненты Delphi | 5 | 05.10.2007 11:36 |
как вывести строку поочередно сначала первая буква первой строки потом первая буква второй строки и т.д. | vitalik007 | Помощь студентам | 1 | 25.09.2007 20:45 |