用copy截字符串

Question

edit1.text:=100/200/300我想得到edit2.text:=/200/300
就是得到edit1去掉最左边/前面的内容用copy和pos

Answer 1

Edit2.Text:=Copy(Edit1.Text,Pos('/',Edit1.Text),Length(Edit1.Text));

Answer 2

Edit2.Text:=Copy(Edit1.Text,Pos('/',Edit1.Text)+1,Length(Edit1.Text)); 

Answer 3

Edit2.Text:=Copy(Edit1.Text,Pos('/',Edit1.Text),Length(Edit1.Text)-Pos('/',Edit1.Text)); 

Answer 4

Edit2.Text:=Copy(Edit1.Text,Pos('/',Edit1.Text),Length(Edit1.Text) - Pos('/',Edit1.Text) + 1); 

Answer 5

应该加1的
Edit2.Text:=Copy(Edit1.Text,Pos('/',Edit1.Text),Length(Edit1.Text)-Pos('/',Edit1.Text)+1);

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
begin
s:=edit1.Text;
i:=pos('/',s);
edit2.Text:=copy(s,i+1,length(s)-i);
end;