Einzelnen Beitrag anzeigen

Benutzerbild von alleinherrscher
alleinherrscher

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

Re: Problem mit Struktur einer If then

  Alt 14. Sep 2007, 22:26
hm mit dem Sleep Befehl in einem Timer zu arbeiten finde ich grade etwas komisch. Ich würde eher eine Schleife oder einen eigenen Thread benutzen. Kann man dein Problem nicht so lösen:


Delphi-Quellcode:

n:=Memo1.lines.count-1;

for i:=0 to n do
begin
  if i mod 5 = 0 then
    filename:=ExtractFilePath(Application.ExeName)+'HZImage.bmp'
  else
    filename:=ExtractFilePath(Application.ExeName)+'TempImage.bmp';
  
  FadeIn(filename);
  sleep(2000);
  Fadeout(filename);

end;
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat