請問各位大大: 我要如何去除檔尾的 "0A" 後, 再在檔尾加上其它字元.

Hi saam 你好, 試試這個:

procedure TForm1.Button2Click(Sender: TObject);
var SurStream : TFileStream;
    DesStream : TMemoryStream;
    Str : String;
begin
   SurStream := TFileStream.Create('C:\UltraEdit.txt', fmOpenRead or fmShareDenyRead); //開檔
   SetLength(Str, SurStream.Size); //設定字串長度
   SurStream.ReadBuffer(Pointer(str)^, SurStream.Size); //讀檔案內容
   if str[SurStream.Size] = #10 then     //若末碼 0a 則消掉
      SetLength(Str, SurStream.Size-1);
   Str := Str   'abcdefghtkels'; //加入自己的字串
   FreeAndNil(SurStream);
   DesStream := TMemoryStream.Create;
   DesStream.WriteBuffer(Pointer(Str)^, Length(Str));
   DesStream.SaveToFile('C:\UltraEdit.txt'); //寫檔
   FreeAndNil(DesStream);
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

謝謝Miles大大的指導: 可以了呢 ^^ 請問如果檔案很大的話,這個方法會不會有問題呢?

Hi saam 你好, 你說到了重點, 這要看Delphi的String可以容納多大的空間, 我記得好像是2G還是4G有點忘了, 程式我再修改一下, 如下

procedure TForm1.Button1Click(Sender: TObject);
var SurStream : TFileStream;
    //DesStream : TMemoryStream;
    Str : String;
begin
   SurStream := TFileStream.Create('C:\a.txt', fmOpenReadWrite or fmShareDenyRead); //開檔
   SetLength(Str, SurStream.Size); //設定字串長度
   SurStream.ReadBuffer(Pointer(str)^, SurStream.Size); //讀檔案內容
   if str[SurStream.Size] = #10 then     //若末碼 0a 則消掉
      SetLength(Str, SurStream.Size-1);
   Str := Str   'abcdefghtkels'; //加入自己的字串       SurStream.WriteBuffer(str[1], Length(Str)); //寫檔案內容
   FreeAndNil(SurStream);
  { DesStream := TMemoryStream.Create;
   DesStream.WriteBuffer(Pointer(Str)^, Length(Str));
   DesStream.SaveToFile('C:\UltraEdit.txt'); //寫檔
   FreeAndNil(DesStream);    }
end;

我不是高手, 高手是正在銀幕前微笑的人. 發表人 - miles 於 2004/10/01 00:00:02

------


我不是高手, 高手是正在銀幕前微笑的人.

謝謝Miles大大 但改了以後 SurStream.WriteBuffer(str[1], Length(Str)); //寫檔案內容 這行出現錯誤~ 改成 SurStream.WriteBuffer(Pointer(Str)^, Length(Str)); 後也一樣呢~

請問錯誤訊息是什麼? 先設中斷點看Str是不是空字串 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

謝謝Miles大大: 出現的錯誤如下~ Project 程式名 raised exception class EWriteError with message 'Stream write error' .Process stopped. Use Step or Run to continue.

您好﹗    試試這個方法﹕

Var
  F1 : File Of Byte;
  F2 : TextFile;
  Size : LongInt;
  Str : String;
begin
  Str := '追加內容';
  AssignFile(F1, 'D:\Xin.txt');
  Reset(F1);
  Size := FileSize(F1);
  Seek(F1, Size-2);
  Truncate(F1);
  CloseFile(F1);      AssignFile(F2, 'D:\Xin.txt');
  Append(F2);
  WriteLn(F2, Str);
  CloseFile(F2);
end;

========================= 大病初愈﹐休養調整中... =========================

------
忻晟

saam 你好, 我在這邊測試都OK, 如果不行的話先用第一種方式吧< >< > 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.