Ping Pong Spiel vereinfacht.. Brauche aber trotzdem Hilfe!

[leela]

Zitat von malo:

bei WELCHEN variablen meckert er?!?! Meine Teeblätter hab ich verliehen, sorry

Bei x1,x2,y1,y2. Das sind ja die Eckpunkte vom Rechteck (Spieler), die ich eigentlich in der Prozedur SpielerErstellen hab.

Fehler : [Hinweis] Unit1.pas(63): Auf 'y2' zugewiesener Wert wird niemals benutzt
und das dann eben auch mit x1, x2, y1.

Delphi-Quellcode:

procedure tSpieler.SpielerErstellen(x1,y1,x2,y2: integer);
begin
with Spielfeld.Bild.Canvas do
    begin
    brush.Color:= clBlue;
    rectangle(x1,y1,x2,y2);
    pen.width:=1;
    brush.style:=bsSolid;
    pen.Mode:= pmNOTXOR;
    end;
x1:=670; // da ist der Fehler
y1:=100;
x2:=680;
y2:=210;
end;

Habs eben gestestet.. Wenn ich das wegmache, dann gehts. Aber dann hat er ja immer noch nicht den Spieler erstellt. Moment ich probier das eben noch mit dem OnShow-Event aus..

Zitat von malo:

Und die Procedure selbst kannst du nicht ansprechen. Was willst du denn genau mit der Procedure dann machen? Wenn du uns das sagst, kann vllt geholfen werden!

Also eigentlich will ich ja mit der Prozedur SpielerErstellen dann später sagen, dass die sich halt bewegen soll. Also, dass sich der Spieler bewegen soll. Oder soll ich dann lieber ne Prozedur schreiben SpielerBewegen ?

Und ich versuch mal ein neues Projekt mit den Shapes.