ERangeError on Delphi XE

Question

Я переношу программное обеспечение из Delphi 5 в Delphi XE. Я уже исправил много различий, и теперь я могу скомпилировать свой код.

Проблема в том, что иногда (в некоторых местах кода) я получаю сообщение об ошибке «Ошибка проверки диапазона».

Для Exemple, в этом коде:

function CopyChar(Ori : string; var Des : Array of char) : Boolean; 
var Msg  : string; 
    Counter : integer; 
    SizeDes : integer; 
begin 
    SizeDes:= SizeOf(Des); 
    for Counter:= 1 to SizeDes do begin 
     Des[Counter-1]:= ' '; 
    end; 
    Ori:= Trim(Ori); 
    Msg:= ''; 
    SizeDes:= Min(Length(Ori),SizeDes); 
    for Counter:= 1 to SizeDes do begin 
     Des[Counter-1]:= char(Ori[Counter]); 
    end; 
    CopyChar:= True; 
end; 

я получаю ошибку во время выполнения при прохождении по линии Des [Counter-1]: = ' «; Ошибка возникает не в первый раз, когда она проходит через цикл, но после много раз.

Я попытался отключить Rance Checking ($ R), но он делает nos решает мою проблему. Я также пытался изменить тип «Counter» на Cardinal и LongWord, без успеха

Я был бы рад за любую полезную идею!

Спасибо.

Answer 1

Код должен читать что-то вроде этого:

function CopyChar(Ori : string; var Des : Array of char) : Boolean; 
var Msg  : string; 
    Counter : integer; 
    LenDes : integer; 
begin 
    LenDes:= Length(Des); 
    for Counter:= 1 to LenDes do begin 
     Des[Counter-1]:= ' '; 
    end; 
    Ori:= Trim(Ori); 
    Msg:= ''; 
    LenDes:= Min(Length(Ori),LenDes); 
    for Counter:= 1 to LenDes do begin 
     Des[Counter-1]:= char(Ori[Counter]); 
    end; 
    CopyChar:= True; 
end; 

Я думаю, ваша проблема связана с Char в настоящее время 2 байта в ширину (в Delphi 5 это 1 байт в ширину), хотя я никогда не использовал SizeOf на открытый массив и даже не знаю, что он делает!

В этом коде есть пара других проблем. Возвращаемое значение кажется немного бессмысленным, поскольку оно может только вернуть True. Это также может быть несколько сжат так:

procedure CopyChar(Ori: string; var Des: array of char); 
var 
    i: Integer; 
begin 
    Ori := Trim(Ori); 
    for i := 1 to Length(Des) do begin 
    if i<=Length(Ori) then 
     Des[i-1] := Ori[i]; 
    else 
     Des[i-1] := ' '; 
    end; 
end; 

Answer 2

Другая проблема может быть поврежден вход либо Оп или дез, так что если проблема не будет решена путем решения Davids, вы должны проверить код вызова, тоже.