SetLength eines Records beginnt bei 1 ?

[NoGAD]

Hallo, ich verzweifle gerade, weil ein dynamisches Array bei mir immer mit 1, statt 0 beginnt:

Delphi-Quellcode:

[..]
interface

type
  T_DataBase_AddTerminArray = record
    cFieldNames: String;
    aFieldValues: String;
  end;

type
  T_DataBase_AddTermin = record
    aID: Integer;
    aDateTime: TDateTime;
    aFields: array of T_DataBase_AddTerminArray;
  end;


type
  TDBClassAddTermin = class
  private
  public
    aDataBaseAddTermin: T_DataBase_AddTermin;
  end;

var
  { Termin hinzufügen Struktur }
  GDBClassAddTermin: TDBClassAddTermin;

Jetzt versuche ich die Klasse zu initialisieren:

Delphi-Quellcode:

      GDBClassAddTermin := TDBClassAddTermin.Create;
      GDBClassAddTermin.aDataBaseAddTermin.aDateTime := Dummy_DateTime;
      SetLength(GDBClassAddTermin.aDataBaseAddTermin.aFields, 6); // HIER beginnt nun zu meiner Verwunderung der Index bei 1

Eine Zuweisung mittels GDBClassAddTermin.aDataBaseAddTermin.aFields[0].cFieldNames := 'Test'; ergibt eine Fehlermeldung.

Auf der anderen Seite will aber eine Schleife wiederum beim Index 0 beginnen:

Delphi-Quellcode:

var
 DummyX: Integer;
begin
 for low(GDBClassAddTermin.aDataBaseAddTermin.aFields) to pred(high(GDBClassAddTermin.aDataBaseAddTermin.aFields)) do //pred müsste eigentlich korrekt sein, wenn von 0 gezählt wird
  begin
   GDBClassAddTermin.aDataBaseAddTermin.aFields[DummyX].cFieldNames := DummyX.ToString; // ergibt auch eine Fehlermeldung beim Index 0
  end;

Kann mir bitte jemand auf die Sprünge helfen, warum das so ist oder, was mir wichtiger ist, wo mein Denkfehler liegt?

LG Mathias :-)




Edit: hat sich erledigt, auf einmal klappt es doch. Ich weiß aber nicht, warum.

[himitsu]

Dann gibt doch mal ein richties Testprogrammchen her.
In diesen halb zusammengestümperten Artefakten ist kein Fehler zu sehn (außer dass die FOR-Schleife nicht funktionieren kann)

grundsätzlich:
* Lenght fängt immer bei 0 an
*

Delphi-Quellcode:

to pred(high

: und High ist bereits das Obere, egal ob bei 1 oder 0 begonnen wird

[NoGAD]

Huhu himitsu,

ich habe den Fehler inzwischen gefunden.

Bei der Zuweisung hatte ich aus Vershen ein Pred() für die Zuweiung von Strings für ein StringGrid benutzt. Daher kam das natürlich mit -1 nicht gut an ;-)

Danke für Deine Hilfe.


Die Schleife funktioniert ohne pred() nun auch korrekt.


LG Mathias