Mehrere Records verschachteln

[Bee]

Und zwar habe ich eine Frage, was ist am untenstehenden Code flasch?
Die Arrays sollen Dynamisch werden, zum anderen bekomme ich eine Meldung Das ich die 2GB grenze überschritten habe, kann man das auch anders lösen.

Code:

 type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
  TPreset = record
   Name: String;
   Choice: char;
   Value: array [] of Byte;
  end;
  TChannel = record
   Name: String;
   Choice: char;
   Min: Byte;
   Max: Byte;
   Is16Bit: Boolean;
  end;
  TFixture = record
   Name: String;
   IsHead: Boolean;
   ChCount: Byte;
   Channel: array [] of TChannel;
   Preset: array [] of TPreset;
  end;
  TManufacturer = record
   Name: String;
   FixCount: Byte;
   Fixture: array [] of TFixture
  end;
var
  Form1: TForm1;
  Fixlib: array [] of TManufacturer;

Danke!
Bee

[Christian Seehase]

Moin Bee,

wenn Du mal die [] weglässt, sollte das funktionieren.

[Bee]

Auch das löschen der eckigen Klammer ergibt eine Menge an Fehlermeldungen
[ erwartet bzw. ordinaltyp erwartet, irgendwo muss noch der Wurm sein.

Bee

[sakura]

Innerhalb von Records musst Du Typen nutzen, um dyn. Arrays einzusetzen.

Delphi-Quellcode:

// aus
  TPreset = record 
    Name: String; 
    Choice: char; 
    Value: array [] of Byte; 
  end; 

// wird
  TByteArray = array of Byte; 
  TPreset = record 
    Name: String; 
    Choice: char; 
    Value: TByteArray
  end;

[jbg]

Zitat:

Zitat von sakura

Innerhalb von Records musst Du Typen nutzen, um dyn. Arrays einzusetzen.

Wo hast du denn den Blödsinn her?


@Bee: Hast du auch wirklich alle [] entfernt? Auch die bei

Zitat:

Fixlib: array [] of TManufacturer;

[Christian Seehase]

Moin Bee,

nachdem ich mal die [] entfernt hatte ging's bei mir.

In VB(A) werden dynamische Arrays wohl mit () deklariert in Pascal in dem man die Angabe der Dimensionen weglässt.

[Bee]

Hallo Christian, Hallo jbg!

ich habe meinen Code folgendermaßen abgeändert und erhalte bei der Syntaxprüfung trozdem Fehlermeldungen, ich habe sie mal als Kommentar dazu geschrieben

Code:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
  TPreset = record
   Name : String;
   Choice : char;
   Value : array of Byte;  { [ erwartet of gefunden.}
  end;                     { of erwartet end gefunden.}
  TChannel = record
   Name : String;
   Choice : char;
   Min : Byte;
   Max : Byte;
   Is16Bit : Boolean;
  end;
  TFixture = record
   Name : String;
   IsHead : Boolean;
   ChCount : Byte;
   Channel : array of TChannle;   { [ erwartet of gefunden, ] erwartet aber ; gefunden}
   Preset : array of TPreset;     { of erwartet aber Bezeichner Preset gefunden}
  end;                            { zu oben , oder : erwartet aber ; gefunden, Typ erwartet aber END gefunden}
  TManufacturer = record
   Name : String;
   FixCount : Byte;
   Fixture : array of TFixture;    { [ erwartet aber of gefunden, Ordinaltyp erforderlich}
  end;                             { of erwartet aber End gefunden}
var
  Form1: TForm1;
  Fixlib: array of TManufacturer;  { [ erwartet aber of gefunden, Ordinaltyp erforderlich}
implementation                     { of erwartet aber IMPLEMENTATION gefunden}

irgendwas passt noch nicht so ganz.
Gruß Bee

[Christian Seehase]

Moin Bee,

da es bei mir wieder einwandfrei funktioniert (nachdem ich auch TChannle TChannel gemacht habe), kommt mir ein unangenehmer Verdacht:

D3 verwendet entweder eine andere Syntax, oder aber kann nicht mit dynamischen Arrays umgehen (was mich allerdings wundern würde)

Ich tippe mal auf andere Syntax, oder Einstellung in den Optionen.

[Hansa]

Hi,

Zitat:

Channel : array of TChannle

Ist das hier nicht schon alles ? TChannleund Tchannel ?

Gruß
Hansa

[jbg]

Zitat:

Zitat von Christian Seehase

oder aber kann nicht mit dynamischen Arrays umgehen (was mich allerdings wundern würde)

Da ich in meinen D3 Codes keine dyn. Array verwendet habe, liegt der Verdacht, dass D3 keine unterstützt sehr nahe. In der OH von D3 konnte ich auch nichts über dynamische Arrays finden.

[Bee]

Danke!

Da ich in der Onlinehilfe von D3 auch nichts zu dyn. Arrays gefunden habe, hab ich das Problem damit gelöst in dem ich Delphi6PE installiert habe, jetzt funktionierts ohne Fehlermeldungen. :)

bis zum nächsten problem :mrgreen:
Bee