[maxfox123]

Добрый день,

Предисловие: понимаю что вопрос дурацкий, но все таки помогите пожалуйста.

Вопрос1:
необходимо портировать программу с Delphi6 на Delphi 7. (Смысл программы в чтении и обработки екселевских файлов)
в D6 при объявлении переменной sListData как ANSIString при выполнении ниже приведенной операции

Код:

// получение значения из ячейки екселя
sListData := RangeMatrix[iCurrRow, iCurrCol];

в sListData попадают реальные значения из файла. НО при выполнении такой же операции в D7 в sListData (если объявлено как ANSIString) считываются знаки вопроса.
в D7 при объявлении переменной sListData как WIDEString, в sListData попадают реальные значения из файла. Как в Delphi 7 считать нормальные данные в ANSIString?

Вопрос2:
Я проверяю значение полученное в sListData на принадлежность множествам «только цифры», «только русские буквы» , «только английские буквы»
с ANSIstring это просто

Код:

sChar			: Char;
sChar			:= sListData [1];

If(Not(sChar in ['а'..'я']))  then Begin End;
If(Not(sChar in ['a'..'z']))  then Begin End;

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

[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;