Forum: FreePascal
by TForm1,
3. Mai 2014
Fehler gefunden!!!:bounce1::bounce1::bounce1:
Manchmal hilft ein bisschen auf den Code starren doch...
Das Problem lag in diesem Code:
function TDateiVerwaltung.DateiLaden: TMyArray; //Dynamisches Array
var DatenArray: TMyArray;
Datensatz: TMyRecord;
Index, FileIndex: integer;
begin
try
Forum: FreePascal
by TForm1,
3. Mai 2014
Die Strings sind alle mit Längenangabe und das Array ist ebenfalls ein statisches 2-dimensionales Array of Real. Daran dürfte es also nicht liegen.
Ich habe mal einen Test gemacht, sowohl die InfoDatei als auch das FFile für die Steuerungsklassen gelöscht und dann während der Laufzeit im Programm Stück für Stück neue Einträge vorgenommen. Die Sache läuft 2 mal gut. Beim 3. mal crasht das...
Forum: FreePascal
by TForm1,
3. Mai 2014
Ctrl-R ist blödsinn, :oops: ich meine natürlich Cmd-R. Das ist bei mir "Start". In meinem Fall jetzt sind in der InfoDatei 4 Einträge, also wird die Schleife 4 mal durchlaufen und das Array mit 4 Einträgen gefüllt. Wenn Nichts in der InfoDatei drin steht, bricht der Ladevorgang ab. Somit ist auch Array nichts.
So ist es natürlich eleganter, werde ich bei mir vielleicht auch noch so ändern....
Forum: FreePascal
by TForm1,
3. Mai 2014
Wenn ich mit dem Debugger durchgehe, und von Zeile BufferArray:= DateiVerwaltung.DateiLaden; weiter zu if high(BufferArray)<Index then gehen will, verschwindet der Cursor, wie wenn man CTRL-R drücken würde (ich weiß nicht welcher Befehl das in Delphi ist). Danach kommt, wie gesagt, nichts und das Programm startet nicht bzw. bleibt hängen beim Start. Deswegen weiß ich auch nicht, was genau dann...
Forum: FreePascal
by TForm1,
3. Mai 2014
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.
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...
Forum: FreePascal
by TForm1,
2. Mai 2014
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...