3-ой цикл

[LeoN]

Создал цикл все работает, но почему то увеличивается только красный,а зелёный и синий остаются 0.

while r<=SpinEdit1.Value do
 Begin
  While g<=SpinEdit2.Value do
   Begin
    While b<=SpinEdit3.Value do
     Begin
      col:=RGB(r,g,b);
      hex:=IntToHex(col,255);
      b:=b+1;
      Memo1.Lines.Insert(Memo1.Lines.Count,'<tr><td bgcolor=#'+hex+'>#'+hex+'</td></tr>');
     End;
    g:=g+1;
   End;
  r:=r+1;
 End;

r - красный
g - зелёный
b - синий.

[pu4koff]

перед while пропиши инициализацию переменных цикла, т.е.

r := 0;
while r<=SpinEdit1.Value do
 Begin
  g := 0;
  While g<=SpinEdit2.Value do
   Begin
     b := 0;
...

[mutabor]

2 Leon

Если integer переменная глобальная, при запуске программы она равна 0 (без инициализации), если же локальная, то заполняется всякой фигней. Так что делай выводы.

А цикл неправильный у тебя, представь ситуацию: r уже не удовлетворяет условию, что будет с g и b? Правильно - ничего, какими были такими и останутся.

Да, и что ты хочешь увидеть в Memo? а то я тоже не понял

[LeoN]

прога генерирует HTML страницу, тот код что показал это практически весь код проги(она маленькая). Данный цикл должен постепенно по 1(увеличение на 1) добавлять цвет в виде таблицы в HTML. Он работает и прибавляет, проблема в том, что он прибавляет только красный(#000000, #010000...#FE0000, #FF0000), зеленый и синий не меняются!

[mrandrey]

LeoN - тебе же написали, почему зеленый и синий не меняются. вот так будут меняться

r:=0;
while r<=SpinEdit1.Value do
Begin
g:=0;
While g<=SpinEdit2.Value do
Begin
b:=0;
While b<=SpinEdit3.Value do
Begin
col:=RGB(r,g,b);
hex:=IntToHex(col,255);
b:=b+1;
Memo1.Lines.Insert(Memo1.Lines.Coun t,'<tr><td bgcolor=#'+hex+'>#'+hex+'</td></tr>');
End;
g:=g+1;
End;
r:=r+1;
End;

[pu4koff]

хотя в данном случае проще for использовать