[maxfox123]

Добрый день,

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

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

Код:

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

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

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

Код:

1 2 3 4 5

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:

Код:

1 2 3 4 5 6 7 8 9 10 11

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;

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

Код:

1 2 3 4 5 6 7 8 9

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