技术问答delphi鎬庝箞澧炲姞鏂囦欢瀛楄妭 - 扬州沐宇科技

瑕佸鍔犳枃浠跺瓧鑺傦紝鍙互浣跨敤浠ヤ笅姝ラ锛?/p>

鎵撳紑闇€瑕佸鍔犲瓧鑺傜殑鏂囦欢銆?/li>
浣跨敤TFileStream绫绘潵璇诲彇鏂囦欢銆?/li>
浣跨敤Seek鏂规硶灏嗘枃浠舵寚閽堢Щ鍔ㄥ埌鏂囦欢鏈熬銆?/li>
浣跨敤Write鏂规硶灏嗛渶瑕佸鍔犵殑瀛楄妭鍐欏叆鏂囦欢銆?/li>
鍏抽棴鏂囦欢銆?/li>

浠ヤ笅鏄竴涓ず渚嬩唬鐮佹潵澧炲姞鏂囦欢瀛楄妭锛?/p>

var
  FileStream: TFileStream;
begin
  // 鎵撳紑鏂囦欢
  FileStream := TFileStream.Create('example.txt', fmOpenReadWrite);
  
  try
    // 灏嗘枃浠舵寚閽堢Щ鍔ㄥ埌鏂囦欢鏈熬
    FileStream.Seek(0, soFromEnd);
    
    // 澧炲姞瀛楄妭
    FileStream.WriteBuffer('additional bytes', Length('additional bytes'));
  finally
    // 鍏抽棴鏂囦欢
    FileStream.Free;
  end;
end;

娉ㄦ剰锛氬湪澧炲姞鏂囦欢瀛楄妭涔嬪墠锛岃纭繚鏂囦欢鐨勬潈闄愯冻澶燂紝骞朵笖澶囦唤鏂囦欢浠ラ槻姝㈡剰澶栨儏鍐靛彂鐢熴€?/p>