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

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

А что под маской? [XP]


programmer90 ©   (2008-09-26 22:13:00) 

Добрый вечер!
Две строки:
Error: identifier not found * ,something else?
Error: identifier not found "identifier" ,something else?
Нужно узнать какие символы "соответствуют"  звездочке(*)?
Вся проблема в том что  звечдочке может соответсвовать неск. символов ,в данном случае звездочке соответсвует 12 символов: "identifier"
Можно ли сделать это через маски, я пытался но не получилось:(
Благодарю-с.


{RASkov}   (2008-09-26 22:48:00) [1]

> [2] programmer90   (26.09.08 22:43)
> чтобы самому подумать немножко)))

Хм... неужели такое бывает в наше время? :))


programmer90   (2008-09-26 22:43:00) [2]

{RASkov} ©   (26.09.08 22:33) [1]
Спасибо большое!
На самом деле этих звездочек может быть более одной, но я специально задал с одним, чтобы самому подумать немножко)))


{RASkov}   (2008-09-26 22:33:00) [3]

> [0] programmer90   (26.09.08 22:13)

const S1 = 'Error: identifier not found * ,something else?';
     S2 = 'Error: identifier not found "identifier" ,something else?';
var S: String; N: Integer;
begin
 S:=StringReplace(S2, Copy(S1, 1, Pos('*',S1)-1), '', []);
 N:=Pos('*', S1)+1;
 S:=StringReplace(S, Copy(S1, N, Length(S1)-N+1), '', []);
 ShowMessage(S);
end;

:о)


Наверх

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