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

[uwi1961]

Hallo Shmia,

habe die Procedur leicht abgewandelt... so funktioniert es jetzt auch unter Windows 2000.
bei: for z:=0 to VarArrayHighBound(aField,1)-1 hat er das letzte Feld vergessen
einmal "end" hat gefehlt...

Nochmals vielen Dank und liebe Grüße
Uwe

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:
        DS.fields[z].AsString := aField[z];
    else
      DS.fields[z].Value:=aField[z];
    end;  
  end;
  DS.Post;
end;