Copy字符截取

 

procedure TForm1.Button1Click(Sender: TObject); 
begin
 Edit2.Text:=Copy(Edit1.Text,9,Pos('\r^f',Edit1.Text)-9);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 edit1.text:='^fffffff金创药\r^f';
 edit2.text:='';
end;

通过 Wiz 发布