Dynamische Array mit Problemen

[Taladan]

hab einen Stream angelegt, der eine Liste von Records abspeichert.
Diese Liste soll jedoch dynamsich erhöt werden können. Dafür nutze ich ein Array.
Der Befehl BefNachteil.Lesen ließt die Records korrekt aus (z. Z. 4 Datensätze; sprich der Zeiger sitzt auf 3). Nu soll noch ein weiterer Datensatz hinzu gefügt werden, aber das SetLength mach Probleme. Seltsamerweise wird Nachteil.ID normal geschrieben und bei Nachteil.Name bekomme ich eine Zugriffsverletzungs-Fehlermeldung. Wer weiß Rat?

Code:

procedure TNachteil.Schreiben;
var
  Stream: TStream;
  I, H: integer;
  Len: Longint;
begin
  BefNachteil.Lesen;
  H := High(Nachteil)+1;
  SetLength(Nachteil,H);

  Nachteil[H].ID := 1;
  ShowMessage(inttostr(High(Nachteil)));
  Nachteil[H].Name := 'Ein Name';
  ShowMessage(inttostr(H));
{
  Stream := TFileStream.Create('StreamTest.dct', fmCreate);

  try
         Len := Length(Nachteil);
         Stream.Write(Len, SizeOf(Len));
         for I := 0 to Length(Nachteil) - 1 do
         begin
              Stream.Write(Nachteil[I].ID, SizeOf(Nachteil[I].ID));
              Len := Length(Nachteil[I].Name);
              Stream.Write(Len, SizeOf(Len));
              Stream.Write(PChar(Nachteil[I].Name)^, Len);
         end;
  finally
    Stream.Free;
  end;      }
end;

procedure TNachteil.Lesen;
var
  Stream: TStream;
  I: integer;
  Len: Longint;
begin
  Stream := TFileStream.Create('StreamTest.dct', fmOpenRead);
  try
     Stream.Read(Len, SizeOf(Len));
     SetLength(Nachteil, Len);
     for I := 0 to Len - 1 do
     begin
       Stream.Read(Nachteil[I].ID, SizeOf(Nachteil[I].ID));
       Stream.Read(Len, SizeOf(Len));
       SetLength(Nachteil[I].Name, Len);
       Stream.Read(PChar(Nachteil[I].Name)^, Len)
     end;
  finally
     Stream.Free;
  end;
end;

[mr2]

Hallo,


diese beiden Zeilen sind wirkungslos und vermutlich der Fehler:

Delphi-Quellcode:

  H := High(Nachteil)+1;  // Length = High(Array) + 1
  SetLength(Nachteil,H);  // -> bewirkt das Setzen der Länge des Array auf die Länge des Arrays

Schau Dir mal die Delphi-Hilfe zu Low, High, Length und SetLength an.

mr2

[SirThornberry]

einfach glück das es klappt bei der ID. Der Fehler liegt beim Index

Delphi-Quellcode:

H := High(Nachteil)+1
SetLength(Nachteil,H); 
Nachteil[H].ID := 1;

Wenn dein Array bei 0 losgeht greifst du auf den index außerhalb des bereichs zu weil wenn angenommen die aktuelle länge von "Nachteil" 5 ist so ist H = 4 + 1 = 5
Somit ist die neue Länge ist somit weiterhin 5
Dann versuchst du haber auf Nachteil[5] zuzugreifen was schiefgeht weil der höchste Index 4 ist...

mal lieber folgendes

Delphi-Quellcode:

setlength(Nachteil, length(Nachteil) + 1);
Nachteil[Hight(Nachteil)].ID := 1;
...

[Taladan]

Das die Zeilen wirkungslos sind, weiß ich auch bereits, ich weiß aber 1. nicht warum und 2. wie ich es beben kann. Möglich ist es, da ich schon einmal mit nachträglich geänderten arrays gearbeitet habe, leider ist der quelltext im papierkorb gelandet.

[SirThornberry]

hab ich doch geschrieben wie du die größe ändern kannst

Delphi-Quellcode:

setlength(Nachteil, length(Nachteil) + 1);
Nachteil[Hight(Nachteil)].ID := 1;
...

[Taladan]

Ja. Aber ich hab dat net lesen können, da ich grad meine Antwort geschrieben hab :oops: . Danke dat klappt