Различное поведение в зависимости от юнита.

← →
Riply © (2007-10-03 21:55) [0]

Здравствуйте !
В большом проекте есть два больших юнита и две не правильные функции:

function PCharToWideStr(const pSour: PChar; const aLen: integer): WideString; begin SetLength(Result, aLen); if aLen > 0 then Result[MultiByteToWideChar(CP_ACP, 0, pSour, aLen + 1, PWideChar(Result), aLen)] := #0; end; function PCharToWideStr(const pSour: PChar): WideString; begin Result := PCharToWideStr(pSour, LstrLen(pSour)); end; При вызове var MyStr: string; begin MyStr := "bla-bla"; PCharToWideStr(PChar(MyStr));

из одного юнита, получаем исключение Range check error,
а при вызове из другого это дело проскакивает без ошибки.
В чем может быть разница ?
P.S.
Директивы в юнитах не отличаються, все "используемые внутри" ф-ии
не переписаны и вызываются из правильных мест.

← →
tesseract © (2007-10-03 22:13) [1]

> В чем может быть разница ?

А может переписать её как в хелпе приводится и всё заработает ? Например направо и налево не приводить result к разным типам данных, Я так думаю что просто в одном модуле кодировка строки в русской раскладке встречаeться - и получаете свой RangeCheck.

← →
Riply © (2007-10-03 22:18) [2]

> [1] tesseract © (03.10.07 22:13)
> А может переписать её как в хелпе приводится и всё заработает ?
Переписать не проблемма. Важнее понять причину.
Если бы разница была, например, в том, что в одном юните
мы портим нужную память, а в другом - "не нужную", то и исключение
было бы наверное другим ?

← →
tesseract © (2007-10-03 22:20) [3]

Не портите вы память, вы её не выделяете под result, и даже размера необходимого не запрашиваете, см справку.

>[1] tesseract © (03.10.07 22:13)
> Я так думаю что просто в одном модуле кодировка строки в русской раскладке
> встречаeться - и получаете свой RangeCheck.
Не поняла. Где-то в совершенно другом месте юнита "кодировка строки в русской раскладке" ?
Вызываю-то я с одним и тем же параметром.

> Riply © (03.10.07 21:55)

> В чем может быть разница ?

Истинный путь программиста - Дао, и он единственный.
Ложных путей может быть бесконечно много
и стоит ли тратить жизнь на их исследование?

На месте компилятора я бы даже не стал компилировать
приведенный код. А от lstrlen хочется плакать.

Ставь задачу как положено,
и еще раз: энергия Вселенной постоянна,
а энтропия постоянно возрастает.

--
Regards, LVT.

Различное поведение в зависимости от юнита. Найти похожие ветки