字符串问题

Question

如下不定字符串
0000002,0000001,8000003,
我想将最后一个','去掉，该怎么写？

Answer 1

引用StrUtils单元
procedure TForm1.Button1Click(Sender: TObject);
var
  S, S2: string;
begin
  S := '0000002,0000001,8000003,';
  S2 := LeftStr(S, Length(S) - 1);
  ShowMessage(S2);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s1,s2 :string;
begin
  s1 := '0000002,0000001,8000003,';
  s2 := copy(s1,1,length(s1)-1);
  showmessage(s2);
end;

Answer 3

var
  tmpS: string;
begin
  tmpS := '0000002,0000001,8000003,';
  Delete(tmpS, Length(tmpS), 1);
  ShowMessage(tmpS);