一字符串如下：sdff(为你）请问如何取（前的字符，

Question

用什么方法可得到上字符串（前的sdff，请各位指点，有代码最好。

Answer 1

uses StrUtils;
Edit2.Text:=LeftStr(Edit1.Text,4);

Answer 2

var
  i:integer;
  tempStr,getstr:string;
begin
  tempStr:='sdff(为你）' ;
  i:= Pos('(', tempStr)  ;
  getstr:=copy(tempStr,1,Length(tempStr)-i-2);
 // Edit1.Text:=getstr;
end;

Answer 3

用Imj2003(西才)的方法好,但要修正一下：
Function GetSubStr(tempStr:string):string
var
  i:integer;
begin
  getstr:='';
  i:= Pos('(', tempStr)  ;
  If (i<=Length(tempStr)) then getstr:=copy(tempStr,1,i-1);
  Result:=getstr;
end;

Answer 4

Function GetSubStr(tempStr:string):string
var
  i:integer;
begin
  getstr:='';
  i:= Pos('(', tempStr)  ;
  If (i<=Length(tempStr)) then getstr:=copy(tempStr,1,i-1);
  Result:=getstr;
end;
是可以的

Answer 5

lmj2003(西才) 的正确！俺就不重复了：）