Einzelnen Beitrag anzeigen

Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.582 Beiträge
 
Delphi 11 Alexandria
 
#16

AW: JPG ohne Resource einfügen

  Alt 4. Okt 2016, 02:41
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.
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat