Überladene Version?!?

[Daniel B]

Hallöchen,

was mach ich den jetzt schon wieder falsch?

Code:

procedure TMultitraktionLoks.Button3Click(Sender: TObject);
begin
  ShowMessage(IntToStr(MC2004.MenueInit.MtrStamm[StrToInt(
    MainFormMC2004.ListViewKKMtr.Selected.SubItems[2])]));
end;

Zitat:

[Fehler] MtrLoks.pas(251): Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann

Grüsse, Daniel :hi:

[jbg]

Als was ist denn MC2004.MenueInit.MtrStamm[] deklariert?

[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;

[jbg]

Da haben wir ja das Problem. Du versuchst den Record TMtr der von MC2004.MenueInit.MtrStamm[] geliefert wird, als Integer zu interpretieren und diesen an IntToStr zu übergeben
Du hast hinter dem "]" die Feldbezeichnung vergessen.

z.B.

Code:

MC2004.MenueInit.MtrStamm[StrToInt(
    MainFormMC2004.ListViewKKMtr.Selected.SubItems[2])][b].MtrID[/b]));

[Daniel B]

Ah, jetzt gehts, Danke Dir. :hello:

Grüsse, Daniel :hi: