Registriert seit: 1. Aug 2007
Ort: Ludwigshafen am Rhein
1.529 Beiträge
Delphi 7 Professional
|
Re: Laden/Speichern
18. Jun 2008, 20:54
Neben dem fehlenden Input in der angesprochenen Zeile würde ich noch eine weitere Überprüfung am Ende des REPEAT..UNTIL-Block setzen und zwar die Prüfung auf Dateiende. Das geht mit:
until (a=AA) OR (EOF(t))
Was mir auch auffällt, was nicht eindeutig beschrieben ist, ist das Array. Hasz du ein dynamisches oder ein statisches Array? Beim einem dynamischen solltest du die Größ mit SetLength() um 1 vergrößern, bevor du einen neuen Wert reinschreibst. Bei einem statischen Array kann es passieren, dass es nicht groß genug ist. Dies kannst du nicht durch SetLength() behoben werden. Hier empfehle ich den Umstieg auf ein dynamisches Array.
Bernhard
Bernhard Iliacos intra muros peccatur et extra!
|