Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Algorithmus bitte nachprüfen! (https://www.delphipraxis.net/128920-algorithmus-bitte-nachpruefen.html)

xXxOakleyxXx 9. Feb 2009 16:13


Algorithmus bitte nachprüfen!
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hey Leute!

Ich sowie 2 andere freunde von mir sind dabei ein Programm zu erstellen das 3 folgendene Aufgaben erledigen kann:

- 1. Bresenham-Algorithmus für Linien schrittweise zeichnen/darstellen

- 2. Bresenham-Algorithmus Kreise schrittweise zeichnen/darstellen

- 3. Floodfill-Algorithmus schrittweise zeichnen/darstellen

Ich hab euch hier mal den Ordner hochgeladen und ich hoffe ihr könnt mir damit weiter helfen.

Also beim Bresenham-Algorithmus für Linien sind wir der Meinung nun alles richtig geschireben zu haben allerdings zeichnet er einen schritt und dann hängt sich das programm auf...keiner weiß wieso! :evil:

Und für den Bresenham-Algorithmus Kreise wissen wir ehrlich gesagt nich genau was wir alles ändern müssen damit dieser geht...müsste ja ne abgeänderte form vom normalen Bresenham-Algorithmus sein oder?

Und beim Floodfill-Algorithmus wissen wir nich so wirklich wie wir den angehen sollen.

Guck es doch einfach bitte mal an und geht uns hilfen wenn möglich!

Vielen Dank im Voraus!

sirius 9. Feb 2009 16:26

Re: Algorithmus bitte nachprüfen!
 
1. Also bei der Linie ist der Timer irgendwie falsch. Zumindest wenn ich da eine Schleife drin sehe.
2. keine globale Variablen. die kann man entweder lokal in die procedures legen oder in das formular (unter private)
3. benutzt zum zeichnen ein TImage und nicht das Canvas der Form. Dadurch verschwinden eure Zeichnungen nicht, wenn mal ein Fenster drüber gezogen wird.

Edit: Und im onclose-Ereignis von Form2 solltet ihr wenigstens Form1 wieder anzeigen oder eben das Programm komplett schließen.
Edit2: und in berechne setzt ihr x immer wieder auf xs (also anscheinend xStart [verwendet ma ordentliche Variablennamen!]).

xXxOakleyxXx 9. Feb 2009 17:09

Re: Algorithmus bitte nachprüfen!
 
Joar na dann sollte ich doch da nochmal nachschauen.

jaenicke 9. Feb 2009 17:18

Re: Algorithmus bitte nachprüfen!
 
Warum ist es eigentlich anscheinend so schwer Crossposts anzugeben? :wall: :wall:
http://www.delphi-forum.de/viewtopic.php?p=548681

So wird wieder an zwei Stellen geschrieben ohne, dass man an der anderen Stelle nachschauen kann ob dort schon eine Antwort da ist, im DF habe ich nämlich geantwortet. :wall:

xXxOakleyxXx 9. Feb 2009 17:20

Re: Algorithmus bitte nachprüfen!
 
ja habs ja gelesen im andern forum...habs eben nur in beide gesetzt damit sich umso mehr leute mit befassen können! ;)

jaenicke 9. Feb 2009 17:30

Re: Algorithmus bitte nachprüfen!
 
Zitat:

Zitat von xXxOakleyxXx
ja habs ja gelesen im andern forum...habs eben nur in beide gesetzt damit sich umso mehr leute mit befassen können! ;)

Das wird zwar nicht so gerne gesehen in manchen Foren, aber so lange du die Crossposts angibst ist das meistens ok.

Angeben solltest du sie aber, denn schließlich kann es ja sein, dass man lang und breit erklärt was jemand anderes bereits im anderen Forum geschrieben hat (ohne dass man das weiß). Wenn man aber sieht, dass das da schon steht kann man ggf. etwas ergänzen, sich ansonsten aber die Mühe sparen das erneut zu schreiben.

xXxOakleyxXx 9. Feb 2009 17:34

Re: Algorithmus bitte nachprüfen!
 
achso ok......guuuut dass ichs dann jetz zumindest weiß.
Dankeschön fürs informieren! :-)

sirius 9. Feb 2009 21:30

Re: Algorithmus bitte nachprüfen!
 
Zitat:

Zitat von jaenicke
im DF habe ich nämlich geantwortet. :wall:

Ich war aber hier schneller :zwinker:

xXxOakleyxXx 2. Mär 2009 20:50

Re: Algorithmus bitte nachprüfen!
 
Alles Gelöst!
*Closed*


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:33 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz