program DelphiHereDocEnd;

uses
  SysUtils,
  Windows,
  Classes,

  SystemUnit,
  StringListObjectUnit,
  FileList,
  ShellFileCtrl,
  StringUnit,
  ConstUnit,
  FileNameUnit,

uses_end;

function GetHereDocBackupFilePath(FilePath: string): String;
begin
  Result := ExtractFilePath(FilePath)+'_here_doc_backup\'+
            ExtractFileName(FilePath)
end;

var
  FileList: TFileList;
  I, J: Integer;
  TargetFilePath: String;
  RestoreFlag: Boolean;
  HereDocStartIndex, HereDocEndIndex: Integer;
  HereDocLable: String;

begin
  try

    FileList := TFileList.Create(nil); try
    FileList.Directory := IncludeLastPathDelim(GetCurrentDir)+'_here_doc_backup';

    FileList.FileListType := flNormal;
    FileList.DestStrings := StrList('FileList');
    FileList.List;

    finally FileList.Free; end;

    for I := 0 to StrList('FileList').Count - 1 do
    begin
      TargetFilePath := StrList('FileList')[I];

//        if not SameText( ExtractFileExt(TargetFilePath) , '.pas')  then
//          Continue;

      //ƒŠƒXƒgƒA
      ShellMoveFile(0, TargetFilePath,
        GetUpFolderPath(TargetFilePath));
    end;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.