hi jungs..
ich habe hier ein problem.. was zimlich komisch erscheint
also zuerst..
ich lade meine combobox items aus einer
xml datei
AddUnit.pas
Delphi-Quellcode:
xmldoc := CoDOMDocument40.Create;
xmldoc.setProperty('NewParser', true);
xmldoc.load(MainForm.fAppPath + 'settings.xml');
box := xmldoc.documentElement.selectNodes('box');
for i:=0 to box.length - 1 do begin
ComboBox3.Items.Add(box.item[i].selectSingleNode('name').text);
end;
Wenn ich nun den Eintrag gespeichert habe, und den Eintrag editieren möchte überweise ich die elemente Modal
MainUnit.pas
Delphi-Quellcode:
curNode := xmlDoc.documentElement.selectSingleNode('/movies_db/mov[id="'+AppsList.Selected.Caption+'"]');
with EditingForm do begin
Edit1.Text := curNode.selectSingleNode('name').text;
ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(curNode.selectSingleNode('mediatyp').text);
Edit2.Text := curNode.selectSingleNode('date').text;
ComboBox2.ItemIndex := ComboBox2.Items.IndexOf(curNode.selectSingleNode('language').text);
Edit5.Text := curNode.selectSingleNode('cds').text;
ComboBox3.ItemIndex := ComboBox3.Items.IndexOf(curNode.selectSingleNode('box').text);
CheckBox1.Checked := StrToBool(curNode.selectSingleNode('need').text);
CheckBox2.Checked := StrToBool(curNode.selectSingleNode('borrowed').text);
Edit3.Text := curNode.selectSingleNode('borrowedto').text;
Memo2.Text := curNode.selectSingleNode('comment').text;
ShowModal;
end;
Diese Daten werden übertragen, jedoch werden die ComboBoxen nicht gefühlt, erst wenn ich es das 2te mal versuche..
EditUnit.pas
Delphi-Quellcode:
xmldoc := CoDOMDocument40.Create;
xmldoc.setProperty('NewParser', true);
xmldoc.load(MainForm.fAppPath + 'settings.xml');
box := xmldoc.documentElement.selectNodes('box');
for i:=0 to box.length - 1 do begin
ComboBox3.Items.Add(box.item[i].selectSingleNode('name').text);
end;