Bildsequenz mittels Array laden

[brandtson]

Hey alle zusammen!

Ich weiß das etwas ähnliches erst kürzlich im Forum gepostet worden ist, doch da ich ein blutiger Anfänger bin, mache ich trotz genauer Studien der Antworten noch irgendwas Falsch. Über jeden hinweis würde ich mich Freuen! Das ganze sieht bei mir wie folgt aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var fImages: array of TImage;
    i: integer;
    bitmap: tbitmap;

begin

  if opendialog1.execute then
  begin
    bitmap:= tbitmap.Create;
    image1.Picture.Graphic:= bitmap;
    image1.Picture.Bitmap.LoadFromFile(opendialog1.filename);
    fimages[i]:= image1;
    setlength(fimages,i);
  end;
end;

Leider gibt es keinen kotzenden Smily doch der drückt es schon ganz gut aus!

gruß Brandtson

[sakura]

Ändere mal die roten Zeilen...

Code:

procedure TForm1.Button1Click(Sender: TObject);

var fImages: array of TImage;
    i: integer;
    bitmap: tbitmap;

begin

  if opendialog1.execute then
  begin
    bitmap:= tbitmap.Create;
    image1.Picture.Graphic:= bitmap;
    image1.Picture.Bitmap.LoadFromFile(opendialog1.filename);
[color=#ff0000]    setlength(fimages, i + 1);
    fimages[i]:= image1;[/color]
  end;
end;

......

[sakura]

Zitat von brandtson:

Leider gibt es keinen kotzenden Smily doch der drückt es schon ganz gut aus!

Und was ist das?

......

[brandtson]

Herzlichen Dank Sakura! Jetzt kommt auch keine Accesviolation mehr!

Da sitzt man Stunden vor einem Problem, und die Lösung ist das Tauschen von zwei Programmzeilen und + 1 hinzufügen. Ich hoffe das passiert mir sobald nicht mehr.

[sakura]

Für den Fall, daß Du die Gesamtlänge des Arrays im Vorraus weißt, ist es besser, diese gleich zu reservieren, da dieses um weites schneller und auch Speicher spart Dynamische Arrays sind zwar möglich, aber unter Delphi etwas stümperhaft implementiert worden durch die Borländer

......

[brandtson]

Leider weiss ich das vorher nicht. Die anzahl der Bilder variiert zwischen Hundert und einigen Tausend. Das irgendwann fertige Programm soll Bilder im Dicom-Format (Format der med. Bildgebung) lesen, darstellen und teilweise bearbeiten können. Wie du aus meiner ersten Frage erkennst habe ich noch einen weiten Weg vor mir und muss noch eine Menge lernen!