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

[stoxx]

ich bin der Meinung, ein Anfänger gehört hinter ein gutes Buch !
man holt sich vielleicht die Bücher von Walter Doberenz und Kowalski und da sind 500 Beispiel Projekte drin, wo für jedes Problem etwas entworfen wurde.
An was für Anfänger richtest Du Dich ? Da sind auf einmal Hexadizmalzahlen drin bei RGB Umwandlungen. Hat ein blutiger Anfänger, dem Du erklärst, was eine Schleife ist, schonmal was davon gehört ?
das baut alles gar nicht didaktisch aufeinander auf, und ist sehr gefährlich und verschreckt wohl den einen oder anderen Anfänger eher, als ihm Lust zu machen.
Die Bruchrechnung wird in der Schule halt auch erst in der 5 Klasse gelehrt.
Ich würde gern mal die Meinung eines Anfängers darüber hören.
Die VCL erwähnst Du gar nicht, warum wieso und weshalb ist das alles da und wo kommt das her ?
Ich weiß nicht so recht ! .. ehrlich, hab auch ewig an den paar Zeilen gebraucht, weil ich den Text immer wieder gelöscht habe und nicht wusste wie ich das ausdrücken soll.
*ungläubig guck*

[Der_Unwissende]

Zitat:

Zitat von stoxx

ich bin der Meinung, ein Anfänger gehört hinter ein gutes Buch !

Hi,
erstmal möchte ich hier natürlich stoxx zustimmen, ich denke das Wort gut sollte hier aber betont werden. Es gibt sicherlich mehr schlechte als gute Büche zu jedem Thema auf dem Markt.
Aber ich denke kein totaler Anfänger wird ernsthaft die DP besuchen und nach "Beispielprogrammen für Anfänger" suchen, sorry falls sich jetzt jmd. desillusioniert fühlt ;-)
Nein, mal ehrlich, ist ja ganz nett wenn Leute hier Probleme für Anfänger posten wollen bzw. es tun, aber ich denke es hat keinen Anspruch auf's zwangsläufig gut sein. Meine das gar nicht so böse wie es vielleicht klingt!

Ich denke einfach nur, es gibt keine klare Definition wann man ein Anfänger ist und wann ein Delphi-Guru. Hier hängt doch viel von der Selbsteinschätzung ab (und ich denke dort auch von den eigenen gemachten Erfahrungen und nun ja, auch ein wenig vom Alter). Von daher wird sich jeder die Beispiele suchen, die er selbst versteht und für sinnvoll erachtet. Ob ein Anfänger ohne jegliche Kenntnisse dann wirklich nur nach Beispielcode sucht, lass ich mal dahin gestellt sein, aber wenn jmd. etwas nicht versteht oder Hilfe braucht, hey, dann ist doch in der DP richtig :dp:

Gruß Der Unwissende

[TOC]

Hi!

Zitat:

Zitat von 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

Also, hmm, darüber hab ich noch nie so richtig nachgedacht! Muste einer von den Älteren bis jetzt wat zahlen? Wär mir völlig neu!

Zitat:

Zitat von Hobby-Programmierer

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

Cool! Wenigstens einer dem sie gefallen!

Also, die Programme sollen gar kein Buch ersetzen und auch keinen Informatik-Unterricht an der Schule oder gar an der Uni! Verschiedene Freunde haben mich immer wieder gefragt: Wie kann man nen Sound ausgeben, wie kann man was ausdrucken und so weiter. Im Laufe der Zeit sind dann daraus diese Beispielprogramme entstanden.

Ich lese SourceCodes wie andere Leute Romane. Ein guter SourceCode von einem anderen Programmierer ist für mich spannend und aufregend, und so hab ich auch Programieren gelernt: Durch SoureCodes lesen und dann selber herumexperimentieren.

Zitat:

Zitat von omata

Hallo TOC,
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

Oh, die MiniMod.pas mal wieder! Die ist von Benjamin Rosseux geschrieben, nit von mir. Ich hab die irgendwo hier in DP mal gefunden...
Das Check ich nochmal!

Grüsse von TOC!

[TOC]

Hi!

Also ich find es ganz erstaunlich wie oft die D3 Exe-Dateien heruntergeladen werden. Es gibt also doch noch Leute ohne Delphi-Compiler die sich die Beispielprogramme trotzdem ansehen möchten...

Grüsse von TOC :stupid: !

[BoB89]

Grüßen
Als erstes: "Danke!"
Ich bin zwar kein blutiger anfänger mehr, abwer so erfahren bin ich auch nicht
ich habe mir mal deine quellcods runtergeladen, und siehe da, obwohl ich nich alles gabrauchen konnte, weil ich einiges schon wusste, habe ich immer wieder was gefunden, was ich als nützlich empfand.
Mir gefallen deine Programme, und auch wenn sie keinem helfen, der "Delphi" zum ersten mal hört, so kann man doch auch als anfänger möglichkeiten und ideen in deinem code finden. Danke
mfG BoB :coder2:

[himitsu]

Wo ist bitte die Liste mit den versteckten Kosten?
(ist ja nur für "für Kinder und Jugendliche bis 30 Jahre vollkommen kostenlos")

[I.A.]

Ich bin ein Anfänger(totaler Anfänger, richtig blutig)

Funktionieren die Codes auch mit Delphi 2005 Personal ??

[himitsu]

Die Meisten bestimmt ... snd ja nur "einfache" Win32-Programme.

PS: dieses Hiroshima ... hier auf dem alten 800 MHz Duron mit 284 MB is dat Teil echt langsam es werden nur etwa 1 Kreuz pro Sekunde gezeichnet und die CPU is fast vollkommen ausgelastet °_°

[TOC]

Hi!

Zitat:

Zitat von BoB89

Als erstes: "Danke!"

Ich bin zwar kein blutiger anfänger mehr, abwer so erfahren bin ich auch nicht
ich habe mir mal deine quellcods runtergeladen, und siehe da, obwohl ich nich alles gabrauchen konnte, weil ich einiges schon wusste, habe ich immer wieder was gefunden, was ich als nützlich empfand.

Cool! Freut mich das Du was davon gebrauchen kannst!

Die Programme sind keineswegs als grundlegende Einführung in Delphi gedacht. Ein totaler Anfänger sollte Informatik-Unterricht an der Schule oder Uni belegen. Und wenn das nicht möglich ist dann sollte er sich ein gutes Anfänger-Buch über Delphi besorgen und Aufmerksam durcharbeiten.

Zitat:

Zitat von BoB89

Mir gefallen deine Programme, und auch wenn sie keinem helfen, der "Delphi" zum ersten mal hört, so kann man doch auch als anfänger möglichkeiten und ideen in deinem code finden. Danke
mfG BoB :coder2:

Genau dafür sind sie Gedacht: Einfach nur als Anregung zum herumschnuppern, sich auch mal ne Funktion rausziehen und ins eigene Programm reinbauen und so weiter. Leider machen die meisten Programmierer aus ihren Quellcodes ein Geheimniss, sodas es viel zuwenig Codes zum herumschnuppern gibt.

Ich werde auch in Zukunft weitere kleine Beispielprogramme schreiben und dann hier veröffentlichen!

Grüsse von TOC!

[Go2EITS]

@TOC

Ich habe die Beispieleprogramme zwar nicht angesehen, aber allein der Gedanke und die Mühe sich für uns zu machen, absolut lobenswert! Was jeder dabei für sich "rauszieht" bleibt jedem selbst überlassen.

Interessant, dass die .exe Dateien sooft geladen werden. Vielleicht mit UPX packen und mit z. b. den Parameter: upx --best MeinProg.exe komprimieren. (bis zu über 50%) Geht ganz easy!
UPX Download: upx201w.zip

Weiter so. Davon lebt die DP!
CU! :hi:
GO2EITS

[DGL-luke]

Nebenwirkungen, Gegenindikationen:
UPX

Auszug:
- Performanceverlust
- Verlust des Shared Module Mapping (erhöhter Speicherverbrauch)

Alternativmedikation:

Solide temporäre Kompression, zum Beispiel RAR (Rarlabs), 7-zip (Generika, www.7-zip.org ).

[TOC]

Hi!

O, Sorry Leute, da ist mir ein peinlicher Fehler unterlaufen! Die Unit zwei vom Lines-Programm verwendet doch tatsächlich meine selbstgebastelte ControledEdit-Komponente, das hab ich leider komplett übersehen. Eigentlich hab ich extra nochmal alle Programme darauf überprüft, aber das mit der Unit 2 hab ich nit gemerkt.

Ich werde so schnell wie möglich ein Update machen, versprochen. Bis dahin findest Du meine Kompenten hier : Meine (Tocs) Delphikomponenten als Paket fuer d3 oder d7

Zitat:

Zitat von himitsu

Die Meisten bestimmt ... snd ja nur "einfache" Win32-Programme.

PS: dieses Hiroshima ... hier auf dem alten 800 MHz Duron mit 284 MB is dat Teil echt langsam es werden nur etwa 1 Kreuz pro Sekunde gezeichnet und die CPU is fast vollkommen ausgelastet °_°

Ja, Sorry, das TDrawGrid ist eine Standard-Delphi-Komponente und die Delphi- bzw. Windows-GDI-Zeichenfunktionen sind extrem langsam. Ach, weist Du was, ich schreib das mal um und schmeiss den FloodFill-Befehl raus und mache es mit Line-Befehlen sobald ich die Zeit dazu finde. Vielleicht ist es dann auch auf Deinem Rechner schnell genug!

Normalerweise versuche ich mit meinen Programmen kompatiebel zu bleiben zu:

Pentium III MMX, 450 Mhz, 192 MB Ram, Ab Windows 98

Irgendwo muss man leider eine untere Grenze setzen, Sorry :cry: !

Möglicherweise ist das Hiroshima-Programm auf meinem Rechner so schnell wegen meiner Matrox-Millenium AGP-Grafikkarte und der MMX-Funktion...

Grüsse von TOC!

[TOC]

Hi!

Es gibt ein UpDate! Gründe siehe ganz oben!

Grüsse von TOC!