求一简单算法，要求获得 D:\sd\fd\qdsdf\ee.exe中的sd，即最顶层的目录名，在线等！

Question

如题

Answer 1

这个啊
好做啊
s1:='D:\sd\fd\qdsdf\ee.exe'
s:=copy(s,3,length(s1)-3);
i1:=pos('\',s);
s:=copy(s,0,i1);
你试试，绝对可以！

Answer 2

var
  s1,s:string;
  i1:integer;
begin
s1:='D:\sd\fd\qdsdf\ee.exe';
s:=copy(s1,4,length(s1)-3);
i1:=pos('\',s);
s:=copy(s,0,i1-1);
 caption:=s;

Answer 3

var
  s1,s:string;
  i1:integer;
begin
s1:='D:\sd\fd\qdsdf\ee.exe';
i1:=pos('\',s1);
s:=copy(s1,i1+1,length(s1)-i1+1);
i1:=pos('\',s);
s:=copy(s,0,i1-1);
 caption:=s;

Answer 4

//===============================================================
function GetTopDir(index:string):string;stdcall;
var I_Position:integer;
begin
  result:='';
  I_Position:=pos('\',index);
  if I_Position>0 then
  begin
    result:=copy(index,I_Position+1,length(index)-I_Position);
    I_Position:=pos('\',result);
    if I_Position=0 then exit;
    result:=copy(result,1,I_Position-1);
  end;
end;
//===============================================================
procedure TForm1.Button1Click(Sender: TObject);
var str_return:string;
begin
  str_return:=GetTopDir('D:\1234567890\fd\qdsdf\ee.exe');
  //----------------------------------
  if length(str_return)=0 then
    showmessage('错误')
  else
    showmessage(str_return);
end;

Answer 5

var
  s, s1: string;
begin
  s := 'D:\0sd12345\fd\qdsdf\ee.exe';
  s1 := copy(s, pos('\',s)+1,length(s));
  s1 := copy(s1, 1, pos('\', s1)-1);
  ShowMessage(s1); //看看，这就是你要的！！！！！
end;够简单吧！结了吧！:)