Autor Beitrag
THF
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 110

Vista
Delphi 2005 professional
BeitragVerfasst: Di 15.02.05 16:15 
Hallo zusammen,
wißt Ihr vielleicht wie ich den folgenden Code abkürzen kann.
Die Tipparbeit wird mir zuviel.
Es sollen 32 einzelne Images (spielfiguren) auf dem spielfeld angeordnet werden.
ausblenden volle Höhe 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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
Procedure TProgramm.Figuren_auf_dem_Brett_darstellen;
begin
FigurBreite:=55;
FigurHoehe :=55;
BauerW1.SetBounds(22,358,FigurBreite,FigurHoehe);
BauerW2.SetBounds(77,358,FigurBreite,FigurHoehe);
BauerW3.SetBounds(134,358,FigurBreite,FigurHoehe);
BauerW4.SetBounds(190,358,FigurBreite,FigurHoehe);
BauerW5.SetBounds(246,358,FigurBreite,FigurHoehe);
BauerW6.SetBounds(302,358,FigurBreite,FigurHoehe);
BauerW7.SetBounds(358,358, FigurBreite,FigurHoehe);
BauerW8.SetBounds(416,358,FigurBreite,FigurHoehe);
KoenigW.SetBounds(246,414,FigurBreite,FigurHoehe);
TurmW1.SetBounds(22,414,FigurBreite,FigurHoehe);
TurmW2.SetBounds(416,414,FigurBreite,FigurHoehe);
SpringerW1.SetBounds(77,414,FigurBreite,FigurHoehe);
SpringerW2.SetBounds(358,414,FigurBreite,FigurHoehe);
LaeuferW1.SetBounds(134,414,FigurBreite,FigurHoehe);
LaeuferW2.SetBounds(302,414,FigurBreite,FigurHoehe);
DameW.SetBounds(190,414,FigurBreite,FigurHoehe);
BauerS1.SetBounds(22,80,FigurBreite,FigurHoehe);
BauerS2.SetBounds(77,80,FigurBreite,FigurHoehe);
BauerS3.SetBounds(134,80,FigurBreite,FigurHoehe);
BauerS4.SetBounds(190,80,FigurBreite,FigurHoehe);
BauerS5.SetBounds(246,80,FigurBreite,FigurHoehe);
BauerS6.SetBounds(302,80,FigurBreite,FigurHoehe);
BauerS7.SetBounds(358,80,FigurBreite,FigurHoehe);
BauerS8.SetBounds(416,80,FigurBreite,FigurHoehe);
SpringerS1.SetBounds(77,24,FigurBreite,FigurHoehe);
SpringerS2.SetBounds(358,24,FigurBreite,FigurHoehe);
TurmS1.SetBounds(22,24,FigurBreite,FigurHoehe);
TurmS2.SetBounds(416,24,FigurBreite,FigurHoehe);
KoenigS.SetBounds(246,24,FigurBreite,FigurHoehe);
LaeuferS1.SetBounds(134,24,FigurBreite,FigurHoehe);
LaeuferS2.SetBounds(302,24,FigurBreite,FigurHoehe);
DameS.SetBounds(190,24,FigurBreite,FigurHoehe);

end;

Gruß
THF

Moderiert von user profile iconraziel: Code- durch Delphi-Tags ersetzt.
OneOfTen
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Di 15.02.05 16:28 
benutze ein Array für alle Figuren oder für alle Figuren einer Gruppe (zB Bauern)
Kein Plan, nach welchem Muster die Figuren positioniert werden, aber ich denke mal, es soll ein Schachbrett sein :wink: daher würde ich die Figuren auf Feldern anordnen, dann ist die Zuweisung auch einfacher..

//EDIT: die Grammatik :)