Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Problem mit Bilder laden

    Delphi
    by Fussball-Robby, 13. Apr 2008
  Außerdem könntest du die Bilder auch von 1 - 3 durchnummerieren, dann bräuchtest du Case garnicht:
  procedure TForm1.Timer1Timer(Sender: TObject);
  var FName: String;
  begin
  Inc(Fortschritt);
  FName := ExtractFilePath(ParamStr(0)) + 'X_Wing' + IntToStr(Fortschritt) + '.jpg';
  if FileExists(FName) then
  Image1.Picture.LoadFromFile(Fname);
  end;
• Forum: Multimedia

  Re: Problem mit Bilder laden

    Delphi
    by Fussball-Robby, 13. Apr 2008
  Da Fortschritt eine lokale Variable ist, wird sie bei jedem OnTimer-Ereignis neu gesetzt, un da du ihren Wert nicht bestimmst(bzw. nur 1 draufaddierst) ist der Wert unbestimmt(bzw. nicht initialisiert). Am besten bestimmst du Fortschritt im private-Teil der Form als Eigenschaft und setzt es beim OnCreate auf 0.type
  TForm1 = class(TForm)
  private
  Fortschritt: Integer;
  {...