Как укоротить string

[UnD)eaD)Snake]

Есть string. Например ('D:\blabla\blabla\123.exe'). Как можно из него убрать '123.exe', и оставить только 'D:\blabla\blabla\' ?

[pinhead]

С помощью Copy или Delete

[_SERGEYX_]

var Path: string;
begin
Path:=ExtractFileDir('D:\blabla\bla bla\123.exe');
// если последний символ не \ то добавить его
if Path[Length(Path)]<>'\' then Path:=Path+'\';
end;

[SERG1980]

var s1:string;
s1:=ExtractFilePath('D:\blabla\blab la\123.exe');
Результат: 'D:\blabla\blabla\'

[Dude_first]

НУ если тебе надо именно "укоротить" строку адреса файла то смотри первые два ответа. А есле тебе нужно работать с произвольной строкой, то
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;

[UnD)eaD)Snake]

Да мне подошли первые два ответа. Спасибо

[bill]

Если не принципиально то можно еще использовать setlength.