Laden von Bildern

[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;