Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: repeat-until ersetzten durch if/for/while

    Delphi
    by himitsu, 17. Apr 2004
  genau da ist ja das Problem bei der While-Schleife
  while (r<>0) and (g<>0) and (b<>0)
  do begin
  ...
  denn wenn die Variablen nul sind, was ja rein zufällig auch der Abbruchbedingung entspricht, dann wird nämlich die Schleiche nie durchaufen, da While ja vor'm Durchlauf und nicht danach auswertet.
• Forum: Object-Pascal / Delphi-Language

  Re: repeat-until ersetzten durch if/for/while

    Delphi
    by himitsu, 16. Apr 2004
  Ach ja, wenn es so anfängt
  
  while (r<>0) and (g<>0) and (b<>0)
  do begin
  ...
  
  dann ist auch noch ein nette Fehler entstanden, den die Variablen, werden erst innerhalb der Schleife gesetzt (wenn überhaupt ;) ), und sind demnach vorher noch nicht definiert.
• Forum: Object-Pascal / Delphi-Language

  Re: repeat-until ersetzten durch if/for/while

    Delphi
    by himitsu, 16. Apr 2004
  such dir was aus - einmal mit if und das andere mit max:
  c := ColorToRGB(l_rahmenprogramm.Font.Color);
  while c and $ffffff > 0 do begin
  c := rgb(Max(GetRValue(c) - 1, 0), Max(GetGValue(c) - 1, 0), Max(GetBValue(c) - 1, 0));
  l_rahmenprogramm.Font.Color := c;
  l_rahmenprogramm.Font.Refresh;
  sleep(1);
  end;
  
  c := ColorToRGB(l_rahmenprogramm.Font.Color);