← →
Leksiy © (2004-10-07 11:19) [0]

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

← →
begin...end © (2004-10-07 11:24) [1]

IncludeTrailingPathDelimiter()

← →
КаПиБаРа © (2004-10-07 11:24) [2]

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

← →
begin...end © (2004-10-07 11:28) [3]

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

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

← →
Gero © (2004-10-07 11:30) [4]

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

{$R+}
S := "";

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

← →
begin...end © (2004-10-07 11:36) [5]

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

Да, точно.

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

RX, fileutil.pas
NormalDir