simpel kode = uendelig løkke

Hei! Jeg vet ikke helt om det er dette du mener, men jeg prøver (Jeg beklager at jeg endret koden litt)

var
  i: Integer;
  red, green, blue: Byte; // Integer?
label
  Loop;
begin
  {red := 255;
  green := 0;
  blue := 255;
  i := 1;}
  while i > 0 do
  begin
    editGreen.text := IntToStr(green);
    editRed.text := IntToStr(red);
    editBlue.text := IntToStr(blue);
    PanelGreen.color := RGB(0, green, 0);
    panelRed.color := RGB(red, 0, 0);
    panelBlue.color := RGB(0, 0, blue);
    panelcomb.color := RGB(red, green, blue);
    Loop:
    if blue < 255 then
      Inc(blue, 10);  // blue := blue + 10
    if red < 255 then
      Inc(red, 5);
    if green < 255 then
      Inc(green, 15);
    // Bytes kan ikke overstige 255, så jeg satt inn >= (Greater or Equal).
    if (blue >= 255) and (red >= 255) and (green >= 255) then
      i := 0
    else
      Goto Loop;
  end;
end;

-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

Hvilken type er Red, Green og Blue? Hvis det de er a typen Byte, vil de aldrig overstige værdien 255. Hvis de ikke er af typen Byte vil du stadig få et problem hvis en af værdierne = 256. Værdierne bliver nemlig kun ændret hvis de er under eller over 256.

Kim Jensen aka BOSH
http://www.hulubulu.dk

hvis det ikke er byte tal ville følgende if sætning fjerne det problem den foregående person fortalte dig om.

if (blue > 255) AND (red > 255) AND (green > 255) then i := 0;
-----------------------------------------------------------------------------

Min side ->www.the-hive.dk/~donp/

Hej.

Jeg har lavet følgende kode til en timer med et interval på 100ms, og med følgende kode:

Kode 

while i > 0 do
begin
editGreen.text := inttostr(green);
editRed.text := inttostr(red);
editBlue.text := inttostr(blue);
PanelGreen.color := RGB(0,green,0);
panelRed.color := RGB(red,0,0);
panelBlue.color := RGB(0,0,blue);
panelcomb.color := RGB(red,green,blue);
if blue < 256 then blue := blue+10;
if red < 256 then red := red+5;
if green < 256 then green := green+15;
if (blue > 256) AND (red > 256) AND (green > 256) then i := 0;
end;

Jeg aner ikke hvorfor den går i den løkke, og det gør min datalogi lærer heller ikke, så hvorfor går det galt?

----------------------------
Er konstant sulten
----------------------------

Hvad er "i" inden løkken? Hvis "i" er større end 0 er det jo ikke så ikke så mærkeligt da den kun bliver 0 (og bryder løkken) hvis alle tre farver er 0...

Emil Melgaard