1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

//Record, der sich eignet um nachher die Zutaten, sowie den Anzeigewert und den
//Namen des Rezepts in die das Array rmz zu laden
Rezept1 = record
    Name: string;
    Zutat1: string;
    Zutat2: string;
    Zutat3: string;
    Zutat4: string;
    Anzwert: Integer;
  end;

//Record der für ran verwendet wird sich zur Speicherung eines Rezeptnamens
//und des Pfades zur Backanleitung eignet
Rezept2 = record
    Name: string;
    Anleitung: string;
  end;

//Konstanten zur Auswertung der Auswahl des Benutzers
const
  Kirsche='Kirsche';
  Kokos='Kokos';
  Nuss='Nuss';
  Schoko='Schokolade';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

//Überprüfung ob Checkbox1 (Kirschen) gewählt ist
if Checkbox1.Checked=true then
begin
  for i:=1 to 20 do
  //Überprüfung ob Anzeigewert 0 ist
    begin if rmz[i].Anzwert=0 then
    //Wenn 0, dann Vergleich ob Zutat1 der Rezepte in rmz-Variablen mit Auswahl
    //übereinstimmt
      begin if rmz[i].Zutat1=Kirsche
            then begin
                for k:=1 to 20 do
                  //Wenn Rezept rmz[i] Kirschen enthält: Vergleich des
                  //Rezeptnamen mit dem der ran-Variablen
                  begin if rmz[i].Name = ran[k].Name then
                  //Anzeige des Rezeptnamen aus ran[k] in der Listbox
                      Listbox1.Items.Add(ran[k].Name )
                  end;
                  //Da Rezept nun in der Liste ist: Anzeigewert wird 1
              rmz[i].Anzwert:=1;
            end;
      end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

if Checkbox1.Checked then // nie auf = true oder so vergleichen, das kann schonmal schief gehen!
begin
  for i:=1 to 20 do
  begin 
      if rmz[i].Anzwert=0 then
      //Wenn 0, dann Vergleich ob Zutat1 der Rezepte in rmz-Variablen mit Auswahl
      //übereinstimmt
      begin 
          if rmz[i].Zutat1=Kirsche then 
          begin
              ...					

1:
2:
3:
4:
5:
6:
7:
8:

const
  ANZ_REZEPT_NICHT_ANGEZEIGT = 0;
  ANZ_REZEPT_IN_LISTBOX = 1;

...

if rmz[i].Anzwert = ANZ_REZEPT_NICHT_ANGEZEIGT then
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type
  TRezeptAnzeige = (reaNichtAngezeigt, reaInListBoxAngezeigt);

  TRezept1 = record
    Name: string;
    Zutat1: string;
    Zutat2: string;
    Zutat3: string;
    Zutat4: string;
    Anzwert: TRezeptAnzeige;
  end;

...

if rmz[i].Anzwert = reaNichtAngezeigt then
...					

1:

if chkCherries.Checked then					

1:
2:

//Überprüfung ob Anzeigewert 0 ist
    begin if rmz[i].Anzwert=0 then					

1:

if (winmajorver = 5) and (winminorver = 1) then					

1:
2:
3:
4:

function IsWindowsXP: Boolean;
begin
  Result := (winmajorver = 5) and (winminorver = 1);
end;					

1:

If IsWindowsXP then					

1:
2:

// auf Null pruefen
if Variable=0 then					

1:
2:
3:
4:
5:

// Prozedur Trallala
// von: <Autor>
// geschrieben: <datum>
// ... tausende weitere sinnlose Angaben
procedure Trallala;					

1:
2:
3:

// blabla
// blubbblubb
// blabla					

1:
2:
3:
4:
5:

{ 
  blabla
  blubbblubb
  blabla
}					

1:

end; //case