Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Dynamische Array mit Problemen (https://www.delphipraxis.net/18729-dynamische-array-mit-problemen.html)

Taladan 23. Mär 2004 23:11


Dynamische Array mit Problemen
 
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 23. Mär 2004 23:16

Re: Dynamische Array mit Problemen
 
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 23. Mär 2004 23:18

Re: Dynamische Array mit Problemen
 
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 23. Mär 2004 23:23

Re: Dynamische Array mit Problemen
 
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 23. Mär 2004 23:25

Re: Dynamische Array mit Problemen
 
hab ich doch geschrieben wie du die größe ändern kannst
Delphi-Quellcode:
setlength(Nachteil, length(Nachteil) + 1);
Nachteil[Hight(Nachteil)].ID := 1;
...

Taladan 24. Mär 2004 12:55

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz