请教一个delphi操作文本文件的问题

Question

我有一个文本文件，内容如下：
11，22，33，44，55
66，77，88，99，00
总共有很多行，每行的格式都是一样的。现在想把每行的第一个“，”去掉，变成如下形式：
1122，33，44，55
6677，88，99，00请问一下该怎么编写？用delphi语言，另外改写好的文本还需要重新保存。

Answer 1

读写文件会的吧
F: TextFile每一行readln 用pos定位第一个“，”出现的位置 把“，”去掉

Answer 2

用readln方法，把“，”去掉后，如何再保存回去？原先我是用stringlist读出文本，然后用delete方法去掉每行第一个“，”，但就是不知道怎么保存回去，其他的操作都会。能否解释详细一点？谢谢

Answer 3

procedure xxx(FileName: String);
var
  sl: TStringList;
  i,k: Integer;
  s: String;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(FileName);
    for i:=0 to sl.Count - 1 do
    begin
      s := sl[i];
      k := Pos(',', s);
      if k > 0 then Delete(s, k, Length(','));
      sl[i] := s;
    end;
    sl.SaveToFile(FileName);
  finally
    sl.Free;
  end;
end;

Answer 4

谢谢xiaocha，语句基本跟我写的差不多，就是多了句关键的“sl[i] := s; ”所以我之前的程序段总是得不到正确的结果。真诚感谢，问题虽小，却解决了我的大麻烦。发帖时不知道自己有多少可用分，所以只拿了10分出来，先全部给你，等下次凑够50分再赠送。