Hi there
I need to implement a function to check if all the elements are red
This is what i have come up with. How can I do this recursively?
[pascal]
Function AllRed(A:array of TColours): Boolean;
var i,j : integer;
begin
begin
for i := 0 to high(A) do
begin
if A[i] = red then
inc(j)
end;
end;
if j = high(A) then
result := true;
end;
[/pascal]
thanks in advance
Derek
Bookmarks