[Freeman]

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

в D7 в sListData (если объявлено как ANSIString) считываются знаки вопроса.

Такого быть не должно. Знаки вопроса говорят о том, что в системе нерусская кодовая страница по умолчанию для программ, не использующих Юникод. Не 1251, короче. Возможно, стоит диверсия с подменой кодовых страниц (1252=с_1251.nls), и она как-то влияет на Excel через SxS, -- это уж совсем в порядке общего бреда.

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

НО как проверить на принадлежность если тип у sListData WIDEString?

Возможны такие выкрутасы а-ля FastCode:

Код:

var
  wChar: WideChar;
begin
  ...
  if (Word(wChar) and $FF00 = $0400) and (Byte(wChar) in [Byte(WideChar('а'))..Byte(WideChar('я'))]) then
  begin
  end;
  if (Word(wChar) and $FF00 = 0) and (Byte(wChar) in [Byte('a')..Byte('z')]) then
  begin
  end;
end;

Но можно написать и что-то более стандартное, вроде:

Код:

begin
  ...
  if (wChar >= WideChar('а')) and (wChar <= WideChar('я')) then
  begin
  end;
  if (wChar >= WideChar('a')) and (wChar <= WideChar('z')) then
  begin
  end;
end;