Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

\


Leksiy ©   (2004-10-07 11:19:00) 

помнится была такая функция которая принудительно ставил '\' в конце если его нет ... вопрос кто нить помнит как она называется ?


Семен Сорокин   (2004-10-07 11:54:00) [1]

RX, fileutil.pas
NormalDir


Leksiy   (2004-10-07 11:51:00) [2]

:) ну пошел офтоп ... как функцию написать я могу ... просто в дельфях уже есть такая ... зачем заново изобретать велдосипед :)


begin...end   (2004-10-07 11:36:00) [3]


> [4] Gero ©   (07.10.04 11:30)

Да, точно.


Gero   (2004-10-07 11:30:00) [4]


> begin...end ©   (07.10.04 11:28)

{$R+}
S := '';

Нехорошо получится.


begin...end   (2004-10-07 11:28:00) [5]


> if Copy(S, Length(s), 1) <> '\' then s := s + 1;

if S[Length(S)] <> '\' then S := S + '\'


begin...end   (2004-10-07 11:24:00) [6]

IncludeTrailingPathDelimiter()


КаПиБаРа   (2004-10-07 11:24:00) [7]

if Copy(S, Length(s), 1) <> '\' then s := s + 1;


Наверх

Титульная страница Поиск, карта сайта Написать письмо