?? mainunit.~pas
字號:
SetLength(TKDB[0].Value.value5, 8);
TKDB[0].Value.Value1[0] := 0;
TKDB[0].Value.Value2[0] := 0;
TKDB[0].Value.Value3[0] := 0;
TKDB[0].Value.Value4[0] := 0;
TKDB[0].Value.Value5[0] := 0;
TKDB[0].Value.Value1[1] := $100;
TKDB[0].Value.Value2[1] := $200;
TKDB[0].Value.Value3[1] := 0;
TKDB[0].Value.Value4[1] := 0;
TKDB[0].Value.Value5[1] := 0;
TKDB[0].Value.Value1[2] := $100;
TKDB[0].Value.Value2[2] := $108;
TKDB[0].Value.Value3[2] := 0;
TKDB[0].Value.Value4[2] := 0;
TKDB[0].Value.Value5[2] := 0;
TKDB[0].Value.Value1[3] := $100;
TKDB[0].Value.Value2[3] := $104;
TKDB[0].Value.Value3[3] := $20;
TKDB[0].Value.Value4[3] := 0;
TKDB[0].Value.Value5[3] := 0;
TKDB[0].Value.Value1[4] := $100;
TKDB[0].Value.Value2[4] := $104;
TKDB[0].Value.Value3[4] := $10;
TKDB[0].Value.Value4[4] := $2000;
TKDB[0].Value.Value5[4] := 0;
TKDB[0].Value.Value1[5] := $100;
TKDB[0].Value.Value2[5] := $104;
TKDB[0].Value.Value3[5] := $10;
TKDB[0].Value.Value4[5] := $1020;
TKDB[0].Value.Value5[5] := 0;
TKDB[0].Value.Value1[6] := $100;
TKDB[0].Value.Value2[6] := $104;
TKDB[0].Value.Value3[6] := $10;
TKDB[0].Value.Value4[6] := $1090;
TKDB[0].Value.Value5[6] := 0;
TKDB[0].Value.Value1[7] := $100;
TKDB[0].Value.Value2[7] := $104;
TKDB[0].Value.Value3[7] := $10;
TKDB[0].Value.Value4[7] := $1050;
TKDB[0].Value.Value5[7] := $200;
//2#發射機
TKDB[1].TName := '2#發射機'; //發射機號
TKDB[1].AList := TStringList.Create;
TKDB[1].AList.Add('未使用'); //對應天線號
TKDB[1].AList.Add('1#天線'); //對應天線號
TKDB[1].AList.Add('3#天線');
TKDB[1].AList.Add('5#天線');
TKDB[1].AList.Add('8#天線');
TKDB[1].AList.Add('10#天線');
TKDB[1].AList.Add('12#天線');
TKDB[1].AList.Add('14#天線');
SetLength(TKDB[1].Value.value1, 8);
SetLength(TKDB[1].Value.value2, 8);
SetLength(TKDB[1].Value.value3, 8);
SetLength(TKDB[1].Value.value4, 8);
SetLength(TKDB[1].Value.value5, 8);
TKDB[1].Value.Value1[0] := 0;
TKDB[1].Value.Value2[0] := 0;
TKDB[1].Value.Value3[0] := 0;
TKDB[1].Value.Value4[0] := 0;
TKDB[1].Value.Value5[0] := 0;
TKDB[1].Value.Value1[1] := $420;
TKDB[1].Value.Value2[1] := 0;
TKDB[1].Value.Value3[1] := 0;
TKDB[1].Value.Value4[1] := 0;
TKDB[1].Value.Value5[1] := 0;
TKDB[1].Value.Value1[2] := $410;
TKDB[1].Value.Value2[2] := $2000;
TKDB[1].Value.Value3[2] := 0;
TKDB[1].Value.Value4[2] := 0;
TKDB[1].Value.Value5[2] := 0;
TKDB[1].Value.Value1[3] := $410;
TKDB[1].Value.Value2[3] := $1000;
TKDB[1].Value.Value3[3] := $800;
TKDB[1].Value.Value4[3] := 0;
TKDB[1].Value.Value5[3] := 0;
TKDB[1].Value.Value1[4] := $410;
TKDB[1].Value.Value2[4] := $1000;
TKDB[1].Value.Value3[4] := $480;
TKDB[1].Value.Value4[4] := 0;
TKDB[1].Value.Value5[4] := 0;
TKDB[1].Value.Value1[5] := $410;
TKDB[1].Value.Value2[5] := $1000;
TKDB[1].Value.Value3[5] := $440;
TKDB[1].Value.Value4[5] := $200;
TKDB[1].Value.Value5[5] := 0;
TKDB[1].Value.Value1[6] := $410;
TKDB[1].Value.Value2[6] := $1000;
TKDB[1].Value.Value3[6] := $440;
TKDB[1].Value.Value4[6] := $900;
TKDB[1].Value.Value5[6] := 0;
TKDB[1].Value.Value1[7] := $410;
TKDB[1].Value.Value2[7] := $1000;
TKDB[1].Value.Value3[7] := $440;
TKDB[1].Value.Value4[7] := $500;
TKDB[1].Value.Value5[7] := 0;
//3#發射機
TKDB[2].TName := '3#發射機'; //發射機號
TKDB[2].AList := TStringList.Create;
TKDB[2].AList.Add('未使用'); //對應天線號
TKDB[2].AList.Add('2#天線'); //對應天線號
TKDB[2].AList.Add('4#天線');
TKDB[2].AList.Add('6#天線');
TKDB[2].AList.Add('7#天線');
TKDB[2].AList.Add('9#天線');
TKDB[2].AList.Add('11#天線');
TKDB[2].AList.Add('13#天線');
TKDB[2].AList.Add('1#天線'); //對應天線號
TKDB[2].AList.Add('3#天線');
TKDB[2].AList.Add('5#天線');
TKDB[2].AList.Add('8#天線');
TKDB[2].AList.Add('10#天線');
TKDB[2].AList.Add('12#天線');
TKDB[2].AList.Add('14#天線');
TKDB[2].AList.Add('10#天線(自有)');
TKDB[2].AList.Add('12#天線(自有)');
TKDB[2].AList.Add('13#天線(自有)');
SetLength(TKDB[2].Value.value1, 18);
SetLength(TKDB[2].Value.value2, 18);
SetLength(TKDB[2].Value.value3, 18);
SetLength(TKDB[2].Value.value4, 18);
SetLength(TKDB[2].Value.value5, 18);
TKDB[2].Value.Value1[0] := 0;
TKDB[2].Value.Value2[0] := 0;
TKDB[2].Value.Value3[0] := 0;
TKDB[2].Value.Value4[0] := 0;
TKDB[2].Value.Value5[0] := 0;
TKDB[2].Value.Value1[1] := $2600;
TKDB[2].Value.Value2[1] := $200;
TKDB[2].Value.Value3[1] := 0;
TKDB[2].Value.Value4[1] := 0;
TKDB[2].Value.Value5[1] := 0;
TKDB[2].Value.Value1[2] := $2600;
TKDB[2].Value.Value2[2] := $108;
TKDB[2].Value.Value3[2] := 0;
TKDB[2].Value.Value4[2] := 0;
TKDB[2].Value.Value5[2] := 0;
TKDB[2].Value.Value1[3] := $2600;
TKDB[2].Value.Value2[3] := $104;
TKDB[2].Value.Value3[3] := $20;
TKDB[2].Value.Value4[3] := 0;
TKDB[2].Value.Value5[3] := 0;
TKDB[2].Value.Value1[4] := $2600;
TKDB[2].Value.Value2[4] := $104;
TKDB[2].Value.Value3[4] := $10;
TKDB[2].Value.Value4[4] := $2000;
TKDB[2].Value.Value5[4] := 0;
TKDB[2].Value.Value1[5] := $2600;
TKDB[2].Value.Value2[5] := $104;
TKDB[2].Value.Value3[5] := $10;
TKDB[2].Value.Value4[5] := $1020;
TKDB[2].Value.Value5[5] := 0;
TKDB[2].Value.Value1[6] := $2600;
TKDB[2].Value.Value2[6] := $104;
TKDB[2].Value.Value3[6] := $10;
TKDB[2].Value.Value4[6] := $1090;
TKDB[2].Value.Value5[6] := 0;
TKDB[2].Value.Value1[7] := $2600;
TKDB[2].Value.Value2[7] := $104;
TKDB[2].Value.Value3[7] := $10;
TKDB[2].Value.Value4[7] := $1050;
TKDB[2].Value.Value5[7] := $200;
TKDB[2].Value.Value1[8] := $2820;
TKDB[2].Value.Value2[8] := 0;
TKDB[2].Value.Value3[8] := 0;
TKDB[2].Value.Value4[8] := 0;
TKDB[2].Value.Value5[8] := 0;
TKDB[2].Value.Value1[9] := $2810;
TKDB[2].Value.Value2[9] := $2000;
TKDB[2].Value.Value3[9] := 0;
TKDB[2].Value.Value4[9] := 0;
TKDB[2].Value.Value5[9] := 0;
TKDB[2].Value.Value1[10] := $2810;
TKDB[2].Value.Value2[10] := $1000;
TKDB[2].Value.Value3[10] := $800;
TKDB[2].Value.Value4[10] := 0;
TKDB[2].Value.Value5[10] := 0;
TKDB[2].Value.Value1[11] := $2810;
TKDB[2].Value.Value2[11] := $1000;
TKDB[2].Value.Value3[11] := $480;
TKDB[2].Value.Value4[11] := 0;
TKDB[2].Value.Value5[11] := 0;
TKDB[2].Value.Value1[12] := $2810;
TKDB[2].Value.Value2[12] := $1000;
TKDB[2].Value.Value3[12] := $440;
TKDB[2].Value.Value4[12] := $200;
TKDB[2].Value.Value5[12] := 0;
TKDB[2].Value.Value1[13] := $2810;
TKDB[2].Value.Value2[13] := $1000;
TKDB[2].Value.Value3[13] := $440;
TKDB[2].Value.Value4[13] := $900;
TKDB[2].Value.Value5[13] := 0;
TKDB[2].Value.Value1[14] := $2810;
TKDB[2].Value.Value2[14] := $1000;
TKDB[2].Value.Value3[14] := $440;
TKDB[2].Value.Value4[14] := $500;
TKDB[2].Value.Value5[14] := 0;
TKDB[2].Value.Value1[15] := $1000;
TKDB[2].Value.Value2[15] := $20;
TKDB[2].Value.Value3[15] := 0;
TKDB[2].Value.Value4[15] := $100;
TKDB[2].Value.Value5[15] := 0;
TKDB[2].Value.Value1[16] := $1000;
TKDB[2].Value.Value2[16] := $90;
TKDB[2].Value.Value3[16] := 0;
TKDB[2].Value.Value4[16] := $400;
TKDB[2].Value.Value5[16] := 0;
TKDB[2].Value.Value1[17] := $1000;
TKDB[2].Value.Value2[17] := $50;
TKDB[2].Value.Value3[17] := 0;
TKDB[2].Value.Value4[17] := 0;
TKDB[2].Value.Value5[17] := $100;
//4#發射機
TKDB[3].TName := '4#發射機'; //發射機號
TKDB[3].AList := TStringList.Create;
TKDB[3].AList.Add('未使用'); //對應天線號
TKDB[3].AList.Add('24#天線'); //對應天線號
TKDB[3].AList.Add('22#天線');
TKDB[3].AList.Add('20#天線');
TKDB[3].AList.Add('18#天線(C段)');
TKDB[3].AList.Add('18#天線(D段)');
TKDB[3].AList.Add('17#天線');
TKDB[3].AList.Add('9#天線');
TKDB[3].AList.Add('7#天線');
SetLength(TKDB[3].Value.value1, 9);
SetLength(TKDB[3].Value.value2, 9);
SetLength(TKDB[3].Value.value3, 9);
SetLength(TKDB[3].Value.value4, 9);
SetLength(TKDB[3].Value.value5, 9);
TKDB[3].Value.Value1[0] := 0;
TKDB[3].Value.Value2[0] := 0;
TKDB[3].Value.Value3[0] := 0;
TKDB[3].Value.Value4[0] := 0;
TKDB[3].Value.Value5[0] := 0;
TKDB[3].Value.Value1[1] := $84;
TKDB[3].Value.Value2[1] := 0;
TKDB[3].Value.Value3[1] := 0;
TKDB[3].Value.Value4[1] := 0;
TKDB[3].Value.Value5[1] := 0;
TKDB[3].Value.Value1[2] := $44;
TKDB[3].Value.Value2[2] := $2;
TKDB[3].Value.Value3[2] := 0;
TKDB[3].Value.Value4[2] := 0;
TKDB[3].Value.Value5[2] := 0;
TKDB[3].Value.Value1[3] := $44;
TKDB[3].Value.Value2[3] := $1;
TKDB[3].Value.Value3[3] := $8;
TKDB[3].Value.Value4[3] := 0;
TKDB[3].Value.Value5[3] := 0;
TKDB[3].Value.Value1[4] := $44;
TKDB[3].Value.Value2[4] := $1;
TKDB[3].Value.Value3[4] := $4;
TKDB[3].Value.Value4[4] := $4;
TKDB[3].Value.Value5[4] := $4010;
TKDB[3].Value.Value1[5] := $44;
TKDB[3].Value.Value2[5] := $1;
TKDB[3].Value.Value3[5] := $4;
TKDB[3].Value.Value4[5] := $4;
TKDB[3].Value.Value5[5] := $8020;
TKDB[3].Value.Value1[6] := $44;
TKDB[3].Value.Value2[6] := $1;
TKDB[3].Value.Value3[6] := $4;
TKDB[3].Value.Value4[6] := $A;
TKDB[3].Value.Value5[6] := 0;
TKDB[3].Value.Value1[7] := $44;
TKDB[3].Value.Value2[7] := $1;
TKDB[3].Value.Value3[7] := $4;
TKDB[3].Value.Value4[7] := $8019;
TKDB[3].Value.Value5[7] := 0;
TKDB[3].Value.Value1[8] := $44;
TKDB[3].Value.Value2[8] := $1;
TKDB[3].Value.Value3[8] := $4;
TKDB[3].Value.Value4[8] := $5009;
TKDB[3].Value.Value5[8] := 0;
//5#發射機
TKDB[4].TName := '5#發射機'; //發射機號
TKDB[4].AList := TStringList.Create;
TKDB[4].AList.Add('未使用'); //對應天線號
TKDB[4].AList.Add('23#天線'); //對應天線號
TKDB[4].AList.Add('21#天線');
TKDB[4].AList.Add('19#天線');
TKDB[4].AList.Add('16#天線');
TKDB[4].AList.Add('15#天線(A段)');
TKDB[4].AList.Add('15#天線(B段)');
TKDB[4].AList.Add('8#天線');
SetLength(TKDB[4].Value.value1, 8);
SetLength(TKDB[4].Value.value2, 8);
SetLength(TKDB[4].Value.value3, 8);
SetLength(TKDB[4].Value.value4, 8);
SetLength(TKDB[4].Value.value5, 8);
TKDB[4].Value.Value1[0] := 0;
TKDB[4].Value.Value2[0] := 0;
TKDB[4].Value.Value3[0] := 0;
TKDB[4].Value.Value4[0] := 0;
TKDB[4].Value.Value5[0] := 0;
TKDB[4].Value.Value1[1] := $1;
TKDB[4].Value.Value2[1] := $800;
TKDB[4].Value.Value3[1] := 0;
TKDB[4].Value.Value4[1] := 0;
TKDB[4].Value.Value5[1] := 0;
TKDB[4].Value.Value1[2] := $1;
TKDB[4].Value.Value2[2] := $400;
TKDB[4].Value.Value3[2] := $200;
TKDB[4].Value.Value4[2] := 0;
TKDB[4].Value.Value5[2] := 0;
TKDB[4].Value.Value1[3] := $1;
TKDB[4].Value.Value2[3] := $400;
TKDB[4].Value.Value3[3] := $101;
TKDB[4].Value.Value4[3] := 0;
TKDB[4].Value.Value5[3] := 0;
TKDB[4].Value.Value1[4] := $1;
TKDB[4].Value.Value2[4] := $400;
TKDB[4].Value.Value3[4] := $8102;
TKDB[4].Value.Value4[4] := 0;
TKDB[4].Value.Value5[4] := 0;
TKDB[4].Value.Value1[5] := $1;
TKDB[4].Value.Value2[5] := $400;
TKDB[4].Value.Value3[5] := $6102;
TKDB[4].Value.Value4[5] := 0;
TKDB[4].Value.Value5[5] := $802;
TKDB[4].Value.Value1[6] := $1;
TKDB[4].Value.Value2[6] := $400;
TKDB[4].Value.Value3[6] := $6102;
TKDB[4].Value.Value4[6] := 0;
TKDB[4].Value.Value5[6] := $1004;
TKDB[4].Value.Value1[7] := $1;
TKDB[4].Value.Value2[7] := $400;
TKDB[4].Value.Value3[7] := $5142;
TKDB[4].Value.Value4[7] := 0;
TKDB[4].Value.Value5[7] := 0;
//6#發射機
TKDB[5].TName := '6#發射機'; //發射機號
TKDB[5].AList := TStringList.Create;
TKDB[5].AList.Add('未使用'); //對應天線號
TKDB[5].AList.Add('24#天線'); //對應天線號
TKDB[5].AList.Add('22#天線');
TKDB[5].AList.Add('20#天線');
TKDB[5].AList.Add('18#天線(C段)');
TKDB[5].AList.Add('18#天線(D段)');
TKDB[5].AList.Add('17#天線');
TKDB[5].AList.Add('9#天線');
TKDB[5].AList.Add('7#天線');
TKDB[5].AList.Add('23#天線'); //對應天線號
TKDB[5].AList.Add('21#天線');
TKDB[5].AList.Add('19#天線');
TKDB[5].AList.Add('16#天線');
TKDB[5].AList.Add('15#天線(A段)');
TKDB[5].AList.Add('15#天線(B段)');
TKDB[5].AList.Add('8#天線');
TKDB[5].AList.Add('17#天線(自有)');
TKDB[5].AList.Add('11#天線(自有)');
SetLength(TKDB[5].Value.value1, 18);
SetLength(TKDB[5].Value.value2, 18);
SetLength(TKDB[5].Value.value3, 18);
SetLength(TKDB[5].Value.value4, 18);
SetLength(TKDB[5].Value.value5, 18);
TKDB[5].Value.Value1[0] := 0;
TKDB[5].Value.Value2[0] := 0;
TKDB[5].Value.Value3[0] := 0;
TKDB[5].Value.Value4[0] := 0;
TKDB[5].Value.Value5[0] := 0;
TKDB[5].Value.Value1[1] := $8089;
TKDB[5].Value.Value2[1] := 0;
TKDB[5].Value.Value3[1] := 0;
TKDB[5].Value.Value4[1] := 0;
TKDB[5].Value.Value5[1] := 0;
TKDB[5].Value.Value1[2] := $8049;
TKDB[5].Value.Value2[2] := $2;
TKDB[5].Value.Value3[2] := 0;
TKDB[5].Value.Value4[2] := 0;
TKDB[5].Value.Value5[2] := 0;
TKDB[5].Value.Value1[3] := $8049;
TKDB[5].Value.Value2[3] := $1;
TKDB[5].Value.Value3[3] := $8;
TKDB[5].Value.Value4[3] := 0;
TKDB[5].Value.Value5[3] := 0;
TKDB[5].Value.Value1[4] := $8049;
TKDB[5].Value.Value2[4] := $1;
TKDB[5].Value.Value3[4] := $4;
TKDB[5].Value.Value4[4] := $4;
TKDB[5].Value.Value5[4] := $4010;
TKDB[5].Value.Value1[5] := $8049;
TKDB[5].Value.Value2[5] := $1;
TKDB[5].Value.Value3[5] := $4;
TKDB[5].Value.Value4[5] := $4;
TKDB[5].Value.Value5[5] := $8020;
TKDB[5].Value.Value1[6] := $8049;
TKDB[5].Value.Value2[6] := $1;
TKDB[5].Value.Value3[6] := $4;
TKDB[5].Value.Value4[6] := $A;
TKDB[5].Value.Value5[6] := 0;
TKDB[5].Value.Value1[7] := $8049;
TKDB[5].Value.Value2[7] := $1;
TKDB[5].Value.Value3[7] := $4;
TKDB[5].Value.Value4[7] := $8019;
TKDB[5].Value.Value5[7] := 0;
TKDB[5].Value.Value1[8] := $8049;
TKDB[5].Value.Value2[8] := $1;
TKDB[5].Value.Value3[8] := $4;
TKDB[5].Value.Value4[8] := $5009;
TKDB[5].Value.Value5[8] := 0;
TKDB[5].Value.Value1[9] := $8002;
TKDB[5].Value.Value2[9] := $800;
TKDB[5].Value.Value3[9] := 0;
TKDB[5].Value.Value4[9] := 0;
TKDB[5].Value.Value5[9] := 0;
TKDB[5].Value.Value1[10] := $8002;
TKDB[5].Value.Value2[10] := $400;
TKDB[5].Value.Value3[10] := $200;
TKDB[5].Value.Value4[10] := 0;
TKDB[5].Value.Value5[10] := 0;
TKDB[5].Value.Value1[11] := $8002;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -