Java 17 - eine Übersicht - delphi-lernen.de

Java 14 - wieder ein Schritt weiter...

InfoText

Teil 1:

Punkte:

Nun sollte das Formular in etwa so aussehen:

Okee, bei Form1 habe ich den Titel geändert ;)
Hierzu fügen wir zwischen der "procedure"-Zeile und dem "begin" folgendes ein:

procedure TForm1.BtnSummeClick(Sender: TObject);
var
a, b, c : Integer;
begin

asd

asdasd

Unter GitHub befindet sich der komplette Sourcecode des Taschenrechners als Musterlösung.

Teil 2: Ein Taschenrechner für reelle Zahlen

Um den Part abzukürzen: Hier sind Schritte 1-8 identisch.
Man kann auch das Projekt aus a komplett in einen neuen Ordner kopieren, alle unnötigen Dateien löschen (alles bis auf .dpr, .dproj, .pas, .dfm), die .dproj öffnen, die entsprechenden Programmteile abändern.

Hier kurz die allgemeinen Unterschiede:

Als Variablentyp nehmen wir statt "Integer" -> "Double";
Die Funktion "StrToInt" tauschen wir mit "StrToFloat" aus;
Umgekehrt benötigen wir auch für die Umwandlung der Gleitkommazahl in einen String eine andere Funktion wie "IntToStr", die Lösung: "IntToFloat";
Mit Datei -> "Projekt speichern unter" können wir das Projekt unter "Taschenrechner2" abspeichern.

Hier ein Überblick zu den wichtigsten Operatoren.

(a,b,c,i sind vom Typ Integer, mit b ungleich 0;
d, e, r vom Typ Real;
s, s1..s5 vom Typ String mit Inhalt: s1:='abc', s2:='def'....)

Operator

Bedeutung

Beispiele

+,-,*

Zahlenarithmetik
Anwendung bei Ganz- sowie Kommazahlen

	
i := a+b;

c := (i-1)*a+(b-1);

d := e*(a+r)*(a-r);

DIV, MOD

Division von Ganzzahlen

	
i := a div b;

i := 91000 div 1000 mod 60; // = 31

i := 91000 mod 60 div 1000; // = 0

Division von Kommazahlen

	
r := a/b; 

r := (a+c)/(d+e)

// Achtung: folgende Zeile ist inkorrekt:

i := a/b;

Zusammenführen von Strings

	
s1 := 'hallo';

s2 := 'welt';

leerzeichen := ' '; 

s3 := s1+leerzeichen+s2; // = 'hallo welt'

s := '';                  // leerer String.

s4 := s2+s3+s2;          // 'weltwelt'

Die Funktionen Inc() und Dec():

Wenn du eine Ganzzahl (also Integer) nur um eins (1) erhöhen willst, dann kann die Methode Inc() dafür genutzt werden. Um eins runterzuzählen verwendet man Dec():

	
var

    zahl : Integer;

begin

    zahl := 1;

    Inc(zahl);

    // zahl ist nun 2

    Dec(zahl);

    Edit1.text = IntToStr(zahl); // in Edit1 steht nun "1"

end;

Und nun noch einmal der Hinweis: Der Sourcecode liegt unter GitHub als Musterlösung.
Viel Spaß ;)