請問，要如何使用最短的程式，將一個kk.txt的檔案讀出來，將裡面每一列的數字加123之後再存回去呢？ 假設kk.txt的內容為： ------------------------ 1356 2562 2246 1257 1468 -------------------------

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

用TStrings來做

 
var ss:TStrings;
    i:integer;
begin
  ss:=TStringList.Create;
  try
    ss.LoadFromFile('kk.txt');
    for i:=0 to ss.Count-1 do
      ss[i]:=IntToStr(StrToInt(s[i]) 123);
    ss.SaveToFile('kk.txt');
  finally
    ss.Free;
  end;
end;

發表人 - 00156 於 2002/10/19 15:09:48