Programm hängt sich beim Start auf

[TForm1]

Hallo zusammen,
ich habe schon wieder ein Problem, das ich bislang noch nicht lösen konnte:
Beim Start wird beim Erzeugen einer Zentralen Verwaltungsklasse einmal ein Objekt zum Managen diverser typisierter Dateien sowie in einer For-Schleife eine Liste mit Objekten einer Steuerungsklasse gefüllt und dieser klein ein Indexwert zugewiesen. Jede Steuerungsklasse soll jetzt jeweils ihre Informationen aus der Dateiverwaltungsklasse nehmen, die auf die Dateien zugriff hat. Der Rückgabewert dieser Funktion ist ein Array, aus welcher sich die Steuerungsklasse mithilfe des Indexes ihre Werte nehmen kann(ich weiß, das ist nicht besonders effizient, besser wäre es nur den gewünschten Datensatz sich geben zu lassen, aber bislang funktioniert das problemlos, vielleicht werde ich es auch noch umprogrammieren). Wenn allerdings noch nichts in der Datei steht, wird ein leeres Array übergeben, dies wird geprüft und dann sollen Standardwerte in die Datei geschrieben werden.
Problem ist jetzt folgendes: Dadurch, dass mehrere Objekte der Steuerungsklasse erzeugt werden, ist das Array beim Create des 2. Objektes mit einem Datenpaket bereits gefüllt, deswegen gilt high(Array)<0 nicht mehr. Dies habe ich versucht durch ein high(Array)<Index zu lösen. Diese Änderung bewirkt allerdings, dass sich das Programm bereits beim Start aufhängt (Unter Mac: Das Docksymbol hüpft aufgeregt ohne dass sich was tut) und das ohne jegliche Fehlermeldung. Die Prozessorauslastung geht dabei auf ca.90% hoch.
Hier mal der Code:

Delphi-Quellcode:

var ZwischenSpeicherDatensatz: TMyRecord
begin
BufferArray:= DateiVerwaltung.DateiLaden;
   if high(BufferArray)<Index then //Hier ist Das Problem
   begin
     ZwischenSpecherDatensatz.Var1:= ... {Hier entsprechende Zuweisungen}
    
     DateiVerwaltung.DateiAktualisieren(Index, ZwischenSpeicherDatensatz);
     Exit;
   end;
   //Die Felder werden aus dem BufferArray gefüllt
   FVar1:=BufferArray[Index].Var1
   {Hier weitere Zuweisungen}
end;

Hier der entsprechenden Funktionen zur Dateispeicherung/Laden:

Delphi-Quellcode:

procedure TDateiVerwaltung.DateiAktualisieren(Index: integer; Datensatz: TMyRecord);
begin
  try
  seek(FFile, Index);
  write(FFile, Datensatz);
  except
    showmessage('Problem beim speichern der Datei');
  end;
end;
//und
function TDateiVerwaltung.DateiLaden: TMyArray; //Dynamisches Array
var DatenArray: TMyArray;
    Datensatz: TMyRecord;
    Index, FileIndex: integer;
begin
  try
  FileIndex:= System.FileSize(FFile)-1;
  if FileIndex < 0 then exit; //Falls die Datei noch leer ist, wird nichts zurückgegeben. (Dies muss beim Aufruf berücksichtigt werden)
  Index:= 0;
  repeat
    seek(FFile, Index);
    read(FFile, Datensatz);
    SetLength(DatenArray, Index+1);
    //Daten werden ins Array geschrieben
    DatenArray[Index].Var1:= Datensatz.Var1;
    {weitere Zuweisungen}
  until eof(FFile);

  result:= DatenArray;
  except
  showmessage('Problem beim Laden der Datei');
  end;
end;

Wenn ich mit dem Debugger drüber gehe, springt er genau bei der markierten Zeile heraus, bei high(Array)<0 gibt es kein Problem.
Sämtliche Objekte sind alle korrekt instanziert, da ist nirgenwo ein Fehlzugriff auf ein (noch) nicht vorhandenes Objekt.

Schönes Wochenende

[Uwe Raabe]

Delphi-Quellcode:

    SetLength(TempLokArray, Index+1);
    //Daten werden ins Array geschrieben
    Array[Index].Var1:= Datensatz.Var1;

Du verwendest da zwei verschiedene Arrays. Willst du das wirklich?

Übrigens: Man verwendet nicht einfach den Variablennamen Array!

[himitsu]

Kann man im FPC auch eine Bereichsprüfung aktivieren?
http://docwiki.embarcadero.com/RADSt...erpr%C3%BCfung

Wenn ja, dann solltest du das dringend mal machen.

[TForm1]

Zitat von Uwe Raabe:

Delphi-Quellcode:

    SetLength(TempLokArray, Index+1);
    //Daten werden ins Array geschrieben
    Array[Index].Var1:= Datensatz.Var1;

Du verwendest da zwei verschiedene Arrays. Willst du das wirklich?

Übrigens: Man verwendet nicht einfach den Variablennamen Array!

Oh, das ist natürlich ein Schreibfehler, den Code aus meinem Programm habe ich nachträglich noch verändert. Und dass man nicht Array als Variablenbezeichnung verwenden sollte, ist mir auch klar, sonst wäre mein Problem erst gar nicht aufgetreten und ich würde mich noch mit merkwürdigen Compilermeldungen rumärgern .
Wird natürlich sofort korrigiert.

Das mit dem Bereichscheck habe ich jetzt mal oberflächlich schnell probiert, bei dem Fall high(BufferArray)<0 kommen zwar Fehlermeldungen, die ich im einzelnen jetzt nicht analysiert habe, das muss ich dann noch mal ganz in Ruhe morgen machen; Aber im anderen Fall high(BufferArray)<Index wie gewohnt keine Fehlermeldung, nur hüpfendes Icon. Wie gesagt, ich werde mich morgen damit noch mal in Ruhe auseinandersetzen.

[EDIT] Ich weiß jetzt doch, warum bei der Bereichsprüfung im 1. Fall ein Fehler auftritt. Während der 1. Durchlauf noch "richtig" durchläuft, steht im Zweiten ja schon etwas in der Datei drin, deswegen gilt nicht mehr high(BufferArray)<0 und das Programm springt gleich in den Text zum auslesen der Daten und will auf Bufferarray[1] zugreifen, geht nicht, da Bufferarray ja nur ein Objekt beinhaltet. Das nur so am Rande.

[himitsu]

Zitat von TForm1:

den Code aus meinem Programm habe ich nachträglich noch verändert.

Wäre es da nicht einfacher/besser den "eigentlichen" Code zu posten?

Zitat von TForm1:

Aber im anderen Fall ... keine Fehlermeldung

Es geht dabei nicht unbedingt auf Meldungen des Compilers, sondern darum, osb man bei TempLokArray[Index]. auf ein "richtiges" Element zugegriffen wird und dir nicht sowas wie einen Buffer-Overflow einfängst und dabei womöglich noch ürgendwas Anderes überschreibst oder auf einen nichtexistierenden Speicherbereich triffst.

Zitat von TForm1:

und will auf Bufferarray[1] zugreifen, geht nicht, da Bufferarray ja nur ein Objekt beinhaltet. Das nur so am Rande.

Jupp, genau dafür sind diese zusätzlichen Prüfungen, wo zur Laufzeit nun eine entsprechende Exception ausgelöst werden sollte.

[TForm1]

Zitat von himitsu:

Wäre es da nicht einfacher/besser den "eigentlichen" Code zu posten?

Der veränderte Code unterscheidet sich nicht vom eigentlichen Code bis auf die Variablenbezeichnungen und die Zuweisungen aus den Records. Ich wollte Euch einfach nicht mit unnötigem Copypaste- Code zumüllen.

Zitat von himitsu:

Es geht dabei nicht unbedingt auf Meldungen des Compilers, sondern darum, osb man bei TempLokArray[Index]. auf ein "richtiges" Element zugegriffen wird und dir nicht sowas wie einen Buffer-Overflow einfängst und dabei womöglich noch ürgendwas Anderes überschreibst oder auf einen nichtexistierenden Speicherbereich triffst.

Mit Fehlermeldung meinte ich auch keine Compilermeldungen sondern Exceptions, aber wie gesagt, es passiert nichts.
Wenn ich mit dem Debugger Zeile für Zeile durchgehe tritt der Fehler genau bei if high(BufferArray)<Index then auf.
Ich vermute auch, dass der Fehler evt. bei der Datei liegen könnte, denn exakt dasselbe hatte ich schon mal, da war durch Fehlbedienung diese Datei zerschossen, bzw. nicht richtig befüllt/ geleert worden. Ein löschen der Datei hatte damals den Fehler behoben.