Fehler: Falscher Variablentyp

[schierl]

Ok, ein Problem gelöst ein anderes damit eingetreten .
Ich habe das ganze jetzt noch mal erweitert.

Code:

for j := 0 to q_crack_bei_km.FieldCount - 1 do begin
  if q_crack_bei_km.FieldList[j].DataType=ftstring then
    ExcelWorksheet1.Cells.Item[i,j+1].Value := q_crack_bei_km.FieldList[j].DisplayText
  else
    ExcelWorksheet1.Cells.Item[i,j+1].Value := q_crack_bei_km[q_crack_bei_km.FieldList[j].DisplayName];
end;