Паскаль и делфи

[dpmkh]

ПОдскажите можно ли в делфи цвету присвоить номер, что бы я мог использовать цвета в цикле и т.п.? Как это было в паскале. Например:

cvet:=1;
cvetnew:=cvet+1;

Заранее спасибо!

[Delphi_ProGer]

cvet:=1;
cvetnew:=cvet+1;

Тоесть вы спрашиваете правильно ли так? оО Что-то я вас не понял...

[phomm]

Если под цветом подразумевается TColor то он объявлен так:

TColor = -$7FFFFFFF-1..$7FFFFFFF;

т.е. можно считать что Integer (на большинстве платформ, но на 64битных надо проверять)
В справке написано то же самое.
В общем, учитесь самостоятельно искать информацию, тем более для этого всего пару кнопок в самой дельфи нажать надо.

Следовательно, использовать число как цвет можно легко.

[dpmkh]

PROCEDURE ELEM (x01,x02,x03,y01,y02,y03,Mas:EXTENDED;
                  j,jmax,jmin,cvet,t:WORD);
    TYPE
      Triangle = ARRAY[1..3] OF TPoint;
    VAR
      X2,Y2,px,py                     : WORD;
      Triag                                            : Triangle;
  BEGIN //Pr
  with Form1.Image1.Canvas do begin
      if  Odd(cvet)=true  then  cvet := 1  else  cvet := 15;

   Px:= Form1.Image1.Width; Py:= Form1.Image1.Height;
   X2:=round(Px/10); Y2:=round(Py/12*10-5);

    Pen.Color:=cvet;

    Brush.Color:=cvet;
    Brush.Style:=bsSolid;
   WITH Triag [1] DO BEGIN
    X:= round(X2+x01/Mas+1);
    Y:= round(Y2-y01/Mas-1);
   END;
   WITH Triag [2] DO BEGIN
    X:= round(X2+x02/Mas+1);
    Y:= round(Y2-y02/Mas-1);
   END;
   WITH Triag [3] DO BEGIN
    X:= round(X2+x03/Mas+1);
    Y:= round(Y2-y03/Mas-1);
   END;
   Polygon(Triag);
   END;
  END; //Pr

Вот сам код, который был написан в паскале, он был испрвлен под делфи, но с цветами не знаю что делать.

[Serge_Bliznykov]

вот заготовочка:

const
  MaxColors = 16;
  aColors : array[0..MaxColors-1] of TColor =
            (clWhite,clBlack,clSilver,clGray,
             clRed,clMaroon,clYellow,clOlive,
             clLime,clGreen,clAqua,clTeal,
             clBlue,clNavy,clFuchsia,clPurple);
....
var
   cvet : integer;

на событии Form1 OnCreate:
begin
 cvet := -1;
end;

в вашей процедуре:
if cvet < (MaxColors-1) then Inc(cvet) else cvet := 0;

  Pen.Color:=aColors[cvet];

  Brush.Color:=aColors[cvet];

идея, надеюсь, понятна?

[dpmkh]

Сообщение от Serge_Bliznykov

То что нада большое спасибо!!! надеюсь сейчас смогу сделать это)