[cadil]

Программа - USB-термометр более-менее успешно компилируется DELPHI 7SE.
Этот же проект запускается (компилируется) редактором Delphi XE7, но COM-порт, к которому подключен термометр - не распознается.
Для наглядности - во вложении скрин. Из первой картинки видно, что при компиляции DELPHI 7SE порт СОМ1, к которому подключено устройство, распознается (порт в меню выделен цветом). С Delphi XE7 я не могу добиться распознавания порта (последняя картинка).
Помогите решить эту проблему с распознаванием порта. Заранее благодарю.
И еще ... Аналогичная проблема была и с Delphi 2009. Думаю - мудрит Embarcadero: более поздняя версия продукта не всегда поддерживает проекты, собранные на более ранних версиях.

[lmikle]

Видимо, опять непонятки с AnsiString и UnicodeString.

[cadil]

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

Видимо, опять непонятки с AnsiString и UnicodeString.

Почитал об этой проблеме тут -Delphi и кодировка Unicode. Вопрос очень серьезный. Посоветуйте - как решить эту проблему? Спасибо!

[lmikle]

Принудительно указать тип AnsiString вместо String.

[cadil]

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

Принудительно указать тип AnsiString вместо String.

Заменил тип String на AnsiString и Char на AnsiChar.
Проект на ХЕ7 компилируется, но с тем же отрицательным результатом - СОМ-порт не распознается, на 7SE - проект без проблем запускается и с новым типом переменных.
Какие версии еще стоит проверить, где копать?

[lmikle]

Покажи код - как ты определяешь порт.
Может там еще надо и др. функцию использовать принудительно (xxxA, а не xxxW, на которую замаплена оригинальная xxx).

И, кстати, вот еще почитай:
http://stackoverflow.com/questions/1...ports-in-win32

[cadil]

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

Принудительно указать тип AnsiString вместо String.

lmikle!
Ты был прав! При принудительной замене String на AnsiString, команды, где используются массивы, не выполняются. Например,

Код:

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:= AnsiString(S);
 case length(S) of
 1: if ConvD(S[1])>=0 then H:=ConvD(S[1])
                     else Error:=true;
...

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