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.