Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: rechteckige Spirale durchlaufen

    Delphi
    by DGL-luke, 17. Dez 2005
  schon passiert, hab einfach for i:=1 to count-1 gemacht.
  
  EDIT: weitere anmerkungen zur funktion bitte gleich in die codlib-section: http://www.delphipraxis.net/viewtopic.php?p=473530#473530
• Forum: Object-Pascal / Delphi-Language

  Re: rechteckige Spirale durchlaufen

    Delphi
    by DGL-luke, 17. Dez 2005
  sodele, funzt jetzt immer noch ;)
  Ich weiss ja, dass es bis count-1 geht, aber genau das verletze ich ja und es funzt trotzdem...
  
  werde das gleich mal für die codelib vorschlagen.
  
  ach ja: wenn man das setlength gleich am anfang macht, sollte es schneller gehen.
• Forum: Object-Pascal / Delphi-Language

  Re: rechteckige Spirale durchlaufen

    Delphi
    by DGL-luke, 17. Dez 2005
  DANKE! das ist großartig!
  ok.... hab das ganze ein wenig umgeschrieben, und es funktioniert.
  
  type PArray = array of TPoint;
  
  function spirale(abstand,count,startstep:integer;startpunkt:tpoint;drehsinnnachrechts:boolean):PArray;
  var
  richtung,i,step:integer;
  actpos:tpoint;
  begin
• Forum: Object-Pascal / Delphi-Language

  rechteckige Spirale durchlaufen

    Delphi
    by DGL-luke, 17. Dez 2005
  Hallo,
  für Pathfinding will ich mich spiralförmig um einen gegebenen Punkt herum bewegen.
  Nach viel Denkarbeit habe ich bereits rausgefunden, dass ich mich an "Eckpunkten" festhalten kann, die eine ganzzahlige Quadratwurzel haben.
  
  function GetSpiralPoint(origin: TPoint; index: Integer):TPoint;
  var i,corner:integer;
  p:TPoint;
  begin
  // we're assuming origin to be 0|0 here, translation...