rightstr函数问题

Question

acceptstr=192.168.18.24，dfa
sendid:=Leftstr(acceptstr,AnsiPos('，',acceptstr)-1);
sendid可以获取192.168.18.24
那如何通过rightstr函数dfa

Answer 1

dfa := RightStr(acceptstr, Length(acceptstr) - AnsiPos('，',acceptstr));

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  acceptstr,sendid,str:string;
begin
  acceptstr:='192.168.18.24，dfa';
  sendid:=Leftstr(acceptstr,AnsiPos('，',acceptstr)-1);
  str:=rightstr(acceptstr,length(acceptstr)-AnsiPos('，',acceptstr)-1);
  showmessage(str);
end;