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

[omata]

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