我想在edit2,edit3中显示edit1中的指定字符,对不起我没有多少分可以给了

Question

我想在edit2,edit3中显示edit1中的指定字符比如:
edit1.text='a 2121/2 bfe 1234/5678 ca 1234/567890 df 12354568 .....' 
 我想在edit2.text中显示ca 后面的4个字符(1234).
在edit3.text中显示 bfe 后面的6个字符(1234/56).数字不固定,有变化,但字母不变.中间不包(空格)是我加的,就是为了大家好认一点;
我刚学这门语言不久,尽量用一些简单些的,请高手帮忙.
对不起我没有多少分可以给了
 

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin  edit1.text := 'a2121/2bfe1234/5678ca1234/567890df12354568 .....';
  i := Pos('ca',Edit1.Text);
  if i <> 0 then
    Edit2.Text := Copy(Edit1.Text,i + 2,4);
  i := Pos('bfe', Edit1.Text);
  if i <> 0 then
    Edit3.Text := Copy(Edit1.Text,i + 3,4);
end;