регулярные выражения (Unicode) - Общие вопросы Delphi

element · 07.12.2007, 17:17

следующ. код коверкает русский текст:

Код:

procedure TVorotaForm.GotovoBtnClick(Sender: TObject);
var RegEx: TRegExpr;
begin
s2 := Web1.OleObject.Document.Body.innerHTML; 
RegEx := TRegExpr.Create;
try
regex.Expression := '(<BODY>(.+?)</BODY>)';
regex.exec(s2);
showmessage(s2);
finally
regex.Free;
end;
end;

----

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

Domovoy · 07.12.2007, 18:16

Попробуй вот эту функцию Utf8ToAnsi

element · 07.12.2007, 22:26

Цитата:

Сообщение от Domovoy

Попробуй вот эту функцию Utf8ToAnsi

возвращает пустую строку

BOBAH13 · 08.12.2007, 00:16

На самом деле все проще. В дельфи используйте тип WideString и String. Для превращения

а там вроде и в System.pas есть функции для уникод в стринг.

07.12.2007, 17:17	#1
element Пользователь Регистрация: 08.11.2007 Сообщений: 21	регулярные выражения (Unicode) следующ. код коверкает русский текст: Код: `procedure TVorotaForm.GotovoBtnClick(Sender: TObject); var RegEx: TRegExpr; begin s2 := Web1.OleObject.Document.Body.innerHTML; RegEx := TRegExpr.Create; try regex.Expression := '(<BODY>(.+?)</BODY>)'; regex.exec(s2); showmessage(s2); finally regex.Free; end; end;` ---- как сделать чтобы русский текст оставался русским? наверно Unicode, только вот как использовать его с регулярками?

08.12.2007, 00:16	#4
BOBAH13 Android Developer Старожил Подтвердите свой е-майл Регистрация: 19.02.2007 Сообщений: 3,708	На самом деле все проще. В дельфи используйте тип WideString и String. Для превращения а там вроде и в System.pas есть функции для уникод в стринг. Home \| Android for food \| XWindows Dock \| github

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Чтение из Edit1 выражения	Rusl92	Общие вопросы Delphi	11	11.04.2008 18:01
значение получившегося выражения должно быть равно заданному целому S	Elm0	Паскаль, Turbo Pascal, PascalABC.NET	6	18.01.2008 00:13
Регулярные выражения	Adamant	Общие вопросы C/C++	1	26.11.2007 19:44
Unicode	}{UTPUU	Общие вопросы Delphi	4	02.04.2007 15:21

07.12.2007, 18:16	#2
Domovoy Форумчанин Регистрация: 24.10.2007 Сообщений: 254	Попробуй вот эту функцию Utf8ToAnsi