请问delphi中，如何将文件路径按照指定的段截开

[changwen313]

如题，譬如：
我获取到的文件路径是 c:\program files\copia\cbps8\etc\version.ini
我现在想把路径截开，只取“etc\version.ini“ ，请问各位，有没有什么简单的办法实现？

[bdmh]

自己从后找第二个斜杠，用pos取

[wzca]

function MyGetPath(Path: string; PathNum: Integer): string;
var
  i: Integer;
  tmpPath: string;
begin
  Result := ExtractFileName(Path);
  tmpPath := Path;
  for i := 1 to PathNum do
  begin
    tmpPath := ExtractFileDir(tmpPath);
    Result := Format('%s\%s', [ExtractFileName(tmpPath), Result]);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(MyGetPath('c:\program files\copia\cbps8\etc\version.ini', 1));
  // MyGetPath(全路径，要带几层目录);
end;

[s11ss]

var
  s: string;
  I,J: Integer;
begin
  s := 'c:\program files\copia\cbps8\etc\version.ini';
  J:=1;
  for I:=Length(s) downto 1 do
  begin
    if s[I]='\' then
      if J=1 then Inc(J)
      else
      begin
        showmessage(copy(s,I+1,maxint));
        break
      end;
  end;
end;