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:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:

tvirus = record                         //meine Vereinbarung
  latein:string[40];  
  trivial:string[20];
  art:string[10];
  laenge:extended;
  form:string[20];
  krankheit_eins:string[20];
  krankheit_zwei:string[20];
  symptom1:string[20];  //weitere sind Symptom 2, 3, bis 8
  letal_eins:integer;
  letal_zwei:integer;
  folgen:string[30];
  end;
 tfeld=array[0..200]of tvirus;
 tfile=file of tfeld;

var
  Hauptfenster: THauptfenster;
  datei:tfile;
  datensatz:tvirus;
  virus:tfeld;
  seitennummer:integer; 

procedure THauptfenster.einlesenClick(Sender: TObject); //einlesen der Daten 
var i:integer;
begin
  i:=strtoint(Label4.Caption); 
  virus[i].latein:=Hauptfenster.lateinEdit.text;
  virus[i].trivial:=Hauptfenster.trivialEdit.text;
  virus[i].art:=Hauptfenster.virobaktEdit.text;
  virus[i].laenge:=strtofloat(Hauptfenster.laengeEdit.text);
  virus[i].form:=Hauptfenster.formEdit.text;
   //usw. 
end; 
 
procedure THauptfenster.SuchenClick(Sender: TObject);   //Aufruf zum Suchen 
var wort:string;
begin
 wort:=suchEdit.text;
         if nameBox.checked=true then in_namen_suchen(wort, seitennummer, virus)
     else if krankheitBox.checked=true then in_krankheiten_suchen(wort, seitennummer,  virus)
      else if symptomeBox.checked=true then in_symptomen_suchen(wort, seitennummer, virus);
 ausgeben(seitennummer, virus);
end; 

procedure in_krankheiten_suchen(suche:string; var seite:integer; var bazillus:tfeld); //mein Versuch was zu suchen 
var pos, i:integer;
begin
 pos:=0;
 for i:=0 to high(bazillus) do
  begin
   if (suche=bazillus[i].krankheit_eins) or (suche=bazillus[i].krankheit_zwei) then
    begin
     seite:=i;
     pos:=pos+1;
    end;
   if pos=0 then Showmessage('Die Krankheit wurde noch nicht eingetragen.');
  end;
end;  

procedure THauptfenster.sortierenClick(Sender: TObject);    //Aufruf zum Sortieren  
begin
      if lateinBox.checked=true then ordnen_latein(virus)
  else if dtBox.checked=true then ordnen_name(virus)
   else if krankBox.checked=true then ordnen_krankheit(virus)
    else if langBox.checked=true then ordnen_laenge(virus);
  ausgeben(seitennummer, virus);
end;

procedure ordnen_latein(var bazillus:tfeld); //Mein Versuch zu sortieren 
var i,j:integer;
    hilfe:tfeld;
begin
 for i:=0 to (high(bazillus)-1) do
  for j:=1 to high(bazillus) do
   if bazillus[j-1].latein>bazillus[j].latein then
    begin
     hilfe[j].latein:=bazillus[j-1].latein;
     hilfe[j].trivial:=bazillus[j-1].trivial; //usw. in der Vertausche procedure 
end;					

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

for i := High(bazillus)-1 downto 0 do
  for j := 0 to i do
    if (bazillus[j].latein > bazillus[j+1].latein) then begin
      tmp := bazillus[j].latein;
      bazillus[j].latein := bazillus[j+1].latein;
      bazillus[j+1].latein := tmp;
      //... restliche Verbundelemente auch tauschen					

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

  if (bazillus[j].latein > bazillus[j+1].latein) then 
    begin
      tmp := bazillus[j];
      bazillus[j] := bazillus[j+1];
      bazillus[j+1] := tmp;
    end;					

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

for i:=(high(bazillus)-1) downto 0 do
  for j:=0 to i do
   if (bazillus[j].latein > bazillus[j+1].latein) then
    begin
     hilfe[j].latein:=bazillus[j-1].latein;
     hilfe[j].trivial:=bazillus[j-1].trivial; //usw. 
    end;					

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

 for i:=0 to high(seitennummer)-1) //Variante 1
 for i:=high(Bazillus) downto 0 //Variante 2 
 for seitennummer:=0 to high(seitennummer) //Variante3
 
 //extraschleife = Variante 4
 for a:=0 to high(Bazillus) do 
  for b:=1 to high(bazillus) do 
   begin 
    hilf[a]:=bazillus[b];
    bazillus[b]:=bazillus[a]; 
    bazillus[a]:=bazillus[b]; 
   end;					

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:

procedure THauptfenster.SuchenClick(Sender: TObject);   //SUCHEN  = Button 
var wort:string;
begin
 wort:=suchEdit.text;
         if nameBox.checked=true then in_namen_suchen(wort, seitennummer, virus)
     else if krankheitBox.checked=true then in_krankheiten_suchen(wort, seitennummer, virus)
      else if symptomeBox.checked=true then in_symptomen_suchen(wort, seitennummer, virus);
 ausgeben(seitennummer, virus);
end;

procedure in_namen_suchen(suche:string; var seite:integer; var bazillus:tfeld);
//Procedure suchen in den Namen 
var pos, i:integer;
begin
 pos:=0;
 for i:=0 to high(bazillus) do
  begin
   if (suche=bazillus[i].latein) or (suche=bazillus[i].trivial) then
    begin
     seite:=i;
     pos:=pos+1;
    end;
   if pos=0 then Showmessage('Der Name, lateinisch oder deutsch, ist noch nicht gespeichert. Bitte überprüfen Sie die Rechtschreibung!');
  end;
end;					

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

for i:=0 to high(bazillus) do
  begin
   if (suche=bazillus[i].latein) or (suche=bazillus[i].trivial) then
    begin
     seite:=i;
     pos:=pos+1;

    end;
 // Nicht hier!
  end;
 // Sondern hier !
   if pos=0 then Showmessage('Der Name, lateinisch oder deutsch, ist noch nicht gespeichert. Bitte überprüfen Sie die Rechtschreibung!');