Классная фича для лентяев.
Короче так
Вы написали так
S:='(*';
begin
for i:=0 to 10 do
begin
if some then
if Some then
SomeProc;
end;
end;
begin
for i:=0 to 10 do
begin
if some then
if Some then
SomeProc;
end;
end;
После обработки будет так красиво и читаемо
S:='(*';
begin
for i:=0 to 10 do
begin
if some then
if Some then
SomeProc;
end;
end;
Выкладываю исходник без EXE.
EXE тоже есть если надо выложу.