Navigation: Kara: Allgemeines: Formobjekte: Sortieralgorithmen: Schleifen: Bedingungen: Rekursion: Datenbanken: Nützliches: Aufgaben: Lösungen: |
 |
Hilfe zur Programmierung mit Delphi im Informatikunterricht 
|
|||
!!Neuigkeiten!!
Gästebuch
|
Erklärung Unter diesem Punkt werden einige nützliche Dinge erklärt, aber vor allem findet man hier Dinge, die das Projekt schöner aussehen lassen. Sie erfüllen also keinen direkten Nutzen, sondern erfreuen das Auge. Aber auch Sachen, die einem viel Schreibarbeit ersparen, werden hier aufgeführt. |
Sierpinski
Posted on 8.12.2005 at 10:22 - 0 Kommentare - Link
Quelltext Sierpinski
type
procedure Sierpinski(a: Integer);
implementation
{$R *.DFM}
procedure TForm1.Sierpinski(a: integer);
var i: integer;
begin
for i := 1 to 3 do
begin
turtle1.FD(a); turtle1.rt(120);
if a>5 then sierpinski(a div 2);
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
sierpinski(strtoint(edit1.text));
end;
Kochfunktion
Posted on 8.12.2005 at 10:20 - 0 Kommentare - Link
So, hier ist nun die Kochfunktion. Sie zeichnet eine Art drittel Schneeflocke. Dabei ist sie rekursiv, sonst würde sie hier nicht stehen^^
Mit dem Button wird die Funktion gestartet, der Wert aus einem Editfeld.
procedure TForm1.Button1Click(Sender: TObject);
procedure Koch(a: integer);
begin
if a < 3 then turtle1.fd(a) else
begin
koch(a div 3); turtle1.lt(60);
koch(a div 3); turtle1.rt(120);
koch(a div 3); turtle1.lt(60);
koch(a div 3);
end;
end;
begin
koch(strtoint(edit1.text));
end;
(Für a = 600)
GGT
Posted on 8.12.2005 at 10:18 - 0 Kommentare - Link
Der GGT - oder auch größter gemeinsamer Teiler - berechnet den GGT von zwei Zahlen. Dazu benutzt er die Funktion mod.
Mod liefert immer den Rest einer Division.
Bei der Bedingung (a mod b) = 0 kann es keine größeren Teiler geben, da der GGT nicht größer als eine Zahl sein kann.
Der zweite Teil GGT(b,a mod b) berechnet dann weiter, bis irgendwann die erste Bedingung erfüllt ist. Es gibt zwar keine Schleife, doch der else-Teil von GGT ruft sich immer wieder selber auf.
function GGT(a,b: integer): Integer;
begin
if a mod b=0 then
result:=b
else
result := GGT(b,a mod b);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.text := inttostr(GGT(Strtoint(edit1.text),Strtoint(edit2.text)));
end;
Fakultät
Posted on 8.12.2005 at 10:15 - 0 Kommentare - Link
function fakultaet(a: Integer): Longint;
var fa: Longint;
begin
if a = 0 then
fa := 1
else
fa := a * fakultaet(a-1);
result := fa
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text := inttostr(fakultaet(strtoint(edit1.text)));
end;
Dies ist ein sehr schönes Beispiel von einer Rekursion. Jede Zahl, die man eingibt, wird solange um eins erniedrigt, bis sie 0 ist. Anschließend wird sie wieder multipliziert. Klingt komisch, aber da wir wissen, das eine Rekursion ihre einzelnen Schritte speichert, werden diese natürlcih auch wieder rückwärts abgearbeitet und deshalb geht es.
Fibonacci Zahlen
Posted on 8.12.2005 at 10:11 - 0 Kommentare - Link
Fibonatcci Zahlen sind eine Art Additionssumme. Eine Fibonatccizahl besteht aus der Summe ihrer 2 linken Nachbarn.
Dabei ist festgelgt, das 0 = 1 und 1 = 1 sei.
Zum Beispiel
Zahlen 0 1 2 3 4 5 6 7
Fibonaccti 1 1 2 3 5 8 13 21
Man kann sehen, das die Zahlen schnell größer werden.
function fibonatcci(n: Integer): Integer;
var a: Integer;
begin
if n <= 1 then
a := 1
else
a := fibonatcci(n - 1) + fibonatcci(n - 2);
result := a;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text := inttostr(fibonatcci(strtoint(edit1.text)));
end;
Eigendlich funktioniert es genauso wie die Fakultät. Jede Zahl, die man eingibt, wird erst auf 1 bzw 0 gebracht. Da 0 = 1 bzw 1 =1 definiert ist, rechnet der Algorithmus dann wieder rückwärts. Und so kommt man dann auf das Ergebnis.
Binominalkoeffizent
Posted on 8.12.2005 at 10:10 - 0 Kommentare - Link
Der Binominalkoeffizent berechnt ein Pascal'sches Dreieck, dabei berechnet es dieses aber immer nur bis zu der Stelle. Ein Overflow tritt ein, wenn die zweite Zahl größer ist, da es nicht möglich ist, fünf Tassen mit sechs Getränken zu füllen.
edit Benny: Wer sagt das? :D
function bino(n,k: Integer): Integer;
begin
if (k = 0) or (k = n) then
result := 1
else
result := bino(n-1,k-1)+bino(n-1,k);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.text := inttostr(bino(strtoint(edit1.text),strtoint(edit2.text)));
end;
Ackermann
Posted on 8.12.2005 at 09:59 - 0 Kommentare - Link
function ack(m, n: Integer): Longint;
begin
if m = 0 then
result := n+1
else
if n = 0 then
result := ack(m - 1, 1)
else
result := ack(m - 1, ack(m, n - 1));
end;
Einmal ausführlich beschrieben, dabei wird immer das Ergebnis ausgegeben, allerdings nicht die Unterpunkte:
2,3
2,2
2,1
2,0
1,1
1,0
0,1
0,2
1,3
1,2
1,1
1,0
0,1
0,2
0,3
0,4
1,5
1,4
1,3
1,2
1,1
1,0
0,1
0,2
0,3
0,4
0,5
0,6
1,7
1,6
1,5
1,4
1,3
1,2
1,1
1,0
0,1
0,2
0,3
0,4
0,5
0,6
0,7
0,8
= 9
Damit ist der Ackermann von 2,3 = 9. Wie man sieht, sind ganz schön viel Schritte nötig.
0,0---2
0,1---2
0,2---2
0,3---3
0,4---4
1,0---3
1,1---5
1,2---7
1,3---9
1,4---11
2,0---6
2,1---15
2,2---28
2,3---45
2,4---66
3,0---16
3,1---107
3,2---542
3,3---2433
3,4---10308
4,0---108
4,1--- Schafft mein Pc nicht mehr
Man sieht also, das die Funktion schon sehr schnell nicht mehr berechenbar ist
Rekursion
Posted on 8.12.2005 at 09:52 - 0 Kommentare - Link
Einführung Bei einer rekursiven Funktion, wie man sie in den Beispielen, wie Koch und Sierpinski findet, wird die Funktion durch sich selbst immer wieder aufgerufen.
Rekursion wird immer dann eingesetzt, wenn ein großes Problem in mehrere kleine Probleme, die genau wie das große aussehen, aufgeteilt werden kann. Mehr dazu siehe unten unter "Dummes Beispiel"
Zum Aufbau einer rekursiven Fuktion
Die Funktion wird wie alle Funktionen bzw. Prozeduren definiert, hat jedoch in den Klammern mindestens eine Variable.
Beispiel:
procedure name(a: Integer);
a muss nicht unbedingt "a" heißen und nicht immer ein Integer sein, aber bei unseren Beispielen ist es der Fall. Die Variablen, die schon in der Klammer definiert wurden, dürfen in der Funktion nicht nochmals definiert werden.
Beispiel:
...
if(a > 5) then
name(a/3)
else Anweisung;
...
Falls es noch nicht bekannt ist. Wenn sich eine rekursive Funktion selbst aufruf, wird eine neue Kopie dieser Funktion erstellt und die alte Funktion wartet bis die Kopie beendet ist.
Die Funktion führt sich also nicht selbst aus, sondern nur eine Kopie von sich.
Dummes Beispiel
Man hat einen Karton in dem wiederum kleine Kartons sind.
Die Funktion "auspacken" würde lauten:
Das Beispiel gibt es als Gif-Animation
Man sieht, dass die Funktion eine Abbruchbedingung hat. Im Gegensatz zum wirklichen Leben würde man bei diesem Beispiel den Karton an jemanden weitergeben und müsste dann warten, bis dieser Seine Tätigkeit (Funktion) ausgeführt hat.
Ich hoffe das ist erstmal verständlich, sonst einfach im Gästebuch fragen!!!
So, für diejenigen, die das immer noch nicht verstanden haben, jetzt kommt ein Beispiel aus dem richtigen Leben. Obwohl keiner so blöd sein kann...
Eine Rekursion ruft sich selber wieder auf. Ohne Abbruchbedingung läuft sie deshalb endlos. Machen wir den Test. Man nehme ein Blatt Papier und schreibe auf beide Seiten "Bitte wenden". Nun gibt man es einer Person und sie soll den Anweisungen auf dem Papier folgen. Sie wird nie fertig. (Ich sag ja, niemand wird so blöd sein, versucht es gar nicht erst) Wie auch, es gibt keine Abbruchbedingung. Man könnte eine formulieren, das wäre dann ja aber langweilig, oder und schließlich will der Computer ja auch ein bisschen rechnen, er wird sich schon melden, wenn er nicht mehr kann...
for-Schleife
Posted on 8.12.2005 at 09:48 - 0 Kommentare - Link
Am meisten wird dieser Typ von Schleife verwendet, deshalb gehe ich ein wenig genauer auf ihn ein. Anders als bei den anderen Schleifen zählt diese sich eine Laufvariable bei jedem Durchlauf um einen rauf, bzw runter. Ein weiterer besonderer Punkt ist, dass die Laufzeitvariable eine lokale Variable sein muss. In den meisten Fällen nimmt man i für diese Variable, doch eigentlich ist es einem freigestellt.
Zum Beispiel
zähler := 0;
for i:=1 to 5 do
begin
zähler := zähler + i;
end;
Diese Schleife würde 5 mal durchlaufen und jedesmal den Wert von i in den zähler schreiben. Am Ende ist er 15 groß.
Diese Art von Schleifen werden sehr oft geschachtelt oder benutzt, um den Index von längeren Anweisungen anzugeben.
Da man auf i zugreifen kann und er sich mit jedem Durchlauf selbst erhöht, spart das viel Zeit.
Eine Besonderheit
Die downto-Variante, sie zählt runter anstatt rauf, ansonsten verwendet man sie genauso.
Zum Beispiel
zähler := 0;
for i:=5 downto 1 do
begin
zähler := zähler + i;
end;
Am Ende kommt das gleiche, nämlich 15, raus.
while-Schleife
Posted on 8.12.2005 at 09:42 - 0 Kommentare - Link
Die while-Schleife ist kopfgesteuert. Oben wird überprüft, ob die Bedingung erfüllt ist, dann läuft sie einmal durch. Ist die Bedingung immer noch erfüllt, läuft sie noch einmal durch, usw.
Eine while-Schleife beginnt mit einem while, dann kommt die Bedingung, gefolgt von einem do. Natürlich kann man längere Bedingungen mit begin und end; klammern
Zum Beispiel
while Zähler <= 5 do begin
Zähler := Zähler + 1;
end;
...
Am Ende wird der Zähler 6 sein, da wenn er 5 ist, die Bedingung immer noch erfüllt ist und die Schleife ein weiteres Mal durchläuft.
repeat-Schleife
Posted on 8.12.2005 at 09:40 - 0 Kommentare - Link
Die repeat-Schleife ist eine fußgesteuerte Schleife, d.h. sie läuft mindestens einmal durch, denn erst am Ende jedes Durchlaufs der Schleife wird überprüft, ob sie noch einmal durchlaufen soll.
Eine repeat-Schleife beginnt mit dem Wörtchen repeat und endet mit einem until.
Zum Beispiel
Zähler := 0;
repeat
Zähler := Zähler + 1;
until Zähler = 5;
Diese Schleife würde sooft durchlaufen, bis der Zähler 5 ist. In diesem Beispiel wird innerhalb der Schleife raufgezählt und damit die Abbruchbedingung erfüllt, es kann aber auch der Fall eintreten, das die Bedingung schon vorher erfüllt ist. Trotzdem läuft die Schleife einmal durch.
Schleifen
Posted on 8.12.2005 at 09:38 - 0 Kommentare - Link
Hier werden erstmal die Funktionen von Schleifen erklärt. Eine Schleife bewirkt, das eine Funktion beliebig oft wiederhohlt werden kann. Dies ist ganz nützlich, wenn man eine immer wiederkehrende Anweisung durchführen möchte, aber den Quelltext nicht so oft untereinanderschreiben will.
Alle Schleifen müssen eine Abbruchbedingung haben, sonst laufen sie so lange, bis der Arbeitsspeicher überfüllt ist und/oder sich das Programm aufhängt. Man kann beliebig viele Anweisungen in eine Schleife stecken, die einzelnen Schleifen stelle ich unter dem jeweiligen Punkt vor.
Selection Sort
Posted on 8.12.2005 at 09:29 - 0 Kommentare - Link
Selection Sort ist ein recht schneller Sortieralgorithmus. Er sucht den jeweils größten Wert raus und schreibt ihn dann an das Ende der Zeile. Obwohl er BubbleSort ähnelt, ist er sehr viel schneller, da nicht jedes Element untereinander getauscht wird, sondern erst, wenn der Algorithmus einmal durchgelaufen ist.
procedure TForm1.Button1Click(Sender: TObject);
var Max: string;
i,iMax,z: Integer;
begin
for i:= (listbox1.items.count - 1) downto 1 do
begin
iMax := i;
Max := listbox1.items[i];
for z := 0 to i-1 do
if(listbox1.items[z] > Max) then
begin
iMax := z;
Max := listbox1.items[z];
end;
listbox1.Items[iMax] := listbox1.items[i];
listbox1.items[i] := Max;
end;
end;
Stabil: Ja
Geschwindigkeit: Schnell
Bei vorsortieren Zahlen: Gut
Sortiermenge: Zahlen, Buchstaben und Gemische
Ergebnis (6 von 10)
BubbleSort
Posted on 8.12.2005 at 09:28 - 0 Kommentare - Link
BubbleSort ist ein recht einfacher Algorithmus. Er fängt unten an und vergleicht die ersten beiden Zahlen. Ist die eine Zahl darüber kleiner, so tauscht er sie. Dies macht er so lange, bis die nächste Zahl mal eine größere ist. Dann nimmt er die neue Zahl und verfährt mit ihr genauso. Wenn er dann die größte Zahl am Ende stehen hat, fängt er wieder von vorne an, allerdings ohne das jeweils letzte Element.
procedure TForm1.Button9Click(Sender: TObject);
var i, j: Integer;
begin
for j := 0 to (listbox2.Items.Count - 1) do
for i:=0 to (listbox2.Items.Count - j - 2) do
if listbox2.items[i] > listbox2.items[i+1] then
listbox2.items.exchange(i, i+1);
end;
Stabil: Ja
Geschwindigkeit: Langsam
Bei vorsortieren Zahlen: Gut
Sortiermenge: Zahlen, Buchstaben und Gemische
Ergebnis (4 von 10)
ArraySort
Posted on 8.12.2005 at 09:24 - 0 Kommentare - Link
Ein selbstentwickelter Sortieralgorithmus. Er basiert darauf, das die Zahlen in einen Array geschrieben werden, wobei der Index des Array gleich der Zahl ist und der Wert gleich der Anzahl an Zahlen. Dadurch ist er sehr schnell, aber sobald die Zahlen mehr als 6-Stellen haben, wird er pro Stelle deutlich langsamer. Noch funktionieren keine Strings.
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
z: Array[0..999999] of Integer;
begin
for i := 0 to 999999 do
z[i] := 0;
for i := 0 to listbox1.Items.Count -1 do
inc(z[strtoint(Listbox1.items[i])]);
listbox1.clear;
for i := 0 to 999999 do
if z[i] > 0 then
repeat
dec(z[i]);
listbox1.Items.Add(inttostr(i));
until z[i] <= 0;
end;
Stabil: Ja
Geschwindigkeit: Sehr sehr schnell
Bei vorsortieren Zahlen: sehr schlecht
Sortiermenge: Zahlen
Ergebnis (6 von 10)
Sortieralgorithmen
Posted on 8.12.2005 at 09:17 - 0 Kommentare - Link
Ein guter Sortieralgotithmus spart viel Zeit. Im allgemeinen sortieren sie eine Menge an Daten, meistens sind es Strings. Ziel ist es, einen guten Sortieralgorithmus zu haben, der sowohl eine unordentliche Menge, als auch eine schon vorsortierte Menge, in die nur ein Element eingefügt werden soll, sortieren kann. Und das möglichst schnell. Natürlich spielt dabei der Prozessor und der Arbeitsspeicher eine große Rolle, doch man kann trotzdem sagen, das einige Algorithmen anderen überlegen sind. Deshalb gibt es auch immer eine kurze Bewertung zu den einzelnen Algorithmen, was Zeit und Leistung angeht.
Damit man Sortieralgorithmen auch vergleichen kann, fügen wir eine Zeimessung durch. Dazu nehmen wir die Systemzeit am Anfang und am Ende von der Funktion und ziehen sie voneinandern ab. So erhalten wir die gewünschte Zeit.
...
var Systemzeit: Integer;
begin
systemzeit := GetCurrentTime;
...
Edit1.text := Floattostr((GetCurrentTime - Systemzeit) / 1000);
end;
...
Damit lässt sich die Zeit auf 3 Stellen genau berechnen.
Neuigkeiten
Posted on 7.12.2005 at 22:01 - 0 Kommentare - Link
So, wir wollen mal versuchen, neue Artikelbesser hervorzuheben, darum ganz einfach auf den Namen klicken undschon wird man weitergelinkt.
Neue Artikel sind
-
if-Bedingungen (21.2.06)
-
Die Türme von Hanoi (10.2.06)
-
Gebrauch von Datenbanken(3.2.06)
-
Bedingungen (24.01.06)
-
Einführung Datenbank (23.01.06)
-
Lösung: Die Rubel (20.1.06)
Unser Minidownloadbereich:
Viel Spass
Aufgaben
Posted on 7.12.2005 at 15:37 - 0 Kommentare - Link
Im folgenden werde ich einige Aufgaben inclusive Lösung und Welt angeben, man muss die Dateien allerdings downloaden und umbennen, da ich keine Dateien außer Bildern hochladen kann. Die Datei mit der 1 ist die Welt, die 2 das eigendliche Programm.
Kara
Posted on 7.12.2005 at 15:37 - 0 Kommentare - Link
Kara ist ein Marienenkäfer, dem man alles sagen muss. Er kann diverse Zustände überprüfen, hat aber keinen Speicher, auf den er zurückgreifen kann. Sein handeln ist nur durch Bedingungen geknüpft.
Invertieren
Posted on 7.12.2005 at 14:22 - 0 Kommentare - Link
Kara ist so zu programmieren, dass er alle Klebbläter umdreht, das heißt, wo eins liegt, soll er es aufnehmen, wo keins leigt, soll er eines hinlegen.
Welt:
Der Code, Baum rechts ist der Startstate
Turtle
Posted on 7.12.2005 at 14:22 - 0 Kommentare - Link
Mit einer Turtle ist es möglich, einfach Geraden zu zeichnen. Dabei geht die Turtle immer nur nach vorne, man muss sie immer in die entsprechende Richtung drehen. Turtle hat einen ganzen Katalog an eigenen Befehlen, ich liste mal die wichtigsten auf.
.fd(a: Real) geht um die Strecke a nach vorne
.bk(a: Real) geht um die Strecke a nach hinten
.lt(a: Real) dreht sich um die Strecke a nach links
.rt(a: Real) dreht sich um die Strecke a nach rechts
.home bringt die Turtle auf die Startposition
.cs löscht die Zeichnung
Das waren jetzt die Wichigsten.
Timer
Posted on 7.12.2005 at 14:22 - 0 Kommentare - Link
Ein Timer ist eine unsichtbare Komponente. Sie startet nach einem festgelegtem Intervall jeweils eine Procedure oder Function. Dies ist nützlich, wenn man zeitliche Abläufe festlegen möchte, oder Ergeignisse immer wiederkehren sollen. Im Groben kann man den Timer als eine Schleife bezeichnen, die auf Dauerbetrib macht.
Der Timer vefügt nur über ganz wenige Begriffe. Und das einzig neue ist Interval. Damit legt man die Taktrate fest. Ich bin mir nicht sicher, glaube aber es sind Millisekunden.
Radiobutton
Posted on 7.12.2005 at 14:22 - 0 Kommentare - Link
Nutzen
Anders als bei der CheckBox kann man immer nur eine Auswahl anwählen. Dies ist nützlich, wenn man das Geschlecht abfragen möchte oder ähnliches, wo man nur die Auswahl zwischen zwei Möglichkeiten hat und man sicher gehen möchte, das der Benutzer nur eine auswählt. Es ist dennoch Möglich, mehrere Radiobuttons zu haben und auch mehrere auszuwählen, dazu müssen diese aber jeweils in der Gruppe auf eine Groupbox, Radiobox oder Panel gesetzzt werden.
Ansprechen
Der Radiobutton wird genau wie die Checkbox angesprochen, nämlich über den Befehl checked.
Listbox
Posted on 7.12.2005 at 14:22 - 0 Kommentare - Link
Die Listbox ist etwas schwerer. Am besten vergleicht man sie wirklich mit einer Liste. In ihr stehen untereinander einzelne Strings. Damit gelten alle Befehle, die man für Strings beachten muss. Ansonsten vereinfacht sie das Arbeiten ungemein, da man in einem Feld fast beliebig viele Ausgaben anzeigen lassen kann.
Der mit Abstand wichtigste Befehl ist Items. Mit ihm lässt sich auf die ganzen String zugreifen.Im Folgenden gehe ich davon aus, das immer ein Listbox1.items vorneweg geschrieben steht.
Möchte man auf eine einzelne Zeile zugreifen, sogibt es 2 Möglichkeiten.
Kennt man die Stelle, so ist es mit [] und der Stelle möglcih.
Kennt man sie nicht, so schreibt man index. Dies ist ein Integerwert, der die Position des angeklickten Strings ausgibt.
Ein guter Punkt ist exchange(index1, index2). Damit lassen sich zwei Zeilen vertauschen.
Mit count lassen sich alle Elemente zählen. Dabei werden die Zeilen gezählt.
Mit sorted werden alle Elemente sortiert.
Mit delete(index) wird die Stelle gelöscht
Dann gibt es noch den Befehl clear, welcher einfach hinter Listbox1 gehängt wird (Punkt nicht vergessen) und die Listbox leert.
Label
Posted on 7.12.2005 at 14:22 - 0 Kommentare - Link
Mit einem Labelfeld kann man auf die Form Texte schreiben, meistens wird es genutzt, um hinzuweisen, für was gewisse Felder wie Editfelder gut sind. Natürlich kann man den Text auch während des Ablaufens ändern lassen. Deshalb nutzt man sie manchmal auch als Ergebnisausgabe
Die wichtigste Funktion ist caption, und mehr hat es eigentlich schon gar nicht mehr, die wichtig sind.
EditFeld
Posted on 7.12.2005 at 14:22 - 0 Kommentare - Link
Nutzen
Mit einem Editfeld ist es dem Benutzer möglich, Texte, Zahlen oder auch nur Zeichenketten (nix anderes tippt man ja ein), zu übermitteln.
Man spricht das Textfeld über die Komponente .text an.
Anzeigen lassen kann man nur String, doch mit dem Befehl Inttostr lassen sich auch Variablen anzeigen, da sie mit dem Befehl in einen String umgewandelt werden. Natürlich lassen sich auch wieder einzelne Zeichen anzeigen, mann setzt sie in Hochkommata ' '.
Checkbox
Posted on 7.12.2005 at 14:22 - 0 Kommentare - Link
Mit einer Checkbox ist es möglich, den Benutzer eine Auswahl treffen zu lassen. Dabei kann man mehrere Häkchen setzten, anders als beim Radiobutton, und diese dann mit Bedingungen abfragen lassen. So kann man eine Checkbox für die Hobbies nehmen, wo der Benutzer selber welche ankreuzen muss.
Bei einer Checkbox gibt es zwei sehr ähnliche neue Befehle. Da wäre der Boolean checked, der ausgibt, ob das Kästchen gedrückt wurde. Und dann hat man noch unter State die Möglichkeit einzustellen, ob man, wenn man schon mit einem Häkchen startet, dieses nicht grau, also unveränderlich haben möchte. Natürlich geht dies auch wieder während des Programmablaufs.
Button
Posted on 7.12.2005 at 14:22 - 0 Kommentare - Link
Ein Knopf zum Drücken, womit sich dann weitere Procedures starten lassen.
Da dies nur eine sehr einfache Komponente ist, gibt es keine Besonderheit.
Formobjekte
Posted on 7.12.2005 at 13:25 - 0 Kommentare - Link
Hier werden lauter Beiträge zu den einzelnen Komponenten entstehen, was sie machen. Auch wird hier erstmal die Grundansprechweise beschrieben. Unter den einzelnen Punkten sind dann auch noch Sonderbefehle und Beachtungen zu finden.
Es ist möglich, alle Unterpunkte im Objektinspektor auch während des Programms abzufragen. Dazu muss im Quelltext nur der Name des Objekts stehen, dann kommt ein Punkt und dann der Punkt, den man gerne angesprochen hätte. Die Zuweisung erfolgt wie immer, man muss nur darauf achten, das die Werte stimmen, da es nicht möglich ist, einem Booleanfeld eine Zahl zuzuweisen.
Jedes Objekt hat im Objektinspektor den Punkt Name. Damit legt man fest, wie das entsprechende Objekt heißt. Standard ist der Name von dem Objekt mit der Nummer. Man kann natürlich auch einen neuen Namen zuweisen, doch ist dies nicht ratsam.
Alles, was sich auch nur irgendwie beschriften lässt (Buttons etc) kann man über den Punkt Caption bzw. Text machen lassen.
Ein weiterer, oft genutzer Punkt ist Visible. Dieser Boolean regelt, ob man das Objekt sieht.
Ein anderer, noch öfter genutzter Boolean ist Enabled. Damit kann man festlegen, ob es erlaubt ist, dieses Objekt zu nutzen.
Mit den Punkten Top und Left lässt sich die Lage auf der Form ändern. Top regelt den Abstand nach oben, Left zum Linken Rand.
Mit Taborder lässt sich die Reihenfolge ändern, in der man bei Drücken der TAB-Taste zwischen den Feldern springt.
Mit Hight und Weight lässt sich die Komponente an sich festlegen. Hight gibt die Höhe, Weight die Breite an.
Zu guter letzt noch den Punkt Font. Damit lässt sich die Schrift in nur allen erdenklich Varianten definieren.
Array
Posted on 7.12.2005 at 13:25 - 0 Kommentare - Link
Array , was ist das?
Ein Array kann man sich wie eine Reihe von Boxen vorstellen. In jede Box passt ein Wert eines vorher festgelegten Typs.
Es gibt zwei Arten von Arrays:
Statische Arrays werden so definiert:
var
a: array[0..10] of Integer;
In diesem Fall besteht das Array aus 11 Elementen. Element 0 bis 10. Die Elemente sind in diesem Fall Integer;
Definierung eines Arrays:
Names des Arrays : array[ Anfangswert .. Endwert ] of Variablentyp ;
Dynamische Arrays werden so definiert:
Dazu später mehr
Um die Werte in einem Array auszulesen oder reinzuschreiben verwendet man folgenden Befehl:
Arrayname[zellennr] := 3;
x := Arrayname[zellennr];
String
Posted on 7.12.2005 at 13:06 - 1 Kommentare - Link
Strings sind Zeichenketten, dies bedeutet, dass sie aus einer Reihe von aneinandergehängten ASCII Zeichen bestehen (Jedes Schriftzeichen hat einen ASCII Wert).
Listboxen und Editfelder zum Beispiel beinhalten Strings.
Wenn man in ein editfeld eine Zahl eingegeben hat, ist diese jedoch für den Computer noch keine Zahl sondern nur eine Zeichenkette.
Beispiel:
Die Zahl 123 in einem Editfeld ist für den Computer ein String der aus den Zeichen "1" danach "2" und danach "3" besteht. Um mit diesem String rechnen zu können muss man diesen erst mit strtoint(string) in einen Integer umwandeln.
Will man eine Kommazahl umwandel, benutzt man die Funktion strtofloat(string). Bei dieser Methode ist das Ergebnis kein Integer sondern eine Real.
Wenn man das ganze andersherum machen möchte, das heißt eine Zahl in ein Editfeld schreiben will, dann verwendet man die Methoden inttostr(integer) bzw. floattostr(real).
Man kann auf einen String, da es ja nur eine Zeichenkette ist, auf eine beliebige Stelle zugreifen und ihr einen neue Wert zuweisen. Dies geht mit den eckigen Klammern [].
Zum Beispiel
procedure TForm1.Button1Click(Sender: TObject);
var a: string;
begin
a := edit1.text;
edit2.Text := a[3];
end;
Man würde damit den dritten Buchstaben von dem Text in Edit1 haben.
Damit man diese Funktion optimal nutzen kann, ist der Befehl length kann man die Länge eines String bekommen.
Zum Beispiel
i := length(a);
oder
i := length(edit1.text);
Dabei gibt die Funktion einen Integerwert aus. Nützlich ist dies, um nicht versehentlich auf Stellen zugreifen zu wollen, die nicht vorhanden sind.
Mit den drei Befehlen ist es möglich, längere Teile zu bearbeiten.
Befassen wir uns zuerst mit delete. Sie löscht einen Teil aus einem String und der Rest füllt die Lücke. Dabei wird delete so definiert, das man erst den String, dann den Index und zuletzt die Anzahl angibt. Vereinfacht geschrieben sieht das dann so aus:
delete(String, Index, Anzahl)
Dabei ist es einem freigestellt, ob man eine Zahl, den ganzen String oder nur eine bestimmte Stelle löschen möchte.
Der Befehl copy funktioniert ähnlich. Von der Syntax her ist es dasselbe.
copy(String, Index, Anzahl)
copy kopiert halt nur Teile des Strings, die man dann anzeigen, an andere Strings anhängen oder anderweitig verwenden kann.
Nun ist auch klar, was insert macht. Man kann damit einen oder mehrere Zeichen in den String einfugen. Die Syntax sieht wie folgt aus:
insert(Stringname, Zeichen oder anderer String, Index)
Mit diesen drei Befehlen ist eine einfache Grundarbeit an Strings möglich.
Ein weiterer nützlicher Befehl ist pos. Mit ihm kann man nach bestimmten Zeichen oder Ketten in einem String suchen. Dabei gibt pos das Ergebnis in einem Integer aus. Besonderheit ist, das nur das erste Zeichen gefunden wird. Wenn man ein e finden will und das Wort hat mehrere, dann sagt er nur die Position des ersten. Die Syntax lautet wie folgt:
pos(Substring,String)
Hiermit möchte ich nur nochmal kurz die einzelnen Möglichkeiten zur Bearbeitung des Strings anzeigen.
Da ein String nichts anderes als eine Zeichenkette ist, kann man beliebig Zeichen dranhängen. Dies geschieht mit dem Zeichen +. Dabei ist nur eine Besonderheit zu beachten. Möchte man reine Zeichen anhängen, so muss man sie in ' ' schreiben, will man jedoch einen ganzen Sring oder Teile eines String anhängen, reicht der Name. Zahlen werden also auch in ' ' eingefügt, da sie ja nichts anderes als Zeichen sind.
Zum Beispiel
...
var a: String;
begin
a := 'T' + 'e' + 's' + 't';
end;
...
a hat nun den Inhalt Test. Kombinieren wir doch nun mal 2 Strings.
Zum Beispiel
...
var a,b,c: String;
begin
a := 'T' + 'e' + 's' + 't';
b := 'erfolgreich';
c := a + b;
end;
...
In c steht nun Test erfolgreich.
Procedure
Posted on 7.12.2005 at 13:06 - 0 Kommentare - Link
Was ist eine Procedure?
Eine Prozedur ist im Grunde wie eine Funktion (siehe unter Funktion). Nur, dass sie nichts zurück gibt.
Eine Prozedur wird so deklariert:
Procedure name(n:Integer);
Man sieht, dass die Prozedur nichts hinter den Klammern stehen hat.
Beispiel einer Prozedur:
Close;
(zum schließen eines Fensters) ist eine Prozedur. Das Besondere an dieser Prozedur ist, dass sie keinen Wert benötigt.
Die Prozedur Add('abc') in einer Listbox benötigt einen String (hier ist es "abc"), den sie in die Listbox schreibt.
Eine Prozedur wird so aufgerufen:
Name(13);
Die Prozedur erhält einen oder mehrere Werte, wie in der Deklaration festgelegt, in den Klammern. Da die Prozedur keinen Wert zurückgibt wird sie auch keiner Variablen zugeweisen.
Function
Posted on 6.12.2005 at 22:16 - 0 Kommentare - Link
Eine Funktion führt Befehle aus und gibt am Ende einen Wert aus, der weiterverwendet werden kann.
Definition einer Funktion:
function name(n:Integer):Integer;
Name steht für den Funktionsnamen, mit dem sie gestartet wird. In der Klammer werden, jeweils durch Kommata getrennt, die Parameter, die die Funktion zum arbeiten braucht, definiert (dies macht man wie bei Variablen). Dann kommte ein Doppelpunkt hinter die Klammer und dann die Art von Variable, die die Funktion zurückgeben soll.
Der Wert den die Funktion zurückgeben soll, wird durch folgende Zeile am Ende der Funktion (aber vor dem "end;") festgelegt:
Result := wert;
Beispiel:
IntToStr ist auch eine Funktion:
Die Deklaration lautet in diesem Fall:
IntToStr(n:Integer):String;
Wie verwendet man eine Funktion:
Eine Funktion wird wie durch IntToStr bekannt werwendet.
a := IntToStr(13);
a ist ein String, dem der Wert, den die Funktion zurückgibt, zugewiesen wird. In die Klammer müssen je nach Funktion die Parameter eingegeben werden. In diesem Fall ist es ein Integer.
Variablen
Posted on 6.12.2005 at 22:16 - 0 Kommentare - Link
Die Meisten kennen sicher noch nicht den Unterschied, das wollen wir nun hier ändern.
Man hat zwei Möglichkeiten, eine Variable zu definieren.
Zum einem global. Dazu schreibt man unter
var
Form1: TForm1;
seine Variable rein.
z.B:
var
Form1: TForm1;
Test : Integer;
Nun hat man eine globale Variable. Eine Lokale wird vor dem begin einer procedure definiert.
z.B:
procedure TForm1.Button1Click(Sender: TObject);
var Test: Integer;
begin
end;
Aber wo ist denn nun der Unterschied?
Man kann mit beiden ganz normal rechnen, sie werden auch genau gleich angesprochen. Der große Unterschied liegt darin, das jede procedure auf eine globale Variable zugreifen kann, während eine lokale Variable jeweils nur von der procedure benutzt werden kann, in die sie reingeschrieben wurde.
HÄ????
Ganz einfach, wenn man zum Beispiel mit einem Knopfdruck eine Rechnung durchführen möchte und die Rechnung ist nach dem Drücken auch fertig, dann ist es uns egal, was mit dem Ergebnis passiert. Wir brauchen es nicht mehr (natürlich haben wir es ausgegeben, sonst wäre ja die Rechnung schön blöd gewesen) und deshalb bleibt die Variable in der procedure. Bei einer globalen Variable kann wie gesagt jede procedure drauf zugreifen. Zum Beispiel haben wir eine Seite von einem Quadrat (gibt ja nur eine^^). Jetzt haben wir mehrere Knöpfe, die jeweils den Umfang, den Flächeninhalt oder sonstwas berechnen. Mit einer globalen Variable müssen wir die Seite nur einmal einlesen, und jede einzelne procedure kann dann darauf zugreifen.
Der Nachteil ist, das bei einer falschen Programmierweise diese Variable schon mal überschrieben wird und bei einem längeren Programm gestaltet sich das Fehlerfinden recht schwer.
Anmerkung:
Einige Funktionen wie die for-Schleife benötigt eine lokale Variable, da kann man sie auch noch so oft global definieren, es wird nie klappen.
Es gibt verschiedene Arten von Variablen. Unter Variabeln werden erstmal die reinen Variablen aufgezählt, Strings und Array bekommen einen eigenen Abschnitt.
Integer -2 147 483648 bis 2 147 483 647
ShortInt -128 bis 127
Byte 0 bis 255
Extended 3.4*10^-4932 bis 1.1*10^4932
Real keine Ahnung
Allgemeines
Posted on 6.12.2005 at 22:16 - 0 Kommentare - Link
Unter diesem Punkt werden erstmal grundsetzliche Dinge vorgestellt.
Kurzübersicht über diese Seite
Posted on 6.12.2005 at 20:32 - 0 Kommentare - Link
Diese Seite dient zum besseren Verständnis bei einigen Delphiproblemen. Bei Fragen bitte im "Forum" posten, wir werden sie so schnell wie möglich beantworten.
Auf dieser Seite werden die Quelltexte von Problemen mit Erklärung aufgeschrieben, zudem aber auch allgemeine Sachen.
Die meisten Probleme sind dabei aus dem Informatik Unterricht der 12. Klasse, aber es gibt auch Probleme die nicht im Unterricht behandelt wurden, sondern als private Projekt.
Die Projekte haben wir eigentlich dazu gelöst, zu sehen, ob wir diese schaffen können.
Besonders möchte ich noch auf einen Helfer hinweisen, der uns beiden sowohl bei dem graphisches Layout als auch bei meiner katastrophalen Orthographie geholfen hat und uns mit seinem Einsatz diesen Blog verschönert hat: Benny
Viel Spass
Euer M&M-Team
PS:
Da ich aber schneller schreibe, als er korrigieren kann, sind noch immer einige auf der Strecke...
Ich bitte dies einfach zu übersehen...