Du solltest systhematisch vorgehen, zerlege deine Aufgabe in immer kleinere Teilaufgaben, bis du diese direkt lösen kannst.
1. Du möchtest z.B. auf den ButtonClick reagieren, also wird eine Methode gebraucht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
2. Was soll hier nun im groben passieren:
- Die Schadenshöhe soll eingelesen werden.
- Der Erstattungsbetrag soll daraus ermittelt werden.
- Der Erstattungsbetrag soll ausgegeben werden.
Also erst mal für jede Teilaufgabe eine Methode entwerfen, wie diese ihre jeweilige Aufgabe löst kommt später:
Delphi-Quellcode:
type
TForm1 = class(TForm)
{...}
Button1Click(Sender: TObject);
private
function SchadenshoeheErmitteln: Double;
function ErstattungsbetragErmitteln(Schadenshoehe: Double): Double;
procedure ErstattungsbetragAusgeben(Erstattungsbetrag: Double);
end;
function TForm1.SchadenshoeheErmitteln: Double;
begin
end;
function TForm1.ErstattungsbetragErmitteln(Schadenshoehe: Double): Double;
begin
end;
procedure TForm1.ErstattungsbetragAusgeben(Erstattungsbetrag: Double);
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Schadenshoehe, Erstattungsbetrag: Double;
begin
{Die Schadenshöhe soll eingelesen werden.}
Schadenshoehe := SchadenshoeheErmitteln;
{Der Erstattungsbetrag soll daraus ermittelt werden.}
Erstattungsbetrag := ErstattungsbetragErmitteln(Schadenshoehe);
{Der Erstattungsbetrag soll ausgegeben werden.}
ErstattungsbetragAusgeben(Erstattungsbetrag);
end;
Damit bist du mit dem Hauptprogramm schon mal fertig und kannst 3 Programmierer anstellen, die sich jeweils um eine Teilaufgabe kümmern
.