[cadil]

Есть код, который успешно компилируется в 7SE. В новых компиляторах (у меня это Delphi XE7), в которых разработчики продукта перешли на универсальную кодировку UTF8?, некоторые команды с переменной String читаются неверно.
Например,

Код:

function HConvert(E:TEdit; var H:Byte):Boolean;
var Hp:Byte; S:String; Error:Boolean;
begin
 Hp:=H; Result:=true;
 Error:=false;
 S:=UpperCase(E.Text);
 case length(S) of
 1: if ConvD(S[1])>=0 then H:=ConvD(S[1])
                     else Error:=true;
...

Помогите записать этот фрагмент кода, если S:AnsiString; или S:RawByteString;
Заранее благодарю за помощь.

[Kailon]

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

некоторые команды с переменной String читаются неверно.

Как это не верно?

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

если S:AnsiString

AnsiUpperCase

[cadil]

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

Как это не верно?AnsiUpperCase

Каюсь. Неправильно пояснил суть проблемы. Если в исходнике принудительно заменить String на AnsiString, Char на AnsiChar, то все в XE7 компилируется, но по другому пути, чем в SE7. Впрочем, как и со String и Char. Причиной может быть, как пишут в нете:

Все зависит от того на какой версии Дельфи ты компилишь данный код, если на ANSI, то один символ = один байт, если на Unicode, то один символ - два байта.

Вопрос "символ - один или два байта", я планирую решить по схеме (может, это и неверно):

Код:

function HConvert(E:TEdit; var H:Byte):Boolean;
var Hp:Byte; S:String; Error:Boolean;
begin
 Hp:=H; Result:=true;
 Error:=false;
 S:=UpperCase(E.Text);
S:= RawByteString(S);  //!
 case ??? of
 1: if ConvD(S[1])>=0 then H:=ConvD(S[1])
                     else Error:=true;
...

Как вместо ??? записать переменную S в новом формате RawByteString?

[lmikle]

Я тебе в другой ветке ответил.
Думаю так пройдет (нет под рукой, что бы проверить):

Код:

function HConvert(E:TEdit; var H:Byte):Boolean;
var Hp:Byte; S:AnsiString; Error:Boolean;
begin
 Hp:=H; Result:=true;
 Error:=false;
 S := E.Text;
 S:=AnsiUpperCase(S);
 If Length(S) = 1 Then
   Begin
     if ConvD(S[1])>=0 then H:=ConvD(S[1])
                       else Error:=true;
   End;

[cadil]

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

Я тебе в другой ветке ответил.
Думаю так пройдет (нет под рукой, что бы проверить):

Спасибо!
Проверил - код корректный, но кака было, кака - есть. Похоже, на этом направлении - переназначении свойств переменных придется ставить крест.
Я прочитал твой пост в другой ветке. Сейчас упакую проект и вышлю тебе на личку.

[lmikle]

не обещаю, что будет время ковыряться...

[cadil]

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

не обещаю, что будет время ковыряться...

Будет время и настроение - взгляни.