Überladene Version?!?

[Daniel B]

Code:

  TMtr = Record //Multitraktion Daten
    MtrID: Integer; //ID -> Nummerisch Max. 5-Stellig 0-99999
    MtrName: String[10]; //Name -> AlphaNummerisch Max. 10-stellig
    Aktiv: Byte; //Aktiv(Multitraktion Aktiv?); Kann nur 1=Ja oder 0=Nein sein
    Erste: Byte; //Erste(Lok in einer Multitraktion); Kann nur 1 oder 0 sein
                 //Kann auch nur EINER Lok in einer Multitraktion zugewiesen werden
    MtrLok: Array [0..MaxMtrLoks -1] of TMtrLok;
    MtrLoksAnzahl: Integer;
  end;

Code:

  TMenue = Record
    LokStamm: Array of TLok;
    LokAnzahl: Integer;
    FktStamm: Array of TFkt;
    FktAnzahl: Integer;
    WeiStamm: Array of TWei;
    WeiAnzahl: Integer;
    MtrStamm: Array of TMtr;
    MtrAnzahl: Integer;
    KWLok: TKWLok; //Schnellwahltasten für den Lok-Modus
    KWFkt: TKWFkt; //Schnellwahltasten für den Funktions-Modus
    KWWStr: TKWWStr; //Schnellwahltasten für die Weichenstrassen
    SXAL: Boolean; //SXDaten AutoLaden 1=Ja oder 0=Nein
    SXALZ: Integer; //SXDaten AutoLadenZeit
    UStart: String[4]; //Uhr StartZeit
    UFaktor: String[2]; //Uhr Faktor
    UAnzeige: Boolean; //Uhr Anzeige Ein oder Aus
    PCIBaud: String; //PCInterface Baudrate
    PCIFormat: Integer; //PCInterface Format
    Licht: Boolean; //Licht
    Beschl: Byte; //MasseFaktorBeschl
    Brems: Byte; //MasseFaktorBrems
    Regler: Byte; //ReglerModus
    Decoder: Byte; //StandardDecoder
  end;

Code:

  TMC2004 = Record
    MenueInit: TMenue;
//    MenueSave: TMenue; //Wird noch nicht benutzt
//    SXInit: TSXInit; //Wird noch nicht benutzt
  end;

Code:

var
  MainFormMC2004: TMainFormMC2004;
  mHandle: THandle;
  MC2004: TMC2004;