Blöd ausgedrückt prüft Assigned ob das Objekt, das man prüft, zugewiesen (also nicht nil) wurde oder nicht.
FindComponent sucht ein Objekt mit dem Namen den man als String übergeben hat. Hier werden also "Image1" bis "Image5" übergeben.
"as TImage" behandelt das gefundene Objekt dann wie ein TImage soweit ich weiß aber das geht sicher noch viel schöner und vorallem besser.
Man könnte das Ergebnis auch in eine Variable zwischenspeichern dann wird es schöner:
Delphi-Quellcode:
var
aImg: TImage;
begin
// ...
for i := 1 to 5 do
begin
aImg := (FindComponent('Image' + SysUtils.IntToStr(i)) as TImage);
if Assigned(aImg) then
aImg.Visible := True;
end;
Aber ich betone: ich bin kein Profi und hier schlummern bestimmt Exceptions
Wenn man aber seine Image1...5 alle korrekt als TImage hat sollte es keine Fehler geben.
Wenn ich natürlich einen TButton habe der Image1 heißt wäre das doof.