jo, jag har alltså 5st shapes(i rad) på min form som får olika färger(grön, röd, vitt) baserat av vad som användaren väljer tidigare i mitt program, men nu skulle jag vilja ha dom sorteras enligt färgen, först grön, sedan röd och sist vitt.

Så om någon råkar ha någon ide, så skulle det vara trevligt.
Fråga om ni int riktit föstår min fråga.

tackar på förhand.
ruben

3 Månader senare ....


Procedure SortColors(A, B, C : TShape);
Var Color : TColor;
Nr1, Nr2, Nr3 : Integer;
begin
If A.Brush.Color = ClWhite then NR1 := 0;
If A.Brush.Color = ClRed then NR1 := 1;
If A.Brush.Color = ClGreen then NR1 := 2;
If A.Brush.Color = ClBlue then NR1 := 3;
ShowMessage(IntToStr(NR1));
If B.Brush.Color = ClWhite then NR2 := 0;
If B.Brush.Color = ClRed then NR2 := 1;
If B.Brush.Color = ClGreen then NR2 := 2;
If B.Brush.Color = ClBlue then NR2 := 3;
ShowMessage(IntToStr(NR2));
If C.Brush.Color = ClWhite then NR3 := 0;
If C.Brush.Color = ClRed then NR3 := 1;
If C.Brush.Color = ClGreen then NR3 := 2;
If C.Brush.Color = ClBlue then NR3 := 3;
ShowMessage(IntToStr(NR3));

if (nr1=nr2) or (nr2=nr3) or (nr1=nr3) then showmessage('Identical'); //HALT?

If (nr1<nr2) and (nr1<nr3) then
begin
showmessage('NR1 POSITION 1');
if (nr2<nr3) then
begin
Showmessage('NR2 POSITION 2');
Showmessage('NR3 POSITION 3');
end
else begin
Showmessage('NR3 POSITION 2');
Showmessage('NR2 POSITION 3');
end;

end else if
(nr2<nr3) and (nr2<nr1) then
begin
showmessage('NR2 POSITION 1');
if (nr1<nr3) then
begin
Showmessage('NR1 POSITION 2');
Showmessage('NR3 POSITION 3');
end else
begin
Showmessage('NR3 POSITION 2');
Showmessage('NR1 POSITION 3');
end;
end else if
(nr3<nr1) and (nr3<nr2) then
begin
showmessage('NR3 POSITION 1');
if (nr1<nr2) then
begin
Showmessage('NR1 POSITION 2');
Showmessage('NR2 POSITION 3')
end
else
begin
Showmessage('NR2 POSITION 2');
Showmessage('NR1 POSITION 3');
end
end;
end;

Sen på Button1, skriver du bara "SortColors(Shape1, Shape2, Shape3)"


Blev lite för lång (krånglig), kanske inte den bästa vägen heller, finns säkert några lättare sätt, men eftersom ingen svarade så är väl detta bättre än inget?

Fyyy... sno "ÄlskaMig":s avatar... =)

(Och nej, jag säger inte vem jag är där...)

Du har så rätt så ... *skäms*