- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
var
Form1: TForm1;
customer : array of TCustomer; //выбор пути выполнения
var_integer: array of integer;// все локальные переменные с такими свойствами:
M_parameter_output: array of string; //названия параметров по которому произойдет выход из Timer1Timer (0 не используется, 1 ниже-выше, 2 слева-справа, 3 поворот)
Work_on_the_points_WhereFurther : array of Integer; //исходные числа (Work on the points)
procedure TForm1.Timer1Timer(Sender: TObject); //Interval 20
var
numerator_ArcTan2: Extended; //the numerator and denominator (числитель и знаменатель ArcTan2)
E: Tpoint; //нужна для E:=ScreenToClient(Form1.FDesignSize);
local_variable:Integer; // локальная переменная
Отличные имена переменных, а после комментариев вообще все становится понятно.
Комментарии (0) RSS
Добавить комментарий