■スレッドリストへ戻る■ 全部 1- 最新50

MonaUtils

65 :turbotypeD@monazilla.org(w :2001/04/10(火) 21:46
IncludeTrailingBackslashのソース。function IncludeTrailingBackslash(const S: string): string;
begin
 Result := S;
 if not IsPathDelimiter(Result, Length(Result)) then Result := Result + '\';
end;

25KB
新着レスの表示

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30