mwtextsort.pas

来自「一个速度很快的文字排序引擎(TextSort engine)」· PAS 代码 · 共 1,482 行 · 第 1/3 页

PAS
1,482 行
字号
123
                end;
            end;
        end
      else
        begin
          if MergeCompare(FFileThree.FLeft, FFileFour.FLeft) <= 0 then
            begin
              if MergeCompare(FFileTwo.FLeft, FFileThree.FLeft) <= 0 then
                begin
                  if MergeCompare(FFileTwo.FLeft, FFileFive.FLeft) <= 0 then
                    begin
                      writeln(fOutFile, FFileTwo.fLeft^.Data);
                      FFileTwo.Next;
                    end
                  else
                    begin
                      writeln(fOutFile, FFileFive.fLeft^.Data);
                      FFileFive.Next;
                    end;
                end
              else
                begin
                  if MergeCompare(FFileThree.FLeft, FFileFive.FLeft) <= 0 then
                    begin
                      writeln(fOutFile, FFileThree.fLeft^.Data);
                      FFileThree.Next;
                    end
                  else
                    begin
                      writeln(fOutFile, FFileFive.fLeft^.Data);
                      FFileFive.Next;
                    end;
                end
            end
          else
            begin
              if MergeCompare(FFileTwo.FLeft, FFileFour.FLeft) <= 0 then
                begin
                  if MergeCompare(FFileTwo.FLeft, FFileFive.FLeft) <= 0 then
                    begin
                      writeln(fOutFile, FFileTwo.fLeft^.Data);
                      FFileTwo.Next;
                    end
                  else
                    begin
                      writeln(fOutFile, FFileFive.fLeft^.Data);
                      FFileFive.Next;
                    end;
                end
              else
                begin
                  if MergeCompare(FFileFour.FLeft, FFileFive.FLeft) <= 0 then
                    begin
                      writeln(fOutFile, FFileFour.fLeft^.Data);
                      FFileFour.Next;
                    end
                  else
                    begin
                      writeln(fOutFile, FFileFive.fLeft^.Data);
                      FFileFive.Next;
                    end;
                end;
            end;
        end;
    end;

  while ( FFileOne.Full ) and ( FFileTwo.Full ) and ( FFileThree.Full ) and ( FFileFour.Full ) do
    begin
      if MergeCompare(FFileOne.FLeft, FFileTwo.FLeft) <= 0 then
        begin
          if MergeCompare(FFileThree.FLeft, FFileFour.FLeft) <= 0 then
            begin
              if MergeCompare(FFileOne.FLeft, FFileThree.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileOne.fLeft^.Data);
                  FFileOne.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileThree.fLeft^.Data);
                  FFileThree.Next;
                end;
            end
          else
            begin
              if MergeCompare(FFileOne.FLeft, FFileFour.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileOne.fLeft^.Data);
                  FFileOne.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFour.fLeft^.Data);
                  FFileFour.Next;
                end;
            end;
        end
      else
        begin
          if MergeCompare(FFileThree.FLeft, FFileFour.FLeft) <= 0 then
            begin
              if MergeCompare(FFileTwo.FLeft, FFileThree.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileTwo.fLeft^.Data);
                  FFileTwo.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileThree.fLeft^.Data);
                  FFileThree.Next;
                end;
            end
          else
            begin
              if MergeCompare(FFileTwo.FLeft, FFileFour.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileTwo.fLeft^.Data);
                  FFileTwo.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFour.fLeft^.Data);
                  FFileFour.Next;
                end;
            end;
        end;
    end;

  while ( FFileOne.Full ) and ( FFileTwo.Full ) and ( FFileThree.Full ) and ( FFileFive.Full ) do
    begin
      if MergeCompare(FFileOne.FLeft, FFileTwo.FLeft) <= 0 then
        begin
          if MergeCompare(FFileThree.FLeft, FFileFive.FLeft) <= 0 then
            begin
              if MergeCompare(FFileOne.FLeft, FFileThree.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileOne.fLeft^.Data);
                  FFileOne.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileThree.fLeft^.Data);
                  FFileThree.Next;
                end;
            end
          else
            begin
              if MergeCompare(FFileOne.FLeft, FFileFive.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileOne.fLeft^.Data);
                  FFileOne.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFive.fLeft^.Data);
                  FFileFive.Next;
                end;
            end;
        end
      else
        begin
          if MergeCompare(FFileThree.FLeft, FFileFive.FLeft) <= 0 then
            begin
              if MergeCompare(FFileTwo.FLeft, FFileThree.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileTwo.fLeft^.Data);
                  FFileTwo.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileThree.fLeft^.Data);
                  FFileThree.Next;
                end;
            end
          else
            begin
              if MergeCompare(FFileTwo.FLeft, FFileFive.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileTwo.fLeft^.Data);
                  FFileTwo.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFive.fLeft^.Data);
                  FFileFive.Next;
                end;
            end;
        end;
    end;

   while ( FFileOne.Full ) and ( FFileTwo.Full ) and ( FFileFour.Full ) and ( FFileFive.Full ) do
    begin
      if MergeCompare(FFileOne.FLeft, FFileTwo.FLeft) <= 0 then
        begin
          if MergeCompare(FFileFour.FLeft, FFileFive.FLeft) <= 0 then
            begin
              if MergeCompare(FFileOne.FLeft, FFileFour.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileOne.fLeft^.Data);
                  FFileOne.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFour.fLeft^.Data);
                  FFileFour.Next;
                end;
            end
          else
            begin
              if MergeCompare(FFileOne.FLeft, FFileFive.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileOne.fLeft^.Data);
                  FFileOne.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFive.fLeft^.Data);
                  FFileFive.Next;
                end;
            end;
        end
      else
        begin
          if MergeCompare(FFileFour.FLeft, FFileFive.FLeft) <= 0 then
            begin
              if MergeCompare(FFileTwo.FLeft, FFileFour.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileTwo.fLeft^.Data);
                  FFileTwo.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFour.fLeft^.Data);
                  FFileFour.Next;
                end;
            end
          else
            begin
              if MergeCompare(FFileTwo.FLeft, FFileFive.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileTwo.fLeft^.Data);
                  FFileTwo.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFive.fLeft^.Data);
                  FFileFive.Next;
                end;
            end;
        end;
    end;

   while ( FFileOne.Full ) and ( FFileThree.Full ) and ( FFileFour.Full ) and ( FFileFive.Full ) do
    begin
      if MergeCompare(FFileOne.FLeft, FFileThree.FLeft) <= 0 then
        begin
          if MergeCompare(FFileFour.FLeft, FFileFive.FLeft) <= 0 then
            begin
              if MergeCompare(FFileOne.FLeft, FFileFour.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileOne.fLeft^.Data);
                  FFileOne.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFour.fLeft^.Data);
                  FFileFour.Next;
                end;
            end
          else
            begin
              if MergeCompare(FFileOne.FLeft, FFileFive.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileOne.fLeft^.Data);
                  FFileOne.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFive.fLeft^.Data);
                  FFileFive.Next;
                end;
            end;
        end
      else
        begin
          if MergeCompare(FFileFour.FLeft, FFileFive.FLeft) <= 0 then
            begin
              if MergeCompare(FFileThree.FLeft, FFileFour.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileThree.fLeft^.Data);
                  FFileThree.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFour.fLeft^.Data);
                  FFileFour.Next;
                end;
            end
          else
            begin
              if MergeCompare(FFileThree.FLeft, FFileFive.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileThree.fLeft^.Data);
                  FFileThree.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFive.fLeft^.Data);
                  FFileFive.Next;
                end;
            end;
        end;
    end;

   while ( FFileTwo.Full ) and ( FFileThree.Full ) and ( FFileFour.Full ) and ( FFileFive.Full ) do
    begin
      if MergeCompare(FFileTwo.FLeft, FFileThree.FLeft) <= 0 then
        begin
          if MergeCompare(FFileFour.FLeft, FFileFive.FLeft) <= 0 then
            begin
              if MergeCompare(FFileTwo.FLeft, FFileFour.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileTwo.fLeft^.Data);
                  FFileTwo.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFour.fLeft^.Data);
                  FFileFour.Next;
                end;
            end
          else
            begin
              if MergeCompare(FFileTwo.FLeft, FFileFive.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileTwo.fLeft^.Data);
                  FFileTwo.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFive.fLeft^.Data);
                  FFileFive.Next;
                end;
            end;
        end
      else
        begin
          if MergeCompare(FFileFour.FLeft, FFileFive.FLeft) <= 0 then
            begin
              if MergeCompare(FFileThree.FLeft, FFileFour.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileThree.fLeft^.Data);
                  FFileThree.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFour.fLeft^.Data);
                  FFileFour.Next;
                end;
            end
          else
            begin
              if MergeCompare(FFileThree.FLeft, FFileFive.FLeft) <= 0 then
                begin
                  writeln(fOutFile, FFileThree.fLeft^.Data);
                  FFileThree.Next;
                end
              else
                begin
                  writeln(fOutFile, FFileFive.fLeft^.Data);
                  FFileFive.Next;
                end;
            end;
        end;
    end;

  while ( FFileOne.Full ) and ( FFileTwo.Full ) and ( FFileThree.Full ) do
    begin
      if MergeCompare(FFileOne.FLeft, FFileTwo.FLeft) <= 0 then
        begin
          if MergeCompare(FFileOne.FLeft, FFileThree.FLeft) <= 0 then
            begin
              writeln(fOutFile, FFileOne.fLeft^.Data);
              FFileOne.Next;
            end
          else
            begin
              writeln(fOutFile, FFileThree.fLeft^.Data);
              FFileThree.Next;
            end;
        end
      else
        begin
          if MergeCompare(FFileTwo.FLeft, FFileThree.FLeft) <= 0 then
            begin
              writeln(fOutFile, FFileTwo.fLeft^.Data);
              FFileTwo.Next;
            end
          else
            begin
              writeln(fOutFile, FFileThree.fLeft^.Data);
              FFileThree.Next;
            end;
        end;
    end;

  while ( FFileOne.Full ) and ( FFileTwo.Full ) and ( FFileFour.Full ) do
    begin
      if MergeCompare(FFileOne.FLeft, FFileTwo.FLeft) <= 0 then
        begin
          if MergeCompare(FFileOne.FLeft, FFileFour.FLeft) <= 0 then
            begin
              writeln(fOutFile, FFileOne.fLeft^.Data);
              FFileOne.Next;
            end
          else
            begin
              writeln(fOutFile, FFileFour.fLeft^.Data);
              FFileFour.Next;
            end;
        end
      else
        begin
          if MergeCompare(FFileTwo.FLeft, FFileFour.FLeft) <= 0 then
            begin
              writeln(fOutFile, FFileTwo.fLeft^.Data);
              FFileTwo.Next;
            end
          else
            begin
              writeln(fOutFile, FFileFour.fLeft^.Data);
              FFileFour.Next;
            end;
        end;
    end;

  while ( FFileOne.Full ) and ( FFileTwo.Full ) and ( FFileFive.Full ) do
    begin
      if MergeCompare(FFileOne.FLeft, FFileTwo.FLeft) <= 0 then
        begin
          if MergeCompare(FFileOne.FLeft, FFileFive.FLeft) <= 0 then
            begin
              writeln(fOutFile, FFileOne.fLeft^.Data);
              FFileOne.Next;
            end
          else
            begin
              writeln(fOutFile, FFileFive.fLeft^.Data);
              FFileFive.Next;
            end;
        end
      else
        begin
          if MergeCompare(FFileTwo.FLeft, FFileFive.FLeft) <= 0 then
            begin
              writeln(fOutFile, FFileTwo.fLeft^.Data);
              FFileTwo.Next;
            end
          else
            begin
              writeln(fOutFile, FFileFive.fLeft^.Data);
              FFileFive.Next;
            end;
        end;
    end;

  while ( FFileOne.Full ) and ( FFileThree.Full ) and ( FFileFour.Full ) do
    begin
      if MergeCompare(FFileOne.FLeft, FFileThree.FLeft) <= 0 then
        begin
          if MergeCompare(FFileOne.FLeft, FFileFour.FLeft) <= 0 then
            begin
              writeln(fOutFile, FFileOne.fLeft^.Data);
              FFileOne.Next;
            end
          else
            begin
              writeln(fOutFile, FFileFour.fLeft^.Data);
              FFileFour.Next;
            end;
        end
      else
        begin
          if MergeCompare(FFileThree.FLeft, FFileFour.FLeft) <= 0 then
            begin
              writeln(fOutFile, FFileThree.fLeft^.Data);
              FFileThree.Next;
            end
          else
            begin
              writeln(fOutFile, FFileFour.fLeft^.Data);
              FFileFour.Next;
            end;
        end;
123

mwtextsort.pas - 源码说明

本页面展示了「一个速度很快的文字排序引擎(TextSort engine)」中的 mwtextsort.pas 源码文件，采用 PAS 编程语言编写，共 1,482 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与TextSort相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?