各位前輩請問一下 我在寫一個轉檔的程式,系統在寫入磁片時是用TStringlist寫入的 所以會自動換行,也就是在每行的結尾會出現0d0a的字元 那現在的要求是在轉檔的檔尾不要出現0d0a要改為1a 那當我把1a加上去時發現在1a的後面又出現0d0a 請問一下有沒有方法 在不動到TStringlist這個開始參數設定的前題下 也就是寫入磁片還是用TStringlist寫入 讓最後一行的最後面不是0d0a而是1a的 var lst: TStringList; TextLn: String; begin if lst <> nil then lst.Add(TextLn); lst.SaveToFile(fileName); lst.free; end; 發表人 - shotala 於 2004/08/18 09:54:45

Make use of filestream?    Just an idea, not tested  < class="code"> var f: TFileStream; ... f := TFileStream.Create(filename,fmOpenReadWrite) f.Position := f.Size - 2; f.Size := f.Position; f.Write($1a,1); f.Free;

hi, 改為這樣如何?    

var
  strs: TStringList;
  f: TextFile;
begin
  strs:= TStringList.Create;
  strs.Add('123');      //strs.SaveToFile('c:\123.txt');
  AssignFile(f, 'c:\123.txt');
  ReWrite(f);
  Write(f, strs[0]＋#$1a);
  CloseFile(f);      strs.Free;
end;