Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.10.28;
Скачать: [xml.tar.bz2];

Вниз

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

 
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, и даже размера  необходимого не запрашиваете, см справку.


 
Riply ©   (2007-10-03 22:21) [4]

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


 
Leonid Troyanovsky ©   (2007-10-04 09:21) [5]


> Riply ©   (03.10.07 21:55)  

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

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

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

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

--
Regards, LVT.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.10.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.162 c
2-1191307093
amily
2007-10-02 10:38
2007.10.28
строки на БД


3-1182402966
Xmen
2007-06-21 09:16
2007.10.28
TreeView и данные из таблицы


1-1187084696
kudatsky
2007-08-14 13:44
2007.10.28
Запуск Winrar с командной строкой


2-1191494799
Mariya
2007-10-04 14:46
2007.10.28
Вместо Yes - Да


1-1186990648
MultIfleX
2007-08-13 11:37
2007.10.28
Неактивируемое окно





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский