如題，譬如：
我獲取到的檔案路徑是 c:\program files\copia\cbps8\etc\version.ini
我現在想把路徑截開，只取“etc\version.ini“ ，請問各位，有沒有什么簡單的辦法實作？
uj5u.com熱心網友回復：
自己從后找第二個斜杠，用pos取uj5u.com熱心網友回復：
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;
uj5u.com熱心網友回復：
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;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/130903.html
標籤：語言基礎/算法/系統設計