|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.09.2007, 10:19 | #1 |
Форумчанин Подтвердите свой е-майл
Регистрация: 07.07.2007
Сообщений: 241
|
Как укоротить string
Есть string. Например ('D:\blabla\blabla\123.exe'). Как можно из него убрать '123.exe', и оставить только 'D:\blabla\blabla\' ?
|
03.09.2007, 10:24 | #2 |
Пользователь
Регистрация: 08.12.2006
Сообщений: 36
|
С помощью Copy или Delete
Знание этого – Мудрость.
Умение этим пользоваться – Искусство. |
03.09.2007, 11:06 | #3 |
Участник клуба
Регистрация: 07.07.2007
Сообщений: 1,518
|
var Path: string;
begin Path:=ExtractFileDir('D:\blabla\bla bla\123.exe'); // если последний символ не \ то добавить его if Path[Length(Path)]<>'\' then Path:=Path+'\'; end; |
03.09.2007, 11:20 | #4 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
var s1:string;
s1:=ExtractFilePath('D:\blabla\blab la\123.exe'); Результат: 'D:\blabla\blabla\' |
03.09.2007, 14:09 | #5 |
Пользователь
Регистрация: 30.08.2007
Сообщений: 25
|
НУ если тебе надо именно "укоротить" строку адреса файла то смотри первые два ответа. А есле тебе нужно работать с произвольной строкой, то
delete(Строка, р, n) Строка — переменная или константа строкового типа; р — номер символа, с которого начинается удаляемая подстрока ; n — длина удаляемой подстроки. Для поиска можешь использовать функцию pos(Подстрока,Строка) Строка- Где строка Подстрока - что ищем пр var x,h:word; const p = '123.exe'; begin h:=length(p); x:=pos('D:\blabla\blabla\123.exe', '123.exe'); delete('D:\blabla\blabla\123.exe',x ,h); end; |
03.09.2007, 20:17 | #6 |
Форумчанин Подтвердите свой е-майл
Регистрация: 07.07.2007
Сообщений: 241
|
Да мне подошли первые два ответа. Спасибо
|
04.09.2007, 17:18 | #7 |
Форумчанин
Регистрация: 26.04.2007
Сообщений: 440
|
Если не принципиально то можно еще использовать setlength.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Укоротить код | Shouldercannon | Общие вопросы Delphi | 7 | 11.07.2008 14:31 |
Вопрос по String | Родион | Общие вопросы Delphi | 4 | 13.05.2008 15:34 |
Currency-string | Blackmore | Общие вопросы Delphi | 1 | 11.05.2008 09:22 |
string | medik | Помощь студентам | 12 | 29.10.2007 17:33 |
TTabSheet и String | UnD)eaD)Snake | Общие вопросы Delphi | 2 | 04.09.2007 17:59 |