Witam mam tablice z kolorami:
kolory : array [0..5] of String =('clLime','clRed','clYellow','clAqua','clFuchsia','clWhite');
oraz tablice w ktorej bede ustawial sobie sekwencje kolorow wylosana:
sekwencja : array[0..3] of Integer;
Chcialbym aby TShape przyjmowal kolor taki jaki wylosowalem i mam w tablicy sekwencja (sa 4 kszalty)
Kolory losuje sobie tak:
Randomize;
sekwencja[0] := Random(5);
sekwencja[1] := Random(5);
sekwencja[2] := Random(5);
sekwencja[3] := Random(5);
Sprawdzam sobie czy wylosowano odpowiednie kolory:
ShowMessage(kolory[sekwencja[0]]);
ShowMessage(kolory[sekwencja[1]]);
ShowMessage(kolory[sekwencja[2]]);
ShowMessage(kolory[sekwencja[3]]);
I teraz te kolory ktore mam w tablicy sekwencja chce przypisac do odpowiednich ksztaltow:
sekw1.Brush.Color := TColor(kolory[sekwencja[0]]);
sekw2.Brush.Color := TColor(kolory[sekwencja[1]]);
sekw3.Brush.Color := TColor(kolory[sekwencja[2]]);
sekw4.Brush.Color := TColor(kolory[sekwencja[3]]);
Jednak to mi nie dziala..gdyz dostaje prawie caly czas kolor czarny, mimo ze w tablicy sekwencja mam 4 kolory z tablicy kolory. Prosze o pomoc