دوست عزيز فكر نكنم اين بحث در اين قسمت ( Delphi ) مناسب باشه ...

ولي اگر ميخوايين با dlephi اين كار رو بكين و فقط دوست داريد اون قسمت مورد نظرتون رو از بين باينري ها تغيير بدين شيوه ي كلي رو بهتون ميگم ...

يك متغيير از كلاس TFileStream تعريف كن و سپس فايلت رو با Mod نوشتن باز كن ... بعد با استفاده Seek رو به محل دلخواه ببر و نشتن رو در اون محل اغاز كن ...

يك نمونه كد هم برات نوشتم كه اشاره گر فايل رو به 0 ميبره بعد اونجا كلمه ي Test رو جايگزين كلمه قبلي ميكنه ...


var

  File1: TFileStream;

  i: Integer;

  Caption: string;

begin



  Caption := 'Test';



  File1 := TFileStream.Create('C:\Test.txt', fmOpenWrite);



  File1.Seek(0, soFromBeginning);



  for i := 1 to Length(Caption) do

    File1.Write(Caption[i], 1);



  File1.Free;