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

[uwi1961]

JA so passt es wunderbar .... besten Dank

inzwischen hatte ich auch diese Lösung gefunden:

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 aField[z]<>NULL then DS.Fields[z].AsString := aField[z];
    else // kein Stringfeld
      DS.Fields[z].Value:=aField[z];
    end; //case
  end; // Schleife
  DS.Post;
end;

klappt auch...

Gruß Uwe