字符位置问题（简单的问题，急等，在线给分）

Question

意思就是比如这样一个字符串：;oajgoiergoiejrgo,我要把第一个分号去掉，如何解决

Answer 1

用posvar
  str, lStr: string;
  mPos: integer;  
begin
  str := ';oajgoiergoiejrgo';
  mPos := pos(';', str);
  lStr := Copy(str, mPos+1, Length(str)-mPos);
end;

Answer 2

这样不可以，要是字符串是这样：jflfjjaf;fhwehfowhef的，我又不想取出分号呢？

Answer 3

什么意思啊？你能举例吗？
；oajgoiergoiejrgo=====oajgoiergoiejrgo
56；oajgoiergoiejrgo===56；oajgoiergoiejrgo 是吗？

Answer 4

判斷一下位置
if pos('；'str)=1 then
begin
  delete(str,1,1);
end;

Answer 5

老大，那也简单呀，
你取第一个字符，看是不是分号，
如果是就删除，如果不是就删除，这样不就得了？
var
  str, lStr: string;
begin
  str := ';oajgoiergoiejrgo';
  if Copy(str, 1, 1)=';' then begin
     lStr := Copy(str, 2, length(str)-1);
  end else
     lStr := str;  ShowMessage(lStr);
end;