Einzelnen Beitrag anzeigen

Benutzerbild von alleinherrscher
alleinherrscher

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

Re: Problem mit Struktur einer If then

  Alt 15. Sep 2007, 15:20
Dein showmessage mit dem i steht vor der schleife, d.h. deine variable i ist noch gar nicht initialisiert und hat noch irgendeinen wert, den sie bekommen hat, als ihr ein stückchen speicher zugewiesen worden ist.

schieb das showmessage mal in die schleife rein, dann siehst du, dass i richtig läuft

nochwas: du brauchst doch gar kein piccount mehr, oder?

Delphi-Quellcode:
procedure TForm3.FormShow(Sender: TObject);
var
  ImageFile: string;
  n, i: integer;
begin
    n:= Form1.Memo1.Lines.Count-1;

    for i:=0 to n do
      begin
    
        ShowMessage(inttostr(i) + '< i to n >' + inttostr(n));
    
       //----------------------------------------------------------------------
        if i mod 5 = 0 then
          ImageFile:=ExtractFilePath(Application.ExeName)+'HZImage.bmp'
        else
          ImageFile:=ExtractFilePath(Application.ExeName)+'TempImage.bmp';


        //----------------------------------------------------------------------
            JpegToBmp(Form1.Edit1.Text + Form1.Memo1.Lines[i]);
            FadeIn(ImageFile);
            sleep(8000);
            Application.ProcessMessages;
            Fadeout(ImageFile);
      end;
end;
Grenzgänger meint, dass du verhinden kannst, dass der Timer aufgerufen wird, solange das OnTimer Ereignis vom vorherigen aufruf des Timers noch nicht abgearbeitet ist. Die idee is cool Aber auch nicht wirklich sauber

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

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat