熟悉STRING函数的前辈帮帮我。。。

Question

定义S：string；
连接一个可变长度的字符串，该字符串后面都有个“,”，例如：“桌面,”或者是“桌,”
把该可变字符串付值给S，怎么用DELETE函数删去后面的“，”。

Answer 1

用 pos 函数 查找“,”的位置啊！然后用copy函数把你要的字符串取出来！

Answer 2

var
  s:string
begin
  s:='aaa,'
  s:=strcopy(s,1,length(s)-1);
end;
此时s就为aaa

Answer 3

用delete也可以，这样：
procedure TF_test.Button1Click(Sender: TObject);
var
  s:string;
begin
  s:='aaa,';
  delete(s,length(s),1);
  showmessage(s);end;