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:

var
  Form1: TForm1;

implementation

{$R *.dfm}
var i: Integer;
const rasse: array[1..75] of string=('Abessinier', 'Ägyptische Mau','American Curl','Amerikanische Drahthaarkatze',
                                     'Amerikanisch Kurzhaar','Amerikanische Luchskatze','Anatolische Katze','Asian',
                                     'Australian Mist','Balinesen','Bengalkatzen','Bombay','Brasilianische Kurzhaar',
                                     'British Kurzhaar','British Langhaar','Burma','Burmilla','California Spangled',
                                     'Ceylon','Chantilly / Tiffany', 'Kartäuser', 'Chausie','Colorpoint','Conish Rex',
                                     'Kymrische Katze','Deutsch Langhaar','Devon Rex','Europäisch Kurzhaar','Exotisch Kurzhaar','Foreign White',
                                     'German Rex','Hauskatze','Heilige Birma','Japanische Stummelschwanzkatze','Javanese / Mandarin',
                                     'Kanaankatze','Karelisch Bobtail','Korat','Kurilen Bobtail','La Perm','Maine Coon',
                                     'Mandalay','Manx','Munchkin','Nebelung','Neva Masquarade','Norwegische Waldkatze',
                                     'Oricat','Orientalisch Kurzhaar','Orientalisch Langhaar','Perser','Pixiebob','Rage Muffin',
                                     'Ragdoll','Rex-Fold (Pudelkatze)','Russisch Blau','Savannah Cat','Schottische Faltohrkatze Langhaar',
                                     'Schottische Faltohrkatze','Scottish Straight','Selkrik Rex','Siam','Sibirische Waldkatze','Singapura',
                                     'Schneeschuhkatze','Sokoke','Somali','Sphynx','Thai','Tibeter','Thiffanie','Tonkanese',
                                     'Türkisch Angora','Türkisch Van','York');

procedure TForm1.cmb_rasseChange(Sender: TObject);
begin

  if cmb_rasse.ItemIndex = 0 then
      pan_fife.caption:='';
      pan_herkunft.caption:='';
      pan_zuchtgeschichte.caption:='';
      pan_koerper.caption:='';
      pan_kopf.Caption:='';
      pan_ohren.caption:='';
      pan_nase.caption:='';
      pan_augen.caption:='';
      pan_beine.Caption:='';
      pan_pfoten.caption:='';
      pan_schwanz.caption:='';
      pan_farbe.caption:='';
      pan_fell.caption:='';
      pan_fehler.caption:='';
      pan_verhalten.caption:='';

  if cmb_rasse.ItemIndex = 1 then
      pan_fife.caption:='';
      pan_herkunft.caption:='';
      pan_zuchtgeschichte.caption:='asdfasdfasdfa';
      pan_koerper.caption:='';
      pan_kopf.Caption:='';
      pan_ohren.caption:='';
      pan_nase.caption:='';
      pan_augen.caption:='';
      pan_beine.Caption:='';
      pan_pfoten.caption:='';
      pan_schwanz.caption:='';
      pan_farbe.caption:='';
      pan_fell.caption:='';
      pan_fehler.caption:='';
      pan_verhalten.caption:='';

  if cmb_rasse.ItemIndex = 2 then
      pan_fife.caption:='';
      pan_herkunft.caption:='';
      pan_zuchtgeschichte.caption:='';
      pan_koerper.caption:='';
      pan_kopf.Caption:='';
      pan_ohren.caption:='';
      pan_nase.caption:='';
      pan_augen.caption:='';
      pan_beine.Caption:='';
      pan_pfoten.caption:='';
      pan_schwanz.caption:='';
      pan_farbe.caption:='';
      pan_fell.caption:='';
      pan_fehler.caption:='';
      pan_verhalten.caption:='';

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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

case cmb_rasse.ItemIndex of
  0: begin
      pan_fife.caption:=''; 
      pan_herkunft.caption:=''; 
      pan_zuchtgeschichte.caption:=''; 
      pan_koerper.caption:=''; 
      pan_kopf.Caption:=''; 
      pan_ohren.caption:=''; 
      pan_nase.caption:=''; 
      pan_augen.caption:=''; 
      pan_beine.Caption:=''; 
      pan_pfoten.caption:=''; 
      pan_schwanz.caption:=''; 
      pan_farbe.caption:=''; 
      pan_fell.caption:=''; 
      pan_fehler.caption:=''; 
      pan_verhalten.caption:=''; 
   end;

  1: begin
      pan_fife.caption:=''; 
      pan_herkunft.caption:=''; 
      pan_zuchtgeschichte.caption:='asdfasdfasdfa'; 
      pan_koerper.caption:=''; 
      pan_kopf.Caption:=''; 
      pan_ohren.caption:=''; 
      pan_nase.caption:=''; 
      pan_augen.caption:=''; 
      pan_beine.Caption:=''; 
      pan_pfoten.caption:=''; 
      pan_schwanz.caption:=''; 
      pan_farbe.caption:=''; 
      pan_fell.caption:=''; 
      pan_fehler.caption:=''; 
      pan_verhalten.caption:='';
  end;

// ...
end; // (case)                    

1:
2:
3:
4:

<Katze 1>|Info1|Info2|Info3|InfoX
<Katze 2>|Info1|Info2|Info3|InfoX
<Katze 3>|Info1|Info2|Info3|InfoX
...                    

1:

Stadt|Land|Fluss                    

1:
2:

 StringList.Delimiter:= '|';
 StringList.DelimitedText:= <Text>;                    

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:

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    Katzen: TStringList; // Datenspeicher
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
  var
    i: Integer;
    Zeile: TStringList;
begin
  Katzen := TStringList.Create; // Objekt anlegen
  Katzen.LoadFromFile(ExtractFilePath(Application.ExeName)+'Katzen.txt'); // aus dem ProgrammVZ laden
  Zeile := TStringList.Create;
  try
    for i := 0 to Katzen.Count-1 do begin // durch alle Zeilen der Datei laufen
      Zeile.CommaText := Katzen.Strings[i]; // Liste zerlegen
      ComboBox1.Items.Add(Zeile.Strings[0]); // Katzenrasse in die Combobox einfügen
    end;
  finally
    Zeile.Free;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Katzen.Free; // beim Programmende Objekt wieder freigeben
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
  var
    Zeile: TStringList;
begin
  ListBox1.Clear; // Listbox zur Ausgabe der Zeilen
  if (ComboBox1.ItemIndex >= 0) then begin // Index gültig?
    Zeile := TStringList.Create;
    try
      Zeile.CommaText := Katzen.Strings[ComboBox1.ItemIndex]; // Zeilen holen und zerlegen
      ListBox1.Items.Assign(Zeile); // zur Ansicht bringen
    finally
      Zeile.Free;
    end;
  end;
end;                    

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

procedure TForm1.ComboBox1Change(Sender: TObject);
  var
    Zeile: TStringList;
begin
  ListBox1.Clear; // Listbox zur Ausgabe der Zeilen
  if (ComboBox1.ItemIndex >= 0) then begin // Index gültig?
    Zeile := TStringList.Create;
    try
      Zeile.CommaText := Katzen.Strings[ComboBox1.ItemIndex]; // Zeile holen und zerlegen
      // Zeile.Strings[0] ist der Rassename
      pan_fife.caption := Zeile.Strings[1];
      pan_herkunft.caption := Zeile.Strings[2];
      // ...etc.pp.
    finally
      Zeile.Free;
    end;
  end;
end;                    

1:
2:

pan_fife.caption := Zeile.Strings[1];
pan_herkunft.caption := Zeile.Strings[2];                    

1:
2:
3:
4:

Katze 1, Deutschland, 4 Pfoten, 12 kg
Katze 2, Südafrika, 3 Pfoten, 2 kg
Katze 3, ..., ...
...                    

1:

Abessinier,"Kategorie 1",Spanien,"großer Kopf","Blaues Fell",usw.