-
Notifications
You must be signed in to change notification settings - Fork 0
/
class_static_variable.pas
56 lines (44 loc) · 1.51 KB
/
class_static_variable.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
{$MODE OBJFPC}
program ClassStaticVariable;
type Token = class
public
number: integer; static;
color: string;
end;
var
token_1, token_2, token_3: Token;
begin
token_1 := Token.create();
token_2 := Token.create();
token_3 := Token.create();
writeln('Token.number: ', Token.number);
writeln();
token_1.number := 1;
token_1.color := 'blue';
token_2.number := 2;
token_2.color := 'orange';
token_3.number := 3;
token_3.color := 'violet';
writeln('token_1.number: ', token_1.number, ', token_1.color: ', token_1.color);
writeln('token_2.number: ', token_2.number, ', token_2.color: ', token_2.color);
writeln('token_3.number: ', token_3.number, ', token_3.color: ', token_3.color);
writeln();
writeln('Token.number: ', Token.number);
writeln();
token_1.number := 1;
token_1.color := 'petrol';
writeln('token_1.number: ', token_1.number, ', token_1.color: ', token_1.color);
writeln('token_2.number: ', token_2.number, ', token_2.color: ', token_2.color);
writeln('token_3.number: ', token_3.number, ', token_3.color: ', token_3.color);
writeln();
writeln('Token.number: ', Token.number);
writeln();
token_2.number := 2;
token_2.color := 'ginger';
writeln('token_1.number: ', token_1.number, ', token_1.color: ', token_1.color);
writeln('token_2.number: ', token_2.number, ', token_2.color: ', token_2.color);
writeln('token_3.number: ', token_3.number, ', token_3.color: ', token_3.color);
writeln();
writeln('Token.number: ', Token.number);
writeln();
end.