// U_Udstyr.cpp // 21. maj 2001 // Datamatiker, Programmering af store systemer // Mikkel Munksgaard og Niels Grove-Rasmussen //--------------------------------------------------------------------------- #include #pragma hdrstop #include "U_Udstyr.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm_Udstyr *Form_Udstyr; //--------------------------------------------------------------------------- __fastcall TForm_Udstyr::TForm_Udstyr(TComponent* Owner) : TForm(Owner) {} //--------------------------------------------------------------------------- void __fastcall TForm_Udstyr::Butn_LukClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void TForm_Udstyr::Fejl(const String& metode, const String& meddelelse) { MessageDlg("Fejl i Form_Udstyr." + metode + ":\n\n" + meddelelse + ".", mtError, TMsgDlgButtons() << mbAbort, 0); exit(EXIT_FAILURE); } //---------------------------------------------------------------------------