如何为选中的Pascal/Delphi代码快速应用自定义缩进格式规则？

下面两种方法可以快速给选中代码加4空格缩进，且不会影响文档里的其他内容：

• IDE快捷键快速调整
  先确认IDE的缩进设置是4空格：打开「工具」→「选项」→「编辑器选项」→「缩进」，把缩进大小设为4，缩进类型选「空格」。
  之后选中要调整的代码片段，直接按Tab键，就能给选中内容统一加上4空格缩进，嵌套的begin和end也会跟着层级自动对齐。要是缩进多了，按Shift+Tab就能取消一层。

• 工具栏按钮操作
  选中目标代码后，点编辑器工具栏上的「增加缩进」按钮（就是那个向右的小箭头），点一次加4空格，多次点击可以给嵌套的层级叠加缩进，效果和快捷键一致。

未格式化的原代码：

procedure MyProcedure;
begin
if SomeCondition then
begin
DoSomething;
for i := 0 to 10 do
begin
DoSomethingElse;
end;
end;
end;

应用4空格缩进后的效果：

procedure MyProcedure;
    begin
    if SomeCondition then
        begin
        DoSomething;
        for i := 0 to 10 do
            begin
            DoSomethingElse;
            end;
        end;
    end;

内容的提问来源于stack exchange，提问作者user5005768-hd