Laden von Bildern

[Mooshead]

Hallo,

ich möchte mehrere Bilder mit einem Anfangsindex laden.
Also z.B. die Bilder: 'Bild12.jpg' bis 'Bildxx.jpg'. Es sollen so viele Bilder geladen werden wie vorhanden sind.
 var Bilder: array of TPicture;

Delphi-Quellcode:

      repeat
           setlength(bilder,i+1);
           Bilder[i]:=TPicture.Create;
           Bilder[i].LoadFromFile(ExtractFilePath(Application.ExeName)+
                                  Bildername.Text+
                                  IntToStr(StrToInt(Startindex.Text)+i)+
                                  '.jpg');
           inc(i);

      until not (FileExists(ExtractFilePath(Application.ExeName)+
                            Bildername.Text+
                            IntToStr(StrToInt(Startindex.Text)+i)+
                            '.jpg'));

Ich weiß nicht genau wo der Fehler liegt

[DeddyH]

Wieso nimmst nicht gleich TJPEGImage anstatt TPicture? Außerdem solltest Du eine Kopfschleife verwenden, sonst knallt es, wenn das erste Bild schon nicht existiert.

[Mooshead]

ja eine Kopfzeile hab ich auch.

aber wie geht das mit dem TJPEGImage??

[DeddyH]

Ungetestet:

Delphi-Quellcode:

uses jpeg;

...
procedure TForm1.BilderLaden;
var i: integer;
    sPath: string;
begin
  SetLength(Bilder,0);
  i := StrToInt(StartIndex.Text);
  sPath := Format('%s%s%d.jpg',[ExtractFilePath(ParamStr(0)),Bildername.Text,i]);
  while FileExists(sPath) do
    try
      SetLength(Bilder,Succ(Length(Bilder)));
      Bilder[Pred(Length(Bilder))] := TJPEGImage.Create;
      Bilder[Pred(Length(Bilder))].LoadFromFile(sPath);
      inc(i);
      sPath := Format('%s%s%d.jpg',[ExtractFilePath(ParamStr(0)),Bildername.Text,i]);
    except
      MessageBox(Handle,'Fehler beim Holen des Bildes','Fehler',MB_OK);
    end;
end;

[STS301]

im Eigenschaftefenster Picture auswählen und dann einfügen, du musst nur das richtige Format wählen

[Mooshead]

Danke das sieht gut aus!

Delphi-Quellcode:

Pred(length(dynamisches_array)) //ist doch das selbe wie
        high(dynamisches_array)         //oder lieg ich da falsch?

[DeddyH]

Nö, ist richtig.