TCombobox bei onchange itemindex ändern

[LoL]

Delphi-Quellcode:

cb_language : TCombobox;
...
var d_lang : TIiniFile
begin
  if cb_language.Items.Count > 0 then
  for i := 0 to 2 do
    cb_language.Items[i] := d_lang.ReadString('Main','cb_language' + IntToStr(i),'')
  else
  for i := 0 to 2 do
    cb_language.Items.Add(d_lang.ReadString('Main','cb_language' + IntToStr(i),''));
end;

Wenn noch keine Items vorhanden sind werden alle geladen.
Wenn Items vorhanden sind sollen die mit dem richtigen Namen überschrieben werden.

[scp]

Dann tu den Wert doch einfach zwischenspeichern:

Delphi-Quellcode:

var
  cb_language_index: integer;
begin
  cb_language_index := cb_language.itemindex;
  // Dein Code...
  cb_language.itemindex := cb_language_index;
end;

[Pitch-Bull]

Delphi-Quellcode:

cb_language : TCombobox; 
... 
var d_lang : TIiniFile 
begin 
  if cb_language.Items.Count > 0 then 
  for i := 0 to 2 do 
    cb_language.Items[i] := d_lang.ReadString('Main','cb_language' + IntToStr(i),'') 
    cb_language.itemindex:=i;
  else 
  for i := 0 to 2 do 
    cb_language.Items.Add(d_lang.ReadString('Main','cb_language' + IntToStr(i),'')); 
    cb_language.itemindex:=i;
end;

????

[LoL]

Zitat von lol:

Woran liegt das und wie kann ich das verhindern oder umgehen ohne extra den itemindex zu speichern usw...

Zitat von scp:

Dann tu den Wert doch einfach zwischenspeichern:

Delphi-Quellcode:

var
  cb_language_index: integer;
begin
  cb_language_index := cb_language.itemindex;
  // Dein Code...
  cb_language.itemindex := cb_language_index;
end;

Das wollte ich ja vermeiden
Das ist zwar eine Lösung aber geht es auch anders?