Einzelnen Beitrag anzeigen

omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#10

Re: 12 kleine Beispiel-Programme für Delphi-Anfänger

  Alt 25. Jun 2006, 00:05
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...
Delphi-Quellcode:
  if Rel=0 then
    Rel:=1;
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
  Mit Zitat antworten Zitat