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;




posted @ 2012-05-30 11:01  XE2011  阅读(119)  评论(0编辑  收藏  举报