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

[faeX]

mein problem ist folgendes:

Delphi-Quellcode:

procedure image_test;
var images : array of TImage;
begin
  ShowMessage(IntToStr(length(images))); // Ausgabe 0
  setLength(images,1);
  ShowMessage(IntToStr(length(images))); // Ausgabe 1
  images[0] := TImage.create(Form1);
  ShowMessage(IntToStr(length(images))); // Ausgabe 9843080
end;

was mach ich falsch?
bzw. was fehlt?

[s.h.a.r.k]

Zunächst mal vorweg: Schau dir mal TList. Darin speicherst du normalerweise Objekt. Array würde ich nur für Integer, Strings, Boolean etc. nehmen, also keine Objekte.

Ich schau mir deinen Code allerdings mal an.

[edit=Christian Seehase]Beitrag wieder sichtbar gemacht. Mfg, Christian Seehase[/edit]

[Muetze1]

Eigentlich nichts, aber ich vermute eher, dass Delphi diese Anweisung rausoptimiert und dir eine entsprechende Meldung gegeben hat beim compilieren. Kann das sein?

@s.h.a.r.k.: Äh, was?

[busybyte]

@Muetze hast recht stimmt alles.
Bei mir Delphi2006 kommt 0,1,1 als Ergebniss,der Fehler liegt nicht an dem geposteten code

[s.h.a.r.k]

:D ich hab einen Text verfasst und wenn ich ihn editiere, dann seh ich auch wieder meinen alten Text.

Hier mein Text nochmals

Zitat:

Zunächst mal vorweg: Schau dir mal TList. Darin speicherst du normalerweise Objekt. Array würde ich nur für Integer, Strings, Boolean etc. nehmen, also keine Objekte.

Ich schau mir deinen Code allerdings mal an.

PS: Ich hab D2007 und habe auch 0, 1, 1 als Ergebnis. Hab mich schon gewundert.

[EDIT]

*lol* nun gehts auf einmal und ich hab nicht mal ne andere Schriftfarbe als zuvor :D

OT: Was passiert, wenn ihr meinen oben stehenden Beitrag quoted?! Erscheint bei euch dann auch meine eigentliche Nachricht?

[/EDIT]

[busybyte]

[OT]
//Edit
beim Quoten ist alles ok

[Muetze1]

Zitat:

Zitat von s.h.a.r.k

Schau dir mal TList. Darin speicherst du normalerweise Objekt. Array würde ich nur für Integer, Strings, Boolean etc. nehmen, also keine Objekte.

Full ACK, aber einfacher geht sogar noch einfacher mit einer TObjectList.

Zitat:

Zitat von s.h.a.r.k

OT: Was passiert, wenn ihr meinen oben stehenden Beitrag quoted?! Erscheint bei euch dann auch meine eigentliche Nachricht?

Ja, da klappt alles.

[s.h.a.r.k]

Zitat:

Zitat von busybyte

beim Quoten ist alles ok

Sorry, aber ich finde das zu geil :D muss ich mal Daniel sagen... Würde mich schon zu sehr interessieren an was es liegt.

[faeX]

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;

das ist der orginaltext

[faeX]

dort wo // text unwichtig steht wird mit length nochmal abgefragt

[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?