Delphi-Quellcode:
transferData(const aList: TStrings; UpdatePicturePath: boolean = false; aQuery: TObject = nil): boolean;
begin
if aQuery id TADOquery then
begin
....
end
else
if aQuery is TZDOQuery then
begin
....
end;
end;
Könnte klappen
Auf jeden Fall musst du dann nur noch die Stringliste als Parameter übergeben.