Форматирование кода программы в среде разработки

← →
я (2011-09-28 08:43) [0]

Привык к такой фиче, когда выделяешь кусок кода, нажимаешь кнопку и он сам форматируется (т.е. выстраивается лесенкой), т.е. весь код приводится в удобоваримый вид. Например есть неформатированный код:

if Intensity < 255 then begin if i= 0 then begin Xdiff := x; Ydiff := y; end; searchArray[i].x:= x-Xdiff; searchArray[i].y:= y-Ydiff; inc(i); end;

Выделяем этот кусок, нажимаем кнопку и получаем что то вроде этого
if Intensity < 255 then begin if i= 0 then begin Xdiff := x; Ydiff := y; end; searchArray[i].x:= x-Xdiff; searchArray[i].y:= y-Ydiff; inc(i); end;

В данный момент я это делаю для каждой строки вручную и не могу поверить, что такой функции нет, но и найти ее не могу. Установил RAD Studio XE, но все равно такого не увидел. Может все такие есть? Форматирование "вручную" причиняет мне адские страдания, особенно после того как я всегда это делал автоматом, но в других языках...

← →
OW © (2011-09-28 09:10) [1]

http://www.gunsmoker.ru/2011/01/blog-post.html

← →
OW © (2011-09-28 09:33) [2]

сам сейчас попробовал джедаев (JCF)
interface uses Graphics, uPoint, SysUtils, Dialogs; type TGGraph = class private FCanva: TCanvas; FPoints: array of TGPoint; private procedure ReallyCreate(AC: TCanvas); procedure ReallyAdd(AP: TGPoint); procedure ReallyMove(AP: TGPoint; dx, dy: Integer); public constructor Create(AC: TCanvas); procedure Add(AP: TGPoint); overload; procedure Add(AX, AY: Integer; AR:Integer = DefaultR); overload; procedure Add(AName: string; AX, AY: Integer; AR:Integer = DefaultR); overload; procedure Move(NumP, dx, dy: Integer); function GetPointByXY(ax, ay: Integer): TGPoint; function GetPointByNum(Num: Integer): TGPoint; public end; implementation procedure TGGraph.Add(AP: TGPoint); begin if AP = nil then raise Exception.Create("Add nil-value point. TGGraph.Add(AP)"); if AP.Canva <> FCanva then begin if AP.Canva <> nil then AP.Hide; AP.Canva := FCanva; end; ReallyAdd(AP);

vs

uses Graphics, uPoint, SysUtils, Dialogs; type TGGraph = class private FCanva: TCanvas; FPoints: array of TGPoint; private procedure ReallyCreate(AC: TCanvas); procedure ReallyAdd(AP: TGPoint); procedure ReallyMove(AP: TGPoint; dx, dy: Integer); public constructor Create(AC: TCanvas); procedure Add(AP: TGPoint); overload; procedure Add(AX, AY: Integer; AR: Integer = DefaultR); overload; procedure Add(AName: string; AX, AY: Integer; AR: Integer = DefaultR); overload; procedure Move(NumP, dx, dy: Integer); function GetPointByXY(ax, ay: Integer): TGPoint; function GetPointByNum(Num: Integer): TGPoint; public end; implementation procedure TGGraph.Add(AP: TGPoint); begin if AP = nil then raise Exception.Create("Add nil-value point. TGGraph.Add(AP)"); if AP.Canva <> FCanva then begin if AP.Canva <> nil then AP.Hide; AP.Canva := FCanva; end; ReallyAdd(AP);

← →
sniknik © (2011-09-28 09:40) [3]

> Форматирование "вручную" причиняет мне адские страдания
свой код нужно сразу так писать, чужой... ручное форматирование только поможет понять логику/найти ошибки.
и не зачем так страдать...

← →
Игорь Шевченко © (2011-09-28 09:46) [4]

> Установил RAD Studio XE, но все равно такого не увидел.

Ctrl+D ?

← →
MonoLife © (2011-09-28 10:53) [5]

D7
ctrl+I - блок вправо
ctrl+U - блок влево

> Ctrl+D

не умеет анонимных процедур

+ CnPack
сильно помогает писать сразу нормально

Форматирование кода программы в среде разработки Найти похожие ветки