Zusammengesetzter Objektname, Array und TImage

[ICeYmx]

Hallo! Ich bin gerade dabei ein Demonstrationsprogramm für meine Facharbeit zu erstellen. Es dreht sich um die Veranschaulichung von (De-)Fragmentation. Ich habe als Dateisystem ein Array und als Oberfläche ein Haufen TImages:
http://img.max-heine.de/defrag1.jpg

Den Tipp mit FindComponent habe ich hier aus dem Board. Danke! :thumb:

Zur Aktualisierung der Ansicht wollte ich folgendes nutzen:

Delphi-Quellcode:

procedure TForm1.spansichtneu;
var
  I: Integer;
begin
  for I := 1 to 374 do
    begin
      case speicher[I] of
        1:(FindComponent('ids'+inttostr(I)) as TImage).picture.LoadFromFile(pfad+'img\blgu.bmp');
        2:(FindComponent('ids'+inttostr(I)) as TImage).picture.LoadFromFile(pfad+'img\blrt.bmp');
        3:(FindComponent('ids'+inttostr(I)) as TImage).picture.LoadFromFile(pfad+'img\blgr.bmp');
        4:(FindComponent('ids'+inttostr(I)) as TImage).picture.LoadFromFile(pfad+'img\blbl.bmp');
        5:(FindComponent('ids'+inttostr(I)) as TImage).picture.LoadFromFile(pfad+'img\blge.bmp');
      end;
    end;
end;

1-5 sind die Zustände, 1=free, 2=fragmentiert, 3=used, 4=read, 5=write, so im Array hinterlegt, bei Start auf 1, allerdings ohne Picture.
ids### sind die TImages, befinden sich auf einem Panel. Und der Pfad sollte eigentlich auch passen:

Delphi-Quellcode:

pfad:=sysutils.ExtractFilePath(Application.Exename);

Die Bilder liegen in einem Ordner img bei der .exe.

Ich hoffe mir kann jemand helfen... :)

[DeddyH]

Und was genau ist das Problem? Außer, dass die Schleife bei 369 Durchläufen nichts tut.

[Klaus01]

Zitat:

Zitat von DeddyH (Beitrag 1073677)

..Außer, dass die Schleife bei 369 Durchläufen nichts tut.

Die Schleife macht doch 374 mal etwas.
Es wird doch geschaut ob der Speicher[i] einen Wert von 1 bis 5 hat
und nicht ob i 1,2,3,4, oder 5 ist.


Aber das Problem würde ich auch gerne erfahren.
Grüße
Klaus

[DeddyH]

Jepp, sry, das hatte ich falsch interpretiert.

[ICeYmx]

Achso, ganz vergessen: Ich bekomme eine Zugriffsverletzung, wenn in die Prozedur gesprungen wird.

[DeddyH]

Wie ist Speicher denn deklariert?

[edit] Wie ist es so?

Delphi-Quellcode:

for I := Low(Speicher) to High(Speicher) do

[/edit]

[ICeYmx]

Delphi-Quellcode:

var speicher: array[1..374] of byte;

Mit Low und High gleiches Problem.

[DeddyH]

Und die Images "ids1" bis "ids374" gibt es alle?

[edit] Was passiert, wenn Du so abfragst?

Delphi-Quellcode:

(DeinPanel.FindComponent('ids'+inttostr(I)) as TImage)

[ICeYmx]

Ich denke, ich weiß, wo der Fehler liegt: Meine Images heißen 001, ... . :roll:

Trotzdem Danke für die Hilfe! :thumb:

[DeddyH]

Dann können sie ja auch schlecht gefunden und noch schlechter darauf zugegriffen werden. :roll: