菜鸟问题:如何过滤字串中所有的逗号？

Question

pos()
delete()
两个函数可以搞定，

Answer 1

pos可以找到，的位置，用delete（）可以删除指定位置的，
然后使用循环找到一个，删除一个，函数具体用法看一下帮助就知道了

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
begin
    s:='123,13';
    delete(s,pos(',',s),1);
    showmessage(s);
end;

Answer 3

delete('123,332,433,323',',',1);

Answer 4

var OldStr,NewStr:string;
begin
    ..;
    NewStr := StringReplace(OldStr,',','',[rfReplaceAll]);
    ..;
end;

Answer 5

可以用这个方法进行循环
subStr := LeftStr(Str, 3);                 //add to array
Str    := RightStr(Str, Length(Str) - 3);  

Answer 6

use TStringListprocedure ExtractItems(S: string; L: TStrings; Seperator: string = ',');
var
  sTmp: string;
  i: integer;
begin
  L.Clear;
  sTmp := '';
  for i := 1 to Length(S) do begin
    if S[i] <> Seperator then begin
      sTmp := sTmp + S[i];
    end else begin
      L.Add(sTmp);
      sTmp := '';
    end;
  end;
  L.Add(sTmp);
end;Example:
var
  lst: TStringList;
  i: integer;
  ss: string;
begin
  ss := '123,456,789';
  lst := TStringList.Create;
  ExtractItems(ss, lst);
  for i := 0 to lst.Count - 1 do begin
    //lst.strings[i] = 123 or 456 or 789
  end;
  lst.Free;
end;