procedure TForm1.Button2Click(Sender: TObject);
var k:integer;
begin
r:=TRegExpr.Create;
r.Expression:='\d\d:\d\d';
for k:=0 to memo1.Lines.Count-1 do
 if memo1.Lines.IndexOf(r.Expression)=true then
 memo2.Text:=memo1.Text;
end;

не знаю как дальше, а то что написал явно коту под хвост.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

09.01.2011, 23:47

Ответы с готовыми решениями:

Регулярные выражения
Добрый день, у меня возникла задача написать проверку для строки. В строковой переменной...

Регулярные выражения
имеется текст: Карусельспутниковые Animal PlanetDiscovery ChannelDiscovery ScienceDiscovery...

Регулярные выражения
Какое регулярное выражение подойдет для вытаскивания ip адреса из этого кода: <!DOCTYPE html...

Delphi!? Регулярные выражения?
procedure TForm1.Button2Click(Sender: TObject); var s:string; i:integer; danye:array of...

	09.01.2011, 23:47

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

09.01.2011, 23:47

Помогаю со студенческими работами здесь

есть ли в Delphi регулярные выражения?
есть ли в Delphi регулярные выражения?

Регулярные выражения RegExpr, как не заменять, а просто добавить?
как сделать чтоб оно не заменяло, а вставляло регулярку, т.е. то что является рег. выражением, а то...

Регулярные выражения. Как вот такой код с php перевести на Delphi!?
$file = preg_match_all("|<tr><td class='time'>(.*)</tr>|U",$file,$frazes); $myper = array(); ...

Delphi и регулярные выражения! Почему ошибка эта постоянно, не понимаю, см. код?
unit unAnal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх