怎样对字符串进行拆分操作？（老大快一点，我等着要）

Question

b:= Copy(s, 1, Pos('(', s) - 1);

Answer 1

或
b:= Copy(s, 1, Length(s) - 3);

Answer 2

还有
b := s;
Delete(b, Length(b) - 2, 3);

Answer 3

to dq(独轻):
谢谢你，我马上给分

Answer 4

var
  s,b:String;
  TmpString:String;
  TempArr:array[1..26] of String;
  I:Integer;
begin
  TempArr[1]:='A';
  TempArr[2]:='B';
  ....
  TempArr[26]:='Z';
  s := 'fsdfjsdkf(A)';
  for i:=1 to 26 do
  begin
    if Pos('('+TempArr[i]+')',s)<>0 then
      TmpString := Copy(s,1,Pos('('+TempArr[i]+')',s)-1);
  end;
  b := TmpString;
  Showmessage(b);
end;

Answer 5

b:=copy(s,1,length(s)-1);
我试过，肯定可以！

Answer 6

：　tikkypeng(千两狂死郎)，你搞的太复杂了吧。

Answer 7

简单一点，用一个循环
s='fsdfjsdkf(A)';var 
  i:integer;
  s1:string;
begin 
   s1 := '';
   i := 1;
   while not  ((i >length(s)) or (s[1]='(')) do   
    begin 
     s1 := s1 + s[i]; 
     i := i +1;
  end;
end;  s1的值不就是你所要吗？

Answer 8

简单一点，用一个循环
s='fsdfjsdkf(A)';var 
  i:integer;
  s1:string;
begin 
   s1 := '';
   i := 1;
   while not  ((i >length(s)) or (s[1]='(')) do   
    begin 
     s1 := s1 + s[i]; 
     i := i +1;
  end;
end;  s1的值不就是你所要吗？