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!

Zur Aktualisierung der Ansicht wollte ich folgendes nutzen:

zusammenfalten · markieren

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: pfad:=sysutils.ExtractFilePath(Application.Exename); Die Bilder liegen in einem Ordner img bei der .exe.

Ich hoffe mir kann jemand helfen...

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

Zitat von DeddyH:

..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

Jepp, sry, das hatte ich falsch interpretiert.

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

Wie ist Speicher denn deklariert?

[edit] Wie ist es so?
for I := Low(Speicher) to High(Speicher) do [/edit]

var speicher: array[1..374] of byte; Mit Low und High gleiches Problem.

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

[edit] Was passiert, wenn Du so abfragst?
(DeinPanel.FindComponent('ids'+inttostr(I)) as TImage)

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

Trotzdem Danke für die Hilfe!

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