Da kommen wir der Sache doch schon näher:
Delphi-Quellcode:
var
Info: array[0..3] of String = ('Zusatzinfos zu Blumen', 'Zusatzinfos zu Wasser', 'Zusatzinfos zu Luft',
'Zusatzinfos zu Licht');
procedure TForm3.CheckListBox1Click(Sender: TObject);
begin
if CheckListBox1.ItemIndex > -1 then
begin
Memo1.Clear;
Memo1.Text := Info[CheckListBox1.ItemIndex];
end;
end;
Vorraussetzung ist, dass die Reihenfolge identisch ist. Man könnte jetzt die Zusatzinfos als Objekt an die Listbox-Eintäge hängen, aber ich glaube, das übersteigt deinen Kenntnisstand noch etwas. Vorteile aber wäre, dass man die Einträge sortieren könnte, ohne Rücksicht auf das Array mit den Daten nehmen zu müssen.
Du brauchst nicht für jeden Eintrag ein Memo.