Programm hängt sich beim Start auf

[TForm1]

Zitat von himitsu:

PS: (auch wenn es erstmal mit dem Problem noch nicht viel zu tun hat)
Ist InfoArray zufällig ein array of TInfos ?

Wenn ja, dann könntest du auch direkt InfoArray[DatIndex] := InfoDatensatz; machen,
oder sogar gleich

Delphi-Quellcode:

SetLength(Infoarray, DatIndex+1);
Read(InfoDatei, InfoArray[DatIndex]);

Ja, das stimmt, da könnte man einiges vereinfachen auch noch an anderen Stellen in meinem Code. Da das Projekt bisher mein größtes ist und ich sozusagen nach dem Try-and-Error-Prinzip vorgehe, vor allem auch um die Sprache zu lernen, ist der Code nicht überall mit gleichen Kenntnissen geschrieben. So habe ich z.B. prozedural angefangen, bis ich gemerkt habe, dass doch OOP einige Vorteile mit sich bringt und den Code daraufhin angepasst.

Naja, da scheint irgendwo ein großer Logikfehler drin zu stecken, den man nicht sofort entdeckt, oder irgendwas anderes ist vermurkst...