Auslogics: работа и отзывы о работе
Вы хотите отреагировать на этот пост ? Создайте аккаунт всего в несколько кликов или войдите на форум.

Пример кода №5

Участников: 3

Перейти вниз

Пример кода №5 Empty Пример кода №5

Сообщение автор Marina-T Чт Ноя 05, 2015 10:40 pm

Код:

...
if(lkPath[Length(lkPath)] <> '\')then
lkPath := lkPath + '\';
...

Код показывает плохое знание системных модулей, т.к. для данной операции есть стандартная функция IncludeTrailingPathDelimiter. Также приведенный пример кода не защищен от ошибки в случае строки с нулевой длиной.
Marina-T
Marina-T
Admin

Сообщения : 33
Дата регистрации : 2015-11-04
Возраст : 37

https://auslogics.forum2x2.ru

Вернуться к началу Перейти вниз

Пример кода №5 Empty Re: Пример кода №5

Сообщение автор SmartGuy Пн Ноя 23, 2015 10:08 pm

Кроме того код не кросплатформенный. С тенденцией Delphi в сторону кросплатформы, лучше изначально писать код, который будет работать везде. Возможно он еще пригодится.

SmartGuy

Сообщения : 5
Дата регистрации : 2015-11-20

Вернуться к началу Перейти вниз

Пример кода №5 Empty Re: Пример кода №5

Сообщение автор DELPHI team Auslogics Вт Ноя 24, 2015 10:42 pm

Данный пример показывает неверное использование. В комментарии сказано, что нужно использовать функцию IncludeTrailingPathDelimiter, которая и является кросплатформенной.
DELPHI team Auslogics
DELPHI team Auslogics

Сообщения : 11
Дата регистрации : 2015-11-21

Вернуться к началу Перейти вниз

Вернуться к началу

- Похожие темы

 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения