Ein Mal habe ich es mit:
Delphi-Quellcode:
7: begin
i:=0;
Excel.ActiveWorkbook.Sheets['7eme'].Select;
index:=index7[j];
while (NOT VarIsEmpty(Excel.Cells[(index+i),2].Value)) and (Excel.Cells[(index+i),2].Value<>'') do
begin
ComboBox4.Items.Add(Excel.Cells[(index+i),2].Value+' '+Excel.Cells[(index+i),3].Value);
inc(i);
end;
end;
versucht, und ein Mal mit:
Delphi-Quellcode:
7: begin
i:=0;
Excel.ActiveWorkbook.Sheets['7eme'].Select;
index:=index7[j];
while NOT VarIsEmpty(Excel.Cells[(index+i),2].Value) do
begin
ComboBox4.Items.Add(Excel.Cells[(index+i),2].Value+' '+Excel.Cells[(index+i),3].Value);
inc(i);
end;
end;
Beide Male habe ich die übliche Fehlermeldung bekommen.
Was nun wiederum neu war, ist, dass nach der Fehlermeldung folgende Zeile blau gefärbt wurde:
ComboBox4.Items.Add(Excel.Cells[(index+i),2].Value+' '+Excel.Cells[(index+i),3].Value);
Nichtsdestotrotz wurden die richtigen Items in die ComboBox eingefügt...
Was ist hier los?