Реферат Розробка комп'ютерного вимірювального комплексу вагона-лабораторії залізничної автоматики, телемеханіки та зв'язку

Тема: Новые рефераты

NumFrictSite»)->Value!=CurNumFrictSite))

{> FrictSitesTable-> Next ();

}> TFrictSite-> Caption=AnsiString («(») + IntToStr (CurNumFrictSite) + AnsiString («)») + DM-> FrictSitesTable-> FieldByName ( «NameFrictSite») -> AsString;> RCTable-> Active=true;

/ * DM->RCTable->First();((DM->RCTable->FieldByName(«NumSite»)->Value!=CurNumSite)||(DM->RCTable->FieldByName(«NumFrictSite»)->Value!=CurNumFrictSite)||(DM->RCTable->FieldByName(«NumJunction»)->Value!=CurNumJunction))

{> RCTable-> Next ();

} * /> RCTable-> IndexFieldNames=«NumSite; NumFrictSite; NumJunction »;> RCTable-> FindNearest (OPENARRAY (TVarRec, (CurNumSite, CurNumFrictSite, CurNumJunction)));> KPTTable-> Active=true;>KPTTable->First();(DM->KPTTable->FieldByName(«NumKPT»)->Value!=DM->RCTable->FieldByName(«NumKPT»)->Value)

{> KPTTable-> Next ();

}> TRC-> Caption=AnsiString («Стик №») + IntToStr (CurNumJunction) + AnsiString («Світлофор») + DM-> RCTable-> FieldByName («NameSignal»)->Value+AnsiString(«/»)+DM->RCTable->FieldByName(«NumTranslation»)->AsString + AnsiString («Тип обладнання:») + DM->KPTTable->FieldByName(«NameKPT»)->Value;>KPTTable->First();>RCTable->First();

} __fastcall TMainForm :: FormActivate (TObject * Sender)

{();

}

//---------------------------------------------------------------------------__fastcall TMainForm :: MyTimerTimer (TObject * Sender)

{-> Caption=FloatToStrF (Imp1, ffGeneral, 2,0); -> Caption=FloatToStrF (Imp2, ffGeneral, 2,0); -> Caption=FloatToStrF (Imp3, ffGeneral, 2,0); -> Caption=FloatToStrF (Int1, ffGeneral, 2,0); -> Caption=FloatToStrF (Int2, ffGeneral, 2,0); -> Caption=FloatToStrF (Int3, ffGeneral, 2,0);> Caption=IntToStr (Frequency);> Caption=IntToStr (Velocity);> Caption=IntToStr (Coordinate);> Caption=CodeType;> Caption=FloatToStrF (Current, ffGeneral, 1, 0);> Caption=FloatToStrF (Cycle, ffGeneral, 2,0);> Caption=FloatToStrF (InterraptCode, ffGeneral, 2,0);> Caption=IsolJunction;

}

//---------------------------------------------------------------------------__fastcall TMainForm :: N8Click (TObject * Sender)

{(N8-> Checked)

{= false; -> Checked=false;

}

{= true; -> Checked=true;

}

/ / ---------------------------------------------------------------------------

__fastcall TMainForm :: FormClose (TObject * Sender, TCloseAction & Action)

{> Terminate ();> WaitFor ();

/ / delete MyLink;

}