mainunit.~pas

发射台 控制台 dephi编写 大家可以随便可看看, 可以做dephi入门实例学习

  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;