有没有快速从字符串 'A*B*C' 中快速 提取 字符 'B'啊

Question

其中‘*’号是分隔符，A、B、C中可能有汉字的。

Answer 1

var
  s: WideString;begin
  s := 'A*撒*D';
  showmessage(s[3]);

Answer 2

哈哈，笨方法了。
var
  S,Sub:string;
begin
  S:='A*B*C';
  S:=copy(S,1,pos('*',S)-1);
  Sub:=copy(S,1,pos('*',S)-1);end;

Answer 3

var
  s: WideString;begin
  s := 'A*撒*D';
  showmessage(s[3]);
-----------------------------
同意这个

Answer 4

忘了说了，A 　B　C  是任意的， 但是可能保证不包含分隔符

Answer 5

var i:integer;s,sub:string;
 s:='a*b*c';
 for i:=0 to length(s) do
 begin
  sub:=copy(s,1,i);
 if sub='B' then exit;
  sub='';
 end;

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  s,str: WideString;
 i:integer;
begin
  s := '好A*好B好*C好';
  for i:=1 to length(s) do
  begin
    if s[i]='*' then break;
  end;
  i:=i+1;
  str:='';
  while s[i]<>'*' do
  begin
    str:=str+s[i];
    i:=i+1;
  end;
  edit1.Text:=str;
end;
end.

Answer 7

var i:integer;s,sub:string;
 s:='a*书*c';
 for i:=1 to length(s) do
 begin
  sub:=copy(s,1,i);
 if sub='书' then exit;
  sub='';
 end;