要不这样，用COPY函数，一行一行的判断，一个一个字符的查:
var
v:tstrings;
s:string;
i,j:integer;
begin
memo1.loadfromfile(你的文本文件);
v:=tliststring.create;]
for i:=0 to memo1.lines.count-1 do
begin
s:=memo1.lines;
for j:=length(s) downto 1 do
begin
if copy(s,j,1)=',' then
if j=length(s) then
s:=copy(s,1,j-1)
else
s:=copy(s,1,j-1)+copy(s,j+1,length(s)-j);
end;
v.add(s);
end;
v.savetofile(去掉‘，’后的文件);
end;
我就在大富翁上试写的，不知道行不，如果不行，请高手改改？
