Работа с регулярными выражениями:
uses regexp;
var regexp: TRegExpr;
begin
regexp:=TRegExpr.Create;
regexp.Expression:='\(.*\)$';
song:=regexp.Replace(song,'',false);
regexp.Free;
end;
Кроме regexp есть еще модуль synregexpr с аналогичным объектом.
Модули имеют проблемы с UTF8 и русскими буквами -
поэтому иногда приходится делать UTF8Decode() и UTF8Encode()
до и после выполнения операция с регулярными выражениями.
Free Pascal Справочник v0.05 © 2007-2024 Igor Salnikov aka SunDoctor