Ich noch mal!
Für alle die vieleicht das selbe Problem haben hier meinen Lösungsansatz!
Den Codeabschnitt
Code:
ExcelWorksheet1.Cells.Item[i, 1].Value := q_crack_bei_km['Variable1'];
ExcelWorksheet1.Cells.Item[i, 2].Value := q_crack_bei_km['Variable2'];
ExcelWorksheet1.Cells.Item[i, 3].Value := q_crack_bei_km['Variable3'];
ExcelWorksheet1.Cells.Item[i, 4].Value := q_crack_bei_km['Variable4'];
ExcelWorksheet1.Cells.Item[i, 5].Value := q_crack_bei_km['Variable5'];
der in der Zeile 1 und 3 den Fehler 'Falscher Variablentyp' gebracht hat,
habe ich ersetzt durch
Code:
for j := 1 to q_crack_bei_km.FieldCount - 1 do
ExcelWorksheet1.Cells.Item[i,j].Value := q_crack_bei_km.FieldList[j].DisplayText;
Vieleicht hilft es ja jemanden!
Gruß
Johann