ما هى طريقة حذف جزء من txt

[لؤي]

السلام عليكم
جرب هذه الوظيفة:

PHP كود :

procedure RemoveLinesContaining(const fileName, searchText: string);
var
  sl: TStringList;
  i: Integer;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(fileName);
    for i := sl.Count-1 downto 0 do
      if Pos(searchText, sl[i])<>0 then
        sl.Delete(i);
    sl.SaveToFile(fileName);
  finally
    sl.Free;
  end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
RemoveLinesContaining('C:\My file.log','Try Me');
end;