![]() |
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; |
Re: Dynamische Array mit Problemen
Hallo,
diese beiden Zeilen sind wirkungslos und vermutlich der Fehler:
Delphi-Quellcode:
Schau Dir mal die Delphi-Hilfe zu Low, High, Length und SetLength an.
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 mr2 |
Re: Dynamische Array mit Problemen
einfach glück das es klappt bei der ID. Der Fehler liegt beim Index
Delphi-Quellcode:
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
H := High(Nachteil)+1
SetLength(Nachteil,H); Nachteil[H].ID := 1; 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; ... |
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.
|
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; ... |
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 17:34 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