Einzelnen Beitrag anzeigen

Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#6

Re: Problem mit Struktur einer If then

  Alt 15. Sep 2007, 14:52
ich hab übrigens meinen Post oben nochmal etwas editiert, mit noch ein paar tips!

Der Timer ist wegen deinem "sleep" etwas schlecht. Der Timer wird in festen intervallen aufgerufen. Durch das sleep kann es theoretisch passieren, dass dein Timer zum zweiten mal aufgerufen wird, obwohl der erste Aufruf des Timers noch gar nicht fertig abgearbeitet ist, sprich das bild noch nicht fertig herausgefaded ist.

Wenn du es unbedingt mit einem Timer machen willst, dann bitte das "sleep" weg. Möglich wäre auch sowas hier, allerdings bekomme ich dann wieder haue von den Forumscracks hier, die meinen, das wäre "unschön" programmiert:

Delphi-Quellcode:
private
 Imagefile:string;
 PicCount:integer;
 
//[...]

procedure TForm3.Timer1Timer(Sender: TObject);
begin
if PicCount > 0 then
      Fadeout(ImageFile);

  if PicCount >= Form1.Memo1.Lines.Count-1 then
      PicCount := 1
  else
      Inc(PicCount);

  if (PicCount mod 5) = 0 then
   ImageFile := ExtractFilePath(Application.ExeName)+'HZImage.bmp'
  else
   ImageFile := ExtractFilePath(Application.ExeName)+'TempImage.bmp';
  end;

    JpegToBmp(Form1.Edit1.Text + Form1.Memo1.Lines[PicCount]);
    FadeIn(ImageFile);

  end;

Als sauber programmiert würde ich das betrachten, wenn du das Bild einmal von der Festplatte lädst, dann reinfadest, wartest und OHNE das bild nochmal von der Festplatte zu laden wieder rausfadest...

Aber funktionieren sollte es natürlich auch so

Nochmal Grüße
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat