取字符串中的路径

Question

字符串可能类似这样:C:\Documents and Settings\Administrator\桌面\temp.doc
现在不想要后面的文件名,只取C:\Documents and Settings\Administrator\桌面\
如何做,请指教, 谢谢

Answer 1

ShowMessage(ExtractFilePath('C:\Documents and Settings\Administrator\桌面\temp.doc'));

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  S := SysUtils.ExtractFilePath('C:\Documents and Settings\Administrator\桌面\temp.doc');
  Showmessage(S);
end;

Answer 3

function TForm1.GetPath(opath: string): string;
var tResult:string;
    idx:Integer;
begin    tResult:=opath;
    for idx:=Length(opath)   downto 1 do
      if opath[idx]='\' then
          begin
            SetLength(tResult,idx);
            Break;
          end;
    result:=tResult;
end;