вопрос по строкам

[CraZZy RabbIt]

есть строка -
C:\Program Files\Borland\Delphi7\Projects
как мне вытащить из этой строки последнее слово - Projects...
путь может быть разным - как и C:\Projects так и до очень большого кол-ва подпапок...

[Joe_Tribbiani]

Тебе нужно именно слово Projects или любое полследнее слово?

[Пепел Феникса]

function GetFolderBeforeLastSlash(str:string):string;
var k:integer; 
     s:string;
begin
 k:=length(str);
 s:='';
 while (K>0)and(str[k]<>'\') do
  begin
   s:=s+str[k];
   k:=k-1;
  end;
 Result:='';
 for k:=length(s) downto 1 do Result:=Result+s[k];
end;

держи=)
вытаскивает все после последнего слэша(но именно \)

[Sazary]

Как вариант:

procedure TForm1.Button1Click(Sender: TObject);
var s,buf : string;
c : char;
i : integer;
begin
s := 'C:\Program Files\Borland\Delphi7\Projects';
buf := '';
for i:=length(s) downto 1 do
 begin
 if s[i]='\' then break;
 buf := buf + s[i];
 end;

for i:=1 to (length(buf) div 2) do
 begin
 c := buf[i];
 buf[i] := buf[length(buf)-i+1];
 buf[length(buf)-i+1] := c;
 end;
ShowMessage(buf);

end;

Еще можно pos искать '\' и выделить подстроку от последнего '\' до конца.

[CraZZy RabbIt]

спасибо,помогли