16,748
社区成员
发帖
与我相关
我的任务
分享
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;
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;