array of TImage ... length liefert einen ganz falschen Wert

[Muetze1]

Erstmal: Hast du die Bereichsprüfung eingeschaltet bei dem Projekt? Wenn nein, mach dies in den Projektoptionen->Compiler und erstelle das gesamte Projekt neu. Dann führe die Methode nochmal aus.

Zu deinem Code:

Delphi-Quellcode:

procedure c(anum, art : integer);
var
  anzahl : integer;
begin
  anzahl := length(a[anum].wunden);
  setLength(A[anum].c,anzahl + 1);
  A[anum].c[anzahl-1] := TImage.create(frmB);
  A[anum].c[anzahl-1].parent := frmB;

  // Text unwichtig

end;

- Wieso ermittelst du die Länge von Wunden um dann c auf diese Länge + 1 zu setzen?
- Eintrag Anzahl-1 ist nicht richtige Index, sondern Anzahl ist der letzte Index. Du hast ja auf Anzahl + 1 die Größe gesetzt.

Kleines Rechenbeispiel:
-> Anzahl wird mit 0 ermittelt
-> Du setzt c auf Anzahl + 1, also eine Länge von 1
-> Du greifst auf -1 zu, da du Anzahl - 1 nimmst

Mit der Bereichsprüfung hätte er dir das zur Laufzeit um die Ohren gehauen!

Du zerschiesst dir jetzt den Speicher, das kann unvorhersehbare Folgen haben, da du wild fremden Speicher editierst (fremd im Sinne der nicht eigentlich anvisierten Variablen).

[faeX]

da gibt es ein problem:

mein delphi bockt wenn ich das programm direkt in delphi starten will ich muss es erst zur exe compilieren und dann starten

[Muetze1]

Zitat:

Zitat von faeX

da gibt es ein problem:

Nein, das ist definitiv kein Problem:

Zitat:

Zitat von faeX

mein delphi bockt wenn ich das programm direkt in delphi starten will ich muss es erst zur exe compilieren und dann starten

Das ist eine Exception, die wird trotzdem erscheinen.

Und selbst wenn, du kannst den Prozess im Explorer starten und dann in Delphi zu dem Prozess attachen und debuggen. (Attach zu Prozess, bzw. Mit Prozeß verbinden).

[faeX]

danke, habt mir sehr geholfen!

[busybyte]

Zitat:

Zitat von faeX

da gibt es ein problem:

mein delphi bockt wenn ich das programm direkt in delphi starten will ich muss es erst zur exe compilieren und dann starten

Du machst mich neugierig auf Deine Delphiversion/Betriebssystem
//Edit
ok ich halt mich raus Muetze ist der bessere Delphin

[Muetze1]

Zitat:

Zitat von faeX

danke, habt mir sehr geholfen!

Ist denn das Problem an sich erledigt?