Нужно заменить значения в 16-ричном коде

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses
  FileCtrl, StrUtils;
 
{Функция выполняет поиск в файле aFileName заданной цепочки байт aSf и запись
на найденных позициях заменяющей цепочки байт aSr.
При успешном выполнении функция возвращает значение = True, иначе - False.}
function ProcFile(const aFileName : String; const aSf, aSr : AnsiString) : Boolean;
const
  SelfName = 'ProcFile()';
  //Размер буфера в байтах. Этот размер не должен быть меньше размера искомой подстроки.
  SizeBuff = 1000000;
var
  Fs : TFileStream;
  SBuff : AnsiString; //AnsiString - тип, описывающий строку однобайтных символов.
  FOffs, Offs, SizeRes : Int64;
begin
  Result := False;
  //Проверки.
  if Length(aSf) <> Length(aSr) then
    raise Exception.Create(SelfName + '. Длины aSf и aSr отличаются.');
  if SizeBuff < Length(aSf) then
    raise Exception.Create(SelfName + '. Размер буфера меньше длины aSf.');
 
  try
    //Создаём экземпляр файлового потока и открываем файл в режиме чтения и записи
    //(fmOpenReadWrite), с запретом на запись из других процессов (fmShareDenyWrite).
    Fs := TFileStream.Create(aFileName, fmOpenReadWrite + fmShareDenyWrite);
    //Обработка данных потока (файла).
    try
      SetLength(SBuff, SizeBuff); //Выделяем память для буфера.
      FOffs := 0; //Смещение указателя потока до чтения очередного блока данных.
      repeat
        SizeRes := Fs.Read(SBuff[1], SizeBuff); //Загружаем в буфер данные файлового потока.
        if SizeRes < SizeBuff then //Если в буфер загружено менее, чем SizeBuff байт (при достижении конца потока).
          SetLength(SBuff, SizeRes); //Изменяем размер буфера в соответствии с количеством загруженных байт.
        //Поиск в буфере.
        Offs := PosEx(aSf, SBuff, 1) - 1; //Смещение искомой подстроки в буфере.
        while Offs > -1 do
        begin
          Fs.Position := FOffs + Offs; //Перемещаем указатель потока к найденной подстроке.
          Fs.Write(aSr[1], Length(aSr)); //Записываем новую последовательность байтов.
          Offs := PosEx(aSf, SBuff, Offs + 2) - 1; //Продолжаем поиск в буфере со следующей позиции.
        end;
        FOffs := FOffs + SizeRes; //Смещение указателя потока с учётом последнего прочитанного блока.
        if FOffs < Fs.Size then   //Если пока не дошли до конца файла.
          Dec(FOffs, Length(aSf) - 1); //Откатываем смещение к неисследованной области.
        Fs.Position := FOffs;
      until Fs.Position = Fs.Size; //Прекращаем поиск, если достигли конца потока.
    finally
      FreeAndNil(Fs); //Уничтожаем экземпляр файлового потока и закрываем файл.
    end;
  except
    Exit;
  end;
 
  Result := True;
end;
 
{Функция в заданном директории aPath (и во всех вложенных директориях, при aSubDir = True)
находит файлы по заданной маске aMask и в найденных файлах выполняет замену всех
вхождений цепочки байт aSf на цепочку aSr.
Функция возвращает значение = True, если ошибок не было. В противном случае - False.
Если маска не задана, то будет использована маска = '*'.
aErrList - в этот список выводятся пути файлов, при обработке которых возникли ошибки.
Если aErrList = NIL, то список не формируется.
aSubDir - True, если надо обработать вложенные директории, False - иначе.}
function ProcDir(const aPath, aMask : String; const aSf, aSr : AnsiString;
  const aErrList : TStrings; const aSubDir : Boolean) : Boolean;
var
  Path, Mask : String;
  Srch : TSearchRec;
  Attr : Integer;
begin
  Result := True;
  //Добавляем в конец строки слеш, если его нет.
  Path := IncludeTrailingPathDelimiter(aPath);
  //Маска.
  if aMask <> '' then
    Mask := aMask
  else
    Mask := '*';
 
  //В текущем директории ищем файлы по заданной маске.
  Attr := faAnyFile - faVolumeID - faDirectory;
  if FindFirst(Path + Mask, Attr, Srch) = 0 then
  try
    repeat
      //Обработка файла.
      if not ProcFile(Path + Srch.Name, aSf, aSr) then //Если при обработке возникли ошибки.
      begin
        Result := False;
        if Assigned(aErrList) then //Если задан список.
          aErrList.Add(Path + Srch.Name); //В случае ошибки записываем в список путь к файлу.
      end;
    until FindNext(Srch) <> 0;
  finally
    FindClose(Srch);
  end;
 
  if aSubDir then //Если нужно обработать вложенные директории.
  begin
    //В текущем директории ищем все вложенные директории и для каждого из них выполняем рекурсивный вызов.
    Attr := faDirectory;
    if FindFirst(Path + '*', Attr, Srch) = 0 then
    try
      repeat
        if (Srch.Attr and Attr = Attr) and (Srch.Name <> '.') and (Srch.Name <> '..') then
          if not ProcDir(Path + Srch.Name, Mask, aSf, aSr, aErrList, aSubDir) then
            Result := False;
      until FindNext(Srch) <> 0;
    finally
      FindClose(Srch);
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  S, Path, Mask : String;
  Sf, Sr : AnsiString;
  ErrList : TStringList;
begin
  //Директорий, в котором лежит исполняемый файл программы.
  Path := ExtractFilePath(ParamStr(0));
  //Диалог выбора директория.
  if not SelectDirectory('Выбор папки', '', Path) then
    Exit;
  {
  if not SelectDirectory(Path, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
    Exit;
  }
  //Проверка существования директория.
  if not DirectoryExists(Path) then
  begin
    MessageBox(Handle, 'Заданная папка не найдена. Действие отменено.', 'Отмена!',
      MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  //Маска имён файлов.
  Mask := Edit1.Text;
  if Mask = '' then
    Mask := '*';
 
  {Искомая и заменяющая цепочки байт. Они должны быть заданы в виде шестнадцатиричных
  кодов. Каждый байт должен быть пердставлен двумя шестнадцатиричными цифрами.
  Запись должна быть без пробелов и состоять только из шестнадцатиричных цифр.
  Пример: 4B4C4D4E Этому значению, согласно таблице ASCII соответствует строка: KLMN }
 
  //Искомая цепочка байт.
  S := Edit2.Text;
  SetLength(Sf, Length(S) div 2);
  HexToBin(PChar(S), PAnsiChar(Sf), Length(Sf));
  //Заменяющая цепочка байт.
  S := Edit3.Text;
  SetLength(Sr, Length(S) div 2);
  HexToBin(PChar(S), PAnsiChar(Sr), Length(Sr));
 
  //Проверки.
  if Length(Sf) <> Length(Sr) then
  begin
    MessageBox(Handle, 'Длины искомой и заменяющей цепочек различны. Действие отменено.',
      'Отмена!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
  if Sf = '' then
  begin
    MessageBox(Handle, 'Искомая цепочка не задана. Действие отменено.',
      'Отмена!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  Memo1.Text := 'Начальный директорий: ' + Path;
  Memo1.Lines.Add('Маска: "' + Mask + '"');
  Memo1.Lines.Add('Искомая цепочка байт, HEX:'#9 + Edit2.Text);
  Memo1.Lines.Add('Заменяющая цепочка байт, HEX:'#9 + Edit3.Text);
 
  {Без вывода в список сведений о файлах, при обработке которых возникли ошибки.
  //Поиск и обработка файлов.
  if ProcDir(Path, Mask, Sf, Sr, nil, True) then
    Memo1.Lines.Add('Обработка успешно выполнена.')
  else
    Memo1.Lines.Add('Во время обработки возникли ошибки!');
  //}
 
  //{С выводом в список сведений о файлах, при обработке которых возникли ошибки.
  ErrList := TStringList.Create;
  try
    ProcDir(Path, Mask, Sf, Sr, ErrList, True); //Поиск и обработка файлов.
    if ErrList.Count = 0 then
      Memo1.Lines.Add('Обработка успешно выполнена.')
    else
    begin
      Memo1.Lines.Add('Во время обработки возникли ошибки!');
      Memo1.Lines.Add('Список файлов, при обработке которых возникли ошибки:');
      Memo1.Lines.AddStrings(ErrList);
    end;
    Memo1.Lines.Add('----------');
  finally
    FreeAndNil(ErrList);
  end;
  //}
end;
 
end.

uses FileCtrl;

uses StrUtils;

  //ExtractFilePath(ParamStr(0)) - путь к директорию, в котором лежит исполняемый файл программы.
  Path := ExtractFilePath(ParamStr(0)) + '\Files\';

  //Диалог выбора директория.
  //if not SelectDirectory('Выбор папки', '', Path) then
  //  Exit;

unit Unit5;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils;
 
type
  TForm1 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function ProcFile(const aFileName : String; const aSf, aSr : AnsiString) : Boolean;
const
  SelfName = 'ProcFile()';
  SizeBuff = 1000000;
var
  Fs : TFileStream;
  SBuff : AnsiString;
  FOffs, Offs, SizeRes : Int64;
begin
  Result := False;
try
    Fs := TFileStream.Create(aFileName, fmOpenReadWrite + fmShareDenyWrite);
    try
      SetLength(SBuff, SizeBuff);
      FOffs := 0;
      repeat
        SizeRes := Fs.Read(SBuff[1], SizeBuff);
        if SizeRes < SizeBuff then
          SetLength(SBuff, SizeRes);
        Offs := PosEx(aSf, SBuff, 1) - 1;
        while Offs > -1 do
        begin
          Fs.Position := FOffs + Offs;
          Fs.Write(aSr[1], Length(aSr));
          Offs := PosEx(aSf, SBuff, Offs + 2) - 1;
        end;
        FOffs := FOffs + SizeRes;
        if FOffs < Fs.Size then
          Dec(FOffs, Length(aSf) - 1);
        Fs.Position := FOffs;
      until Fs.Position = Fs.Size;
    finally
      FreeAndNil(Fs);
    end;
  except
    Exit;
  end;
 
  Result := True;
end;
 
function ProcDir(const aPath, aMask : String; const aSf, aSr : AnsiString;
  const aErrList : TStrings; const aSubDir : Boolean) : Boolean;
var
  Path, Mask : String;
  Srch : TSearchRec;
  Attr : Integer;
begin
  Result := True;
  //Äîáàâëÿåì â êîíåö ñòðîêè ñëåø, åñëè åãî íåò.
  Path := IncludeTrailingPathDelimiter(aPath);
  //Ìàñêà.
  if aMask <> '' then
    Mask := aMask
  else
    Mask := '*.map';
 
  //Â òåêóùåì äèðåêòîðèè èùåì ôàéëû ïî çàäàííîé ìàñêå.
  Attr := faAnyFile - faDirectory;
  if FindFirst(Path + Mask, Attr, Srch) = 0 then
  try
    repeat
      //Îáðàáîòêà ôàéëà.
      if not ProcFile(Path + Srch.Name, aSf, aSr) then //Åñëè ïðè îáðàáîòêå âîçíèêëè îøèáêè.
      begin
        Result := False;
        if Assigned(aErrList) then //Åñëè çàäàí ñïèñîê.
          aErrList.Add(Path + Srch.Name); // ñëó÷àå îøèáêè çàïèñûâàåì â ñïèñîê ïóòü ê ôàéëó.
      end;
    until FindNext(Srch) <> 0;
  finally
    FindClose(Srch);
  end;
 
  if aSubDir then //Åñëè íóæíî îáðàáîòàòü âëîæåííûå äèðåêòîðèè.
  begin
    //Â òåêóùåì äèðåêòîðèè èùåì âñå âëîæåííûå äèðåêòîðèè è äëÿ êàæäîãî èç íèõ âûïîëíÿåì ðåêóðñèâíûé âûçîâ.
    Attr := faDirectory;
    if FindFirst(Path + '.map', Attr, Srch) = 0 then
    try
      repeat
        if (Srch.Attr and Attr = Attr) and (Srch.Name <> '.') and (Srch.Name <> '..') then
          if not ProcDir(Path + Srch.Name, Mask, aSf, aSr, aErrList, aSubDir) then
            Result := False;
      until FindNext(Srch) <> 0;
    finally
      FindClose(Srch);
    end;
  end;
end;
 
 
 
procedure TForm1.RadioButton1Click(Sender: TObject);
var
  S, Path, Mask : String;
  Sf, Sr : AnsiString;
 
begin
  //Äèðåêòîðèé, â êîòîðîì ëåæèò èñïîëíÿåìûé ôàéë ïðîãðàììû.
  Path := ExtractFilePath(ParamStr(0))+'\maps\';
  //Äèàëîã âûáîðà äèðåêòîðèÿ.
  {
  if not SelectDirectory(Path, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
    Exit;
  }
  //Ïðîâåðêà ñóùåñòâîâàíèÿ äèðåêòîðèÿ.
  if not DirectoryExists(Path) then
  begin
    MessageBox(Handle, 'Çàäàííàÿ ïàïêà íå íàéäåíà. Äåéñòâèå îòìåíåíî.', 'Îòìåíà!',
      MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  //Ìàñêà èì¸í ôàéëîâ.
  Mask := '';
  if Mask = '' then
    Mask := '.map';
 
  {Èñêîìàÿ è çàìåíÿþùàÿ öåïî÷êè áàéò. Îíè äîëæíû áûòü çàäàíû â âèäå øåñòíàäöàòèðè÷íûõ
  êîäîâ. Êàæäûé áàéò äîëæåí áûòü ïåðäñòàâëåí äâóìÿ øåñòíàäöàòèðè÷íûìè öèôðàìè.
  Çàïèñü äîëæíà áûòü áåç ïðîáåëîâ è ñîñòîÿòü òîëüêî èç øåñòíàäöàòèðè÷íûõ öèôð.
  Ïðèìåð: 4B4C4D4E Ýòîìó çíà÷åíèþ, ñîãëàñíî òàáëèöå ASCII ñîîòâåòñòâóåò ñòðîêà: KLMN }
 
  //Èñêîìàÿ öåïî÷êà áàéò.
  S := '000000020000000300000004000000010000006';
  SetLength(Sf, Length(S) div 2);
  HexToBin(PChar(S), PAnsiChar(Sf), Length(Sf));
  //Çàìåíÿþùàÿ öåïî÷êà áàéò.
  S := '000000010000000300000004000000020000006';
  SetLength(Sr, Length(S) div 2);
  HexToBin(PChar(S), PAnsiChar(Sr), Length(Sr));
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
var
  S, Path, Mask : String;
  Sf, Sr : AnsiString;
 
begin
  //Äèðåêòîðèé, â êîòîðîì ëåæèò èñïîëíÿåìûé ôàéë ïðîãðàììû.
  Path := ExtractFilePath(ParamStr(0))+'\maps\';
  //Äèàëîã âûáîðà äèðåêòîðèÿ.
  {
  if not SelectDirectory(Path, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
    Exit;
  }
  //Ïðîâåðêà ñóùåñòâîâàíèÿ äèðåêòîðèÿ.
  if not DirectoryExists(Path) then
  begin
    MessageBox(Handle, 'Çàäàííàÿ ïàïêà íå íàéäåíà. Äåéñòâèå îòìåíåíî.', 'Îòìåíà!',
      MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  //Ìàñêà èì¸í ôàéëîâ.
  Mask := '';
  if Mask = '' then
    Mask := '.map';
 
  {Èñêîìàÿ è çàìåíÿþùàÿ öåïî÷êè áàéò. Îíè äîëæíû áûòü çàäàíû â âèäå øåñòíàäöàòèðè÷íûõ
  êîäîâ. Êàæäûé áàéò äîëæåí áûòü ïåðäñòàâëåí äâóìÿ øåñòíàäöàòèðè÷íûìè öèôðàìè.
  Çàïèñü äîëæíà áûòü áåç ïðîáåëîâ è ñîñòîÿòü òîëüêî èç øåñòíàäöàòèðè÷íûõ öèôð.
  Ïðèìåð: 4B4C4D4E Ýòîìó çíà÷åíèþ, ñîãëàñíî òàáëèöå ASCII ñîîòâåòñòâóåò ñòðîêà: KLMN }
 
  //Èñêîìàÿ öåïî÷êà áàéò.
  S := '000000010000000300000004000000020000006';
  SetLength(Sf, Length(S) div 2);
  HexToBin(PChar(S), PAnsiChar(Sf), Length(Sf));
  //Çàìåíÿþùàÿ öåïî÷êà áàéò.
  S := '000000020000000300000004000000010000006';
  SetLength(Sr, Length(S) div 2);
  HexToBin(PChar(S), PAnsiChar(Sr), Length(Sr));
end;
 
end.

  //Искомая цепочка байт.
  S := '000000020000000300000004000000010000006';
  SetLength(Sf, Length(S) div 2);
  HexToBin(PChar(S), PAnsiChar(Sf), Length(Sf));
  //Заменяющая цепочка байт.
  S := '000000010000000300000004000000020000006';
  SetLength(Sr, Length(S) div 2);
  HexToBin(PChar(S), PAnsiChar(Sr), Length(Sr));
 
  //Поиск и обработка файлов.
  if ProcDir(Path, Mask, Sf, Sr, nil, True) then
    Memo1.Lines.Add('Обработка успешно выполнена.')
  else
    Memo1.Lines.Add('Во время обработки возникли ошибки!');
end;

  //Поиск и обработка файлов.
  if ProcDir(Path, Mask, Sf, Sr, nil, True) then
    ShowMessage('Обработка успешно выполнена.')
  else
    ShowMessage('Во время обработки возникли ошибки!');
end;

  //Путь к директорию "maps\", который вложен в тот директорий, где лежит исполняемый файл программы.
  Path := ExtractFilePath(ParamStr(0))+'maps\';

  //Маска имён файлов.
  Mask := '*.map';
  if Mask = '' then
    Mask := '*';

    if FindFirst(Path + '*', Attr, Srch) = 0 then