Delphi-Quellcode:
for i:=0 to CheckGroup1.Items.Count-1 do
begin
if CheckGroup1.Checked[i] then
begin
case i of
0: Values[i]:=Label6.Caption;
1:
begin
Values[i-1]:=Label6.Caption;
Values[i]:=Label7.Caption;
end;
2: for j:=0 to CheckGroup2.Items.Count-1 do if CheckGroup2.Checked[j] then Values[j+i]:=CheckGroup2.Items.Names[j];
3: Values[i+CheckGroup2.Items.Count-1]:=Edit2.Text;
4: Values[i+CheckGroup2.Items.Count-1]:=Edit3.Text;
5: Values[i+CheckGroup2.Items.Count-1]:=Edit4.Text;
end;
end;
end;
Ich hab hier nur gerade das CheckGroup Bsp rausgeschnitten. Aber das gleiche Problem gibts mit ListBoxen
Beide (ListBox.Items.Names[] und CheckGroup.Items.Names[]) liefern mir einen leeren String. Values[] ist dyn. globales Array. Tut allerdings nichts zur Sache. Habe mir das Values-Array im Memo ausgeben lassen. Wird nichts angezeigt an den stellen, wo halt die besagten Eigescnhaften angesprochen werden. Habe ich irgendetwas grundlegendes übersehen?
Programm lässt sich auch wunderbar kompilieren.
grüße