die Fehlermeldungen erscheinen am Ende des OnClick-Ereignis der TImage Komponenten.
Und welche?
Das hier kannst du auch kürzer schreiben, ich habe nur das Gefühl, dass das so nicht gemeint war:
Delphi-Quellcode:
if i=1 then
for j:=1 to 3 do
case j of
1: Image1.Picture.Graphic := jpgLogo;
2: Image2.Picture.Graphic := jpgLogo;
else
Image3.Picture.Graphic := jpgLogo;
end
Das ist das gleiche wie:
Delphi-Quellcode:
if i = 1 then
begin
Image1.Picture.Graphic := jpgLogo;
Image2.Picture.Graphic := jpgLogo;
Image3.Picture.Graphic := jpgLogo;
end;
Denn du gehst ja mit j die Werte 1, 2 und 3 durch und bei jedem davon wird eine der drei Zeilen ausgeführt. Am Ende also alle drei.