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