Переписать функцию

[brownb]

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

Какую версию Delphi используете ?
Просто эта ваша ошибка компиляции возникла из-за этого ...

XE7

[Kotofff]

Я конечно извиняюсь...но зачем вам XE7 ?
Там ведь все по-другому...

Читайте 8-й пост Arigato : http://www.programmersforum.ru/showthread.php?t=240021
Читайте 4-й пост Квэнди : http://www.programmersforum.ru/showthread.php?t=59904

Да и вот вам "настольная книга" по вашему XE7:
http://docwiki.embarcadero.com/Libra.../en/System.Pos
... там есть поиск ...

[Alex11223]

По-другому чем где?
Зачем использовать Дельфи 15-летней давности?

[kropotkina-alice]

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

Какую версию Delphi используете ?
Просто эта ваша ошибка компиляции возникла из-за этого ...

Судя по ошибкам, это ХЕ.
У меня ее нет, поэтому и отошла в сторону

[7in]

brownb, странное поведение компилятора, честно говоря.
Вероятно, проблема с расхождением типов строк host и Match[i], компилятор не знает какой из вариантов функции Pos ему использовать. Хотя всё равно странно, должен преобразовывать автоматом. Но раз ошибка есть, то варианты следующие:
1. Перекомпилировать regexpr.pas (возможно, он откомпилен старой версией Delphi)
2. Сделать преобразование типов: Pos(host, String(reg.Match[2]))

Использовать старые версии Delphi (например, 7 или 2007) иногда есть смысл. Во-первых, программы получаются значительно меньшего размера (правда, сегодня это не так критично), во-вторых, при работе с UnicodeString есть свои особенности, которые не всегда могут быть удобны.

[Alex11223]

Сообщение от 7in

при работе с UnicodeString есть свои особенности, которые не всегда могут быть удобны.

Ну там же есть AnsiString и т.п. если надо.

[7in]

{$APPTYPE CONSOLE}
var S: AnsiString;
begin
  ReadLn(S);
  WriteLn(S);
  ReadLn;
end.

Попробуй запустить это из XE2+ и ввести строку по-русски.

[Alex11223]

Так в консоли винды вообще сложно с не английскими символами, причем тут ХЕ2
Надо вызывать всякие SetConsoleCP, setlocale и т.п.

[7in]

Да это понятно, что всё решается одним вызовом SetConsoleCP, это пример просто
p.s. XE2 при том, что начиная с него codepage по умолчанию 866.

[Alex11223]

А до ХЕ2? А если запустить на винде с не русской локалью?