Hallo, ich würde gerne 12 Shapes, deren Höhe der Benutzer am Anfang einstellen darf, nach Höhe sortieren.
Das konkrete Problem besteht darin, die einzelnen Shapes (die Shape1 - Shape12 heißen) anzusprechen und zwar eben allgemein.
Mein Ansatz sieht so aus:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25:
| procedure TForm1.Tausche(var a, b: string); var c: string; begin c:=a; a:=b; b:=c; end;
procedure TForm1.BSortClick(Sender: TObject); var Folge: array [1..12] of TComponent; nichtvertauscht: boolean; i: integer; begin repeat nichtvertauscht:=true; for i:=0 to 12 do If Shape1.Height>Shape2.Height then begin Tausche(Shape[i], Shape[i+1]); nichtvertauscht:=false; end; end;
end. |
Wahrscheinlich muss ich dazu mein array of Tcomponent mit den Shapes vollmachen oder? Wie macht man das? oO
Thx 4 help
