Question

delphi 如何截取最后一个斜线前面的文字？

如：D:\Downloads\InnoExtractor\setup.exe 需要获取的结果是D:\Downloads\InnoExtractor，谢谢

Answer 1

var
	s,s1:string;
	i,len:integer;
begin
	s:='D:\Downloads\InnoExtractor\setup.exe';
	len:=length(s);
	for i:=len downto 1 do if s[i]='\' then break;
	s1:=copy(s,1,i-1);
	writeln(s1);
end.