JPG ohne Resource einfügen

[jaenicke]

Zitat von Danny92:

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.