|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.04.2011, 23:16 | #1 |
Регистрация: 11.01.2009
Сообщений: 3
|
разработать описание функции
Исходные данные:
function FormatFilePath(FilePath, Mask: String): String; var Disc, Directory, FileName, Extension: String; begin // Удалить ведущие и хвостовые пробелы FilePath := Trim(FilePath); try // В полном имени файла FilePath найти: // 1) имя диска (не работает, если FilePath - сетевой путь) Disc := GetFirstRegExpMatch(FilePath, '^([A-Z]{1}):\\'); // 2) директорию Directory := GetFirstRegExpMatch(FilePath, '^[A-Z]{1}:\\(.*)\\[^\\]+'); // 3) имя файла FileName := GetFirstRegExpMatch(FilePath, '^[A-Z]{1}:\\.*\\([^\\]+)\.[^\.\\]+$'); // 4) расширение файла Extension := GetFirstRegExpMatch(FilePath, '^[A-Z]{1}:\\.*\\[^\\]+\.([^\.\\]+)$'); except // Если полное имя файла задано не верно, вернуть пустую строку Result := ''; Exit; end; // Скомпоновать полученные значения (диск, директорию, имя файла и расширение) // в строку, как указано в маске Mask Result := Mask; // Заменить %D на имя диска Result := Replace(Result, '%D', Disc); // Заменить %P на путь Result := Replace(Result, '%P', Directory); // Заменить %N на имя файла Result := Replace(Result, '%N', FileName); // Заменить %E на расширение Result := Replace(Result, '%E', Extension); end; С чего начать? |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
разработать описание функции | ufk18 | Помощь студентам | 0 | 19.04.2011 22:59 |
Описание функции | ufk18 | Помощь студентам | 0 | 19.04.2011 21:36 |
Описание функции | A_Orlov | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 14.06.2010 14:48 |
Чем отличается описание функции от определения функции в С++? | Go6a | Помощь студентам | 4 | 18.07.2009 18:07 |