Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

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

    Delphi
    by glkgereon, 16. Apr 2004
  vorschlag:
  
  while (r<>0) and (g<>0) and (b<>0)
  do begin
  c := ColorToRGB(l_rahmenprogramm.Font.Color);
  if GetRValue(c) > 0 then r := GetRValue(c)-1;
  if GetGValue(c) > 0 then g := GetGValue(c)-1;
  if GetBValue(c) > 0 then b := GetBValue(c)-1;
  l_rahmenprogramm.Font.Color:=rgb(r,b,g);
  l_rahmenprogramm.Refresh;