equal
deleted
inserted
replaced
18 type TCmdParam = packed record |
18 type TCmdParam = packed record |
19 cmd: TCmdType; |
19 cmd: TCmdType; |
20 end; |
20 end; |
21 type TCmdParamL = packed record |
21 type TCmdParamL = packed record |
22 cmd: TCmdType; |
22 cmd: TCmdType; |
23 str1: string; |
23 str1len: Longword; |
|
24 str1: array[word] of char; |
24 end; |
25 end; |
25 type TCmdParamS = packed record |
26 type TCmdParamS = packed record |
26 cmd: TCmdType; |
27 cmd: TCmdType; |
27 str1: shortstring; |
28 str1: shortstring; |
28 end; |
29 end; |
29 type TCmdParamSL = packed record |
30 type TCmdParamSL = packed record |
30 cmd: TCmdType; |
31 cmd: TCmdType; |
31 str1: shortstring; |
32 str1: shortstring; |
32 str2: string; |
33 str2len: Longword; |
|
34 str2: array[word] of char; |
33 end; |
35 end; |
34 type TCmdParamSS = packed record |
36 type TCmdParamSS = packed record |
35 cmd: TCmdType; |
37 cmd: TCmdType; |
36 str1: shortstring; |
38 str1: shortstring; |
37 str2: shortstring; |
39 str2: shortstring; |