Fehler: "Ungültiger Varianttyp" - nur unter Windows 2000

[shmia]

Jetzt aber:

Delphi-Quellcode:

procedure PasteCurrent(DS: TDataset); 
var z : Integer; 
begin 
  DS.Append; 
  for z:=0 to VarArrayHighBound(aField,1) do 
  begin 
    case DS.fields[z].DataType of 
      ftString, ftFixedChar, ftWideString: 
        if varType(aField[z]) = varNull then
          DS.fields[z].Clear 
        else
          DS.fields[z].AsString := aField[z]; 
    else 
      DS.fields[z].Value:=aField[z]; 
    end;  
  end; 
  DS.Post; 
end;