Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#2

Re: Hilfe bei der Hilbert Kurve

  Alt 8. Mai 2006, 16:35
solche Sachen würde ich anders lösen:
Delphi-Quellcode:
Var
  gFirst : Boolean;
  gCanvas : TCanvas;

Procedure DrawTo (X,Y : Integer);
Begin
  If gFirst Then Begin
    gCanvas.MoveTo(X,Y);
    gFirst := False;
  End
  Else
    gCanvas.DrawTo (X,Y)
End;

...
  gFirst := True;
  gCanvas := MyControl.Canvas;
  DrawTo (0,0);
  DrawTo (1,1);
  DrawTo (2,5);
...
Prinzipiell verlagerst Du das Bookkeeping des MoveTo/DrawTo-Flags ('gFirst') in eine separate Routine. Das vereinfacht die Sache und ist idiotensicher.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat