请问如何能把一个用,隔开的字符串中最后一个逗号和以后的字符给删除掉？

Question

字符串变量中存有很多以,分隔的这种形式'*'的字符

Answer 1

pos,copy,delete等函数，楼主应当具体点。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var S,subStr: String;
    SL : TStringList;
    len: integer;
begin
  S := 'fhfgg,gfhf,mllllllllllllln';  SL := TStringList.create;
  try
    ExtractStrings([','],[' '],pchar(S),SL);
    subStr := SL.Strings[SL.Count-1];
  finally
    SL.Free;
  end;
  len := Length(subStr);
  Delete(S,Length(S)-len,len+1);
  showMessage(S);
end;

Answer 3

调试通过。
function Substr(sSource : string) : string;
var i : integer;
    str : string;
begin
  str := sSource;
  i := pos(',',str);
  while i <> 0 do
  begin
    str := copy(str,i + 1,length(str)- i);
    i := pos(',',str);
  end;
  str := copy(sSource,1,length(sSource)-length(str)-1);
  result := str;
end;

Answer 4

呵呵，就是灵活运用Copy，Pos和Delete