Делфи ХЕ5 удаляет не те символы в строке.

[Алексей_2012]

Здравствуйте! У меня проблема с Делфи ХЕ5, удаляет не то, что нужно, оставляя пустую строку, а делфи 7 удаляет не нужные символы отлично, не знаю в чем может быть проблема, в общем в строке нужно убрать весь мусор, кроме букв и цифр, делаю так:

 for ii :=length(s) downto 1 do
          if  not (s[ii] in ['A'..'Z','a'..'z','А'..'Я','а'..'я','0'..'9']) then  delete(s,ii,1);

на делфи 7 работает отлично, на Делфи хе5-нет(( в чем может быть проблема?

[Stilet]

оставляя пустую строку

Значит в этой строке нет указанных символов
Почему? Возможно потому что эти символы в исходнике в юникоде, а сама строка ANSI. Это к примеру.

Кстати: Используй регулярные выражения, это сейчас модно, да и надежнее будет их для такой задачи использовать.

[Алексей_2012]

думаю это не представляется возможным, мне нужно убрать все символы, чтобы tstringlist сохранил файл, ну есть идея коненчо проверить всю строку без удаления чего-то, и вывести ошибку с выходом из процедур, но лучше удалять конечно, посмотрите проект, на 7 работает отлично, но внешний вид не айс, а на ХЕ5 ступор, кнопка "Создать смету"

[Stilet]

Можешь рассказать зачем удалять все символы алфавита?

[Алексей_2012]

Там не удаляются все символы алфавита, а наоборот, удаляется все кроме цифр букв английского и русского алфавита

[Stilet]

а наоборот, удаляется все кроме цифр букв английского и русского алфавита

Ой, ну извини, перепутал когда писал.
Все равно вопрос: Зачем.

[Алексей_2012]

я же ведь объяснял зачем, если есть символы типа ., "";''" файл не сохраняется (через Tstringlist)

[northener]

Сообщение от Алексей_2012

Здравствуйте! У меня проблема с Делфи ХЕ5, удаляет не то, что нужно, оставляя пустую строку, а делфи 7 удаляет не нужные символы отлично, не знаю в чем может быть проблема, в общем в строке нужно убрать весь мусор, кроме букв и цифр, делаю так:

 for ii :=length(s) downto 1 do
          if  not (s[ii] in ['A'..'Z','a'..'z','А'..'Я','а'..'я','0'..'9']) then  delete(s,ii,1);

на делфи 7 работает отлично, на Делфи хе5-нет(( в чем может быть проблема?

Проблема в использовании set of char в дельфи2009+. Ну никак не влезают неанглийские символы во множество.

[Алексей_2012]

и что вы предлагаете?

[northener]

Сообщение от Алексей_2012

и что вы предлагаете?

Не знаю, может кто-нибудь уже нашел красивое решение такой проблемы. Я сам с юникодом не работаю. Попробуй так

if  not (AnsiChar(Lo(Ord(s[ii]))) in ['A'..'Z','a'..'z','А'..'Я','а'..'я','0'..'9']) then  delete(s,ii,1);