Irgendwie funktioniert das leider immer noch nicht so wie es sollte
Es geht darum Datensätze aus einer
CSV-Datei zu importieren. Hierbei sollen natürlich nur die Sätze eingefügt werden, die noch nicht vorhanden sind.
Mit folgendem Code ist das Ergebnis
immer False:
Delphi-Quellcode:
while not csvdata.eof do
begin
such := dataform.Adressen.Lookup('GesamtName',csvdata.FieldbyName('GesamtName').value,'GesamtName');
if not (VarType(such) in [varNull]) then
begin
dataform.Adressen.Append;
if csvdata.FindField('Vorname') <> NIL then
dataform.AdressenVorname.value := csvdata.FieldbyName('Vorname').value;
und mit:
if (VarType(such) in [varNull]) then
dann natürlich logischerweise
immer das Gegenteil (True).
Der Wert in 'such' ist immer NULL und 'varNull' immer 1 ...
Hoffe auf eure Hilfe
Gruß mandoki