Einzelnen Beitrag anzeigen

Benutzerbild von x000x
x000x

Registriert seit: 21. Jan 2004
Ort: Bei Hamburg
308 Beiträge
 
Delphi XE2 Professional
 
#18

Re: Strichmenchen soll laufen

  Alt 12. Sep 2005, 21:58
Zitat von turboPASCAL:
...mach das doch bitte mal an hand dieses Beispieles:
Ok
Delphi-Quellcode:
program Test_;
// ..
  //Initialisierung
  myBildschirm := Bildschirm.init;
  myStift := Stift.init;
  for x := 250 to 600 do
  begin
    with myStift do
    begin
      //
      // Neu ;-)
      dreheUm(-Winkel);
      // ..
Winkel ist eine funktion (aus der Klasse Stift, haste vll. übersehen?), die mir den aktuellen Wert von zWinkel zurückliefert.
Wenn ich den Wert negiere, bekomme ich immer den aktuellen Wert von zWinkel mit entgegengesetztem
Vorzeichen.
z.B.:
angenommen: zWinkel := -90
dann gibt mir die funktion -Winkel = --90 zurück (oder auch gleich 90)
und -90 + 90 = 0

Kann es leider nicht besser erklären, aber probier es aus...
Peter
-= Gruss Peter =-
-= alias x000x =-
  Mit Zitat antworten Zitat