一个字符串分隔问题!

[hnflavor]

C:\windows\system\aaa.exe

这是用OpenDailog得到的文件路径!
字符长度不确定,而且目录数也不确定,

我现在要分离成C:\windows\system\ 和 aaa.exe
怎么办?

[chijingde]

rightstr

[surdon]

收集的


////////////////////////////////////////////////////////////////////////
// 包括文件名的路径名中分离出目录名和文件名.
function MPathAndFile(const strFull: String; var strPath, strName: String): Boolean;
var
iCnt, iPos : Integer;
begin
iPos := -1;
for iCnt := 1 to Length(strFull) do begin
if strFull[iCnt] = '\' then iPos := iCnt;
end;
if iPos <> -1 then begin
strPath := Copy(strFull, 1, iPos);
strName := Copy(strFull, iPos+1, Length(strFull)-iPos);
Result := True;
end
else Result := False;
end;

////////////////////////////////////////////////////////////////////////
// 从文件名中分离出名称和扩展名.
function MNameAndExt(const strFull: String; var strName, strExt: String): Boolean;
var
iCnt, iPos : Integer;
begin
iPos := -1;
for iCnt := 1 to Length(strFull) do begin
if strFull[iCnt] = '.' then iPos := iCnt;
end;
if iPos <> -1 then begin
strName := Copy(strFull, 1, iPos-1);
strExt := Copy(strFull, iPos+1, Length(strFull)-iPos);
Result := True;
end
else Result := False;
end;

[merkey2002]

其实挺简单，不过既然有人写好了，就收藏啦

[elilor]

Delphi有现成的
ExtractFilePath('C:\windows\system\aaa.exe');
ExtractFileName('C:\windows\system\aaa.exe');

[smiler007]

ExtractFilePath();
ExtractFileName();