تغییر در یک خط از یک فایل متنی

[Site Admin]

با سلام من در یک فایل متنی میخواهم یک خط رو مثلا(خط چهارم ) رو تغییر بدم و دیگر خطوط تغییر نکنه

[BORHAN TEC]

از کد زیر استفاده کنید:

procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStringList;
const
FileName = 'C:\Test.txt'; // For Example!
begin
sl := TStringList.Create;
try
sl.LoadFromFile(FileName);
sl[4-1] := 'Hello World'; // Started From Zero!
sl.SaveToFile(FileName);
finally
sl.Free;
end;
end;