http://oberspace.dyndns.org/index.php/topic,541.msg18024.html#msg18024
Этот
В общем и в целом нормально, суть руководства по стилю ухвачена.
Но есть претензии:
1) Аргументы процедур надо отделять друг от друга пробелами:
Правильно:
PROCEDURE Line*(x0, y0, x1, y1 : REAL);
P.SetSize(640, 360);
Неправильно:
PROCEDURE Line*(x0,y0,x1,y1 : REAL);
P.SetSize(640,360);
2) Операторы в выражениях так же следует отделять от их аргументов пробелами:
Правильно:
h := 0.66 * h;
Неправильно:
h := 0.66*h;
3) Не знаю, как лучше делать в таких случаях:
так:
TYPE
ProcessingType* = POINTER TO RECORD END; (* dummy type *)
CallbackType* = PROCEDURE;
VAR
MouseX* : REAL;
MouseY* : REAL;
Width* : INTEGER;
Height* : INTEGER;
или так:
TYPE
ProcessingType * = POINTER TO RECORD END; (* dummy type *)
CallbackType * = PROCEDURE;
VAR
MouseX * : REAL;
MouseY * : REAL;
Width * : INTEGER;
Height * : INTEGER;
или даже так:
TYPE
ProcessingType *= POINTER TO RECORD END; (* dummy type *)
CallbackType *= PROCEDURE;
VAR
MouseX *: REAL;
MouseY *: REAL;
Width *: INTEGER;
Height *: INTEGER;