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

[TOC]

Hi!

Auf vielfachen Wunsch aus meinem Bekanntenkreis kommen hier 12 Beispielprogramme für Delphi-Anfänger. Der Schwierigkeitsgrad reicht von "ganz ganz einfach" über "mittelschwer" bis "ganz schön kompliziert". Alle Ordnernamen beginnen mit einer Zahl von "01" bis "12", wobei "01" das einfachste und "12" das schwierigste Beispielprogramm ist.

Ich habe alle Programme komplett durchdokumentiert. Ich hoffe meine Kommentare sind für Euch verständlich.

Die Programme drehen sich um grundlegende Dinge der Programmierung, zum Beispiel Standard-Delphi-Objekte, Sound ausgeben, Grafiken zeichnen, Text auf Drucker ausgeben und so weiter.

Im Anhang findest Du zwei Archive, eines Für Delphi 3.0 die beiden andere für Delphi 7.0.

Alle Programme sind natürlich OpenSource, fast alle sind GiftWare und eines ist Public Domain.

Wenn weitere Beispielprogramme gewünscht werden, oder wenn Du sogar eine Idee für ein kleines Beispielprogramm hast das Du aber selber nit hinkriegst, dann melde Dich bitte!

[Edit]---------------------------------------------------------------------------------------------

Ich hab den Anhang geändert. Du findest da jetzt drei Archive. Zwei recht kleine Archive enthalten nun nur noch die SourceCodes jeweils für D3 bzw. D7. Ein Archiv enthält die 12 Exe-Dateien der D3 Version ohne SourceCodes.

[Edit]---------------------------------------------------------------------------------------------

Ich habe meine selbstgebastelte ControledEdit-Komponente aus dem Lines-Demoprogramm entfernt und sie durch normale Edit-Felder ersetzt.

Ausserdem verwendet das Hiroshima-Programm jetzt nur noch die Windows-GDI-Funktionen "MoveToEx" und "LineTo", was deutlich schneller ist als der Delphi-Draw Befehl und ein FloodFill!

Ihr könnt sie Euch ja mal anschauen.

Grüsse von TOC :stupid: !

[Luckie]

D7 fehlt im Anhang.

Nimm doch mal die Exe Dataeien aus dem Archiv. Ohne ist es nur 760 KB groß.

Und es wäre schön, wenn beim ersten Beispiel eine Abfrage kommen würde, ob man wirklich drucken will.

[TOC]

Hi!

Zitat:

Zitat von Luckie

D7 fehlt im Anhang.

Sorry! Bin den Beitrag noch am Editieren! Das D7 Archiv ist mit 3,28 MB zu gross für ein UpLoad!
Also, ich schneid dat jetzt einfach in zwei Teile und Nudle die dann einzeln hoch.

Kommt alles gleich :roll: !

[Luckie]

Nimm doch die Exe-dateien raus. Sind doch eh überflüssig.

[TOC]

Hi!

Zitat:

Zitat von Luckie

Nimm doch die Exe-dateien raus. Sind doch eh überflüssig.

Hatte wegen so ´ner Sache schon mal Beschwerden von 'Kunden' die keinen Delphi-Compiler haben.
Deshalb lass ich die *.exe-Dateien lieber mal drin um Ärger zu vermeiden.

Grüsse von TOC!

[rory]

@Lucky: Die Echsen kann man wirklich weglassen! Wenn man vorher die nötigen Komponenten installiert und dann noch das DPR durch das Delphi schaufelt, das man gerade installiert hat.

Hattest Du denn wirklich KEINE Probleme mit Indy?

^^Sarkasmus

mfg

[TOC]

Hi!

Zitat:

Zitat von Luckie

Und es wäre schön, wenn beim ersten Beispiel eine Abfrage kommen würde, ob man wirklich drucken will.

Uups? Das "Ein-Mal-Eins" druckt irgendwas aus? Das ist eigentlich gar nit vorgesehen!

Also, hier im InterNet-Cafe hab ich kein Delphi. Ich werde das nachher zuhause überprüfen und irgendwelche Druck-Aufträge rausnehmen, nur ist mir halt ´n Rätsel wieso das Druckt :gruebel: ???

Hab mir grad nochmal jeweils den D7 und D3 Code angeguckt, aber da steht NIX zum Thema drucken drin! Kompiliert das Beispiel doch einfach neu, dann dürfte er auch NIX mehr drucken!

Grüsse von TOC :stupid: !

[Luckie]

Zitat:

Zitat von TOC

Zitat:

Zitat von Luckie

Nimm doch die Exe-dateien raus. Sind doch eh überflüssig.

Hatte wegen so ´ner Sache schon mal Beschwerden von 'Kunden' die keinen Delphi-Compiler haben.

Hier sind es aber keine Kunden und du richtst dich ja gerade an Delphi Anfänger, also sollte man davon ausgehen, dass ein Delphi vorhanden ist. Desweiteren dürfte es einen Modemnutzer abschrecken über 2 MB runterzuladen.

[Hobby-Programmierer]

Nabend ..., :)

Zitat:

Diese SoftWare ist Gift-Ware, also Geschenk-Ware. Meine Programme sind für Kinder und Jugendliche bis 30 Jahre vollkommen kostenlos

... :wiejetzt: wie teuer wird dat für die älteren unter uns ? :gruebel:

LG Mario

[edit] :thumb: aber sonst net schlecht, für Anfänger sicher empfehlenswert !!

[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...

Delphi-Quellcode:

  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...

Delphi-Quellcode:

  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