1:
2:
3:
4:
5:
6:

case Anzahl of
  <50: Rabatt := 0;
  >=50 and <100: Rabatt := 5;
  .
  .
  .                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

Type
  TRabatt = Record
    MindestmengeMenge : Integer;
    Preis : Currency;
  End;

Function RabattpreisProStueckBeiAbnahmeVon(Artikelmenge : Integer) : Currency;
Var
  i : Integer;

Begin
  for i:=0 to High (RabattPreise) do
    If RabattPreise[i].Mindestmenge <= Artikelmenge Then begin
      Result := RabattPreise[i].Preis;
      Exit;
    End;
End;

Procedure InitialisiereRabattstaffelung;
Begin
  // Anzahl und inhalt der Einträge ist beliebig, 
  // Erster Eintrag muss Einzelpreis enthalten, 
  // Einträge sind aufsteigend nach Mindestmenge sortiert.
  //
  // Die Staffelung kann auch in einer Datei / Datenbank liegen
  //
  RabattPreise[0].Mindestmenge := 1; // Einzelpreis ist immer der 1.Eintrag
  RabattPreise[0].Preis := 1.50;

  RabattPreise[1].Mindestmenge := 50; // Ab 50 Stück ...
  RabattPreise[1].Preis := 1.48;

  RabattPreise[2].Mindestmenge := 100; // Ab 100 Stück ...
  RabattPreise[2].Preis := 1.45;
  ...
End;