Wiederholung

  1. Delphi folgt mit seinem Konzept weitgehend dem Prinzip der objektorientierten Programmierung, wobei viele Objekte in ihrer Grundform bereits als Komponenten vorgegeben sind.
     
  2. Objekte (Komponenten) besitzen bestimmte voreingestellte Eigenschaften, die zur Entwurfszeit oder zur Laufzeit des Programms geändert werden können.
     
  3. Methoden stellen die Fähigkeit von Objekten dar, auf bestimmte Ereignisse zu reagieren (Ereignisbehandlungsroutinen).
     
  4. Löst zur Laufzeit eines Programms ein Ereignis eine Methode aus, so verändert diese zielgerichtet bestimmte Eigenschaften von Objekten.

Einige ausgewählte Sprachelemente aus Object-Pascal / Delphi:

Sprachelemente

Erläuterung

Beispiel

                               Datentypen

Real

Typ der reellen Zahlen

var a, b, c : Real;

Integer

Typ der ganzen Zahlen

var x, i: Integer;

String

Typ einer Zeichenkette

var s : String;

                               Typumwandelnde Funktionen

Trunc

Wandelt Real-Werte in Integer-Werte um

x := trunc(a);

StrToFloat

Wandelt eine Zeichenkette in eine reelle Zahl um

a:=StrToFloat(edit1.text);

FloatToStr

Wandelt eine reelle Zahl in eine Zeichenkette um

edit3.text:=FloatToStr(c);

                              Arithmetische Funktionen

Sqrt

Quadratwurzel

c := Sqrt(a);

Ln

Natürlicher Logarithmus (Basis e)

c := ln(b);

Sin

Sinus

c := sin(a);

Cos

Kosinus

c := cos(a);

                              Methoden

Close

Formularfenster schließen

Form1.Close;

 Ermitteln des Maximums von drei Zahlen  

                              

procedure TForm1.Button1Click(Sender: TObject); {++++++Maximum ermitteln++++++}
 

var a,b,c,max: integer;
 

begin
   

    a:=StrToInt(edit1.Text);
    b:=StrToInt(edit2.Text);
    c:=StrToInt(edit3.Text); 
   

    IF a<b THEN

    begin

        IF b<c THEN max:=c;

        F b>c THEN max:=b;

    end;


    IF a>b THEN

    begin
 

        IF a<c THEN max:=c;

        IF a>c THEN max:=a;
 

    end;
 

    label5.Caption:='Das Maximum ist '+ IntToStr(max);
 

end; 
 

procedure TForm1.Button2Click(Sender: TObject); {+++++Neu+++++}

begin


    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    label5.Caption:='';
 

end;

Dreieck

Quadratische Funktion

ggt und kgv

Heron-Verfahren