请教一个关于符号排除的问题(包括空格符)
假设在Memo1里有这样内容： 01,02,03-05-06 07 08 09 请问如何能把数字抽出，不要分割符号？ 符号过滤
[解决办法]
如果是已知的有限个的分隔符，可以用替换函数AnsiReplaceStr，注意在Uses中加入单元：StrUtils
procedure TForm1.Button1Click(Sender: TObject);
var
Temp :string;
begin
Temp:=AnsiReplaceStr(AnsiReplaceStr(AnsiReplaceStr('10,01,02,04-05-06 78 98 ',',',''),'-',''),' ','');
showmessage(Temp);
end;
[解决办法]
lst := TStringList.create;
ExtractStrings([',', '-', ' '], [], PChar(your_string), lst);

for i := 0 to lst.count - 1 do
showmessage(lst[i]);
[解决办法]
var
lst:tstringlist;
begin
lis:=tstringlist.create;
ExtractStrings([',', '-', ' '], [], PChar('01,02,03-05-06 07 08 09'), lst);