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 发布