Цитата:
Сообщение от 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;
Заранее благодарю за помощь.