Hallo
TOC,
jetzt wäre es nur noch schön, wenn deine Beispiele auch ordentliche Komponenten,
Unit und Variablennamen verwenden würden. Und der Code ordentlich eingerückt wird. Dann lernen Anfänger vielleicht nicht nur die Funktion kennen, sondern auch wie man ordentliche Bezeichnungen wählt und wie man seinen Code übersichtlich strukturiert.
Ausserdem würde ich auf sowas verzichten...
if PrintDialog1.Execute=false then exit;
besser ist es positive Logik zu benutzen und das weglassen von =false bzw =true...
Delphi-Quellcode:
if PrintDialog1.Execute then begin
// jetzt was machen...
end
Außerdem wird dann der
böse Befehl
exit überflüssig (unstrukturierte Programmierung).
Es ist sinnvoll, solche Zeilen umzubrechen...
if Rel=0 then Rel:=1;
also so...
dann kann man nämlich besser beim Debuggen erkennen, ob die Zeile ausgeführt wird oder nicht.
So, das wars...
Edit: Habe noch was gefunden...
Im Beispiel
MiniMod sind noch Speicherlecks.
Die Zeile: GETMEM(Pattern[I], SIZEOF(TMiniMODPattern)); hat kein zugehöriges FREEMEM.
Gruss
Thorsten