Hi,
Ich habe folgende(s) Problem(e): Und zwar habe ich mehrere ComboBoxen. Wählt man in der ersten einen Eintrag aus sollen sich die möglichen Einträge der anderen (ComboBox.Items) ändern. Die Anzahl der möglichen Einträge für die zweite ComboBox ist je nach Auswahl in der ersten unterschiedlich. Alle möglichen Einträge für die jeweilige Auswahl stehen in einem Array.
Ich habe mir gedacht das ich das ganze in ein einziges grosses zweidimensionales Array packe. Da jedoch die Zweite Arrayebene für jeden Index unterschiedlich ist habe ich das folgendermassen gelöst:
Delphi-Quellcode:
const
Nr1: array [1..2] of string = ('Blah','Blubb');
Nr2: array [1..5] of string = ('Alpha','Beta', 'Gamma', 'Delta', 'epsilon');
MainArr: array [1..2] of Pointer = (@Nr1, @Nr2);
Wenn sich nun die Auswahl in der ComboBox ändert mache ich folgendes:
Delphi-Quellcode:
procedure TfrmMain.cboMainChange(Sender: TObject);
var x,PMain: integer;
tmpArr: Array of string;
begin
PMain:=cboMain.ItemIndex;
cboValue1.Clear;
tmpArr:=MainArr[PMain];
for x:=0 to high(tmpArr) do
begin
cboValue1.Items.Add(tmpArr[x]);
end;
end;
Das Problem ist jedoch das mein Programm sich aufhängt sobald die Auswahl in der ersten ComboBox geändert wird
Es kommt keine Fehlermeldung oder dergleichen... Das Programm hängt sich einfach nur auf und reagiert nicht. (nach 5 Minuten hab ichs dann gestoppt)
Hat jemand eine Idee wie man:
a) Verhindert das sich das Prog dabei aufhängt?
b) evtl. das mit den redundaten Arrays (Nr1, Nr2) besser lösen könnte?
Besten Dank schonmal im vorraus.