Hallo,
ich möchte für eine Import-FUnktion aus einer Excel-Datei ein paar Felder auslesen.
Bei einigen Feldern möchte ich nicht nur Strings einlesen, sondern auch integer-Werte oder Datumswerte. Folgendes habe ich für die Kundennummer(Integer-Wert) gemacht:
Delphi-Quellcode:
Kunde := TKunde.Erzeugen;
try
Kunde.KundenNummer := Integer(Excel.Cells[Zeile, Spalte].Value);
except on E:
Exception do
Excel.Cell[Zeile, Spalte].Interior.Color := clRed;
end;
Steht im Feld für die Kundennummer kein gültiger Integerwert, sollte beim Typecast doch eine
Exception geworfen werden, wodurch das Feld markiert werden soll. Aber in den "except on E:
Exception..." - Bereich kommt das Programm erst gar nicht. Stattdessen wird folgender Fehler geworfen "...raised
Exception class EVariantTypeCastError with message 'Could not convert variant of type (OleStr) into type (Boolean)'"
Wo liegt da mein Fehler?
Danke schonmal