Frage zu überladenen Methoden

[Gambit]

Hallo,

ich habe folgende Methode:

transferData(const aList: TStrings; UpdatePicturePath: boolean; aQuery: TADOQuery): boolean;

diese Methode läd Bilder auf einen FTP-Server.
In Abhängigkeit von der boolschen Variable UpdatePicturePath soll zusätzlich eine Datenbank aktualisiert werden. aQuery gibt an um welche Datenbank es sich handelt.

Das funzt auch soweit. Jetzt soll die Funktion aber nicht nur für ADO-Querys funktionieren sondern auch für ZQuerys oder ganz ohne Querys(nur FTP-Transfer).
Das könnte ich ja erreichen, indem ich die Methode überlade:

einmal:
transferData(const aList: TStrings): boolean;overload dann
transferData(const aList: TStrings; aQuery: TADOQuery): boolean;overload und:
transferData(const aList: TStrings; aQuery: TZDOQuery): boolean;overload und UpdatePicturePath bräuchte ich dann nicht mehr...

Meine Frage ist, ob man dafür auch theoretisch noch ein anderes Konstrukt nehmen könnte. Vielleicht eines wo man den Parameter aQuery nur angeben muss, wenn UpdatePicturePath = true ist. Und es dann auch egal ist, obs nun eine ADOQuery oder eine ZQuery ist.
Aber sowas gibts doch wohl nicht, oder?

Gruß

Gambit

[Dax]

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.

[Gambit]

das hört sich ja erstmal ganz nachvollziehbar an.

wenn ich jetzt allerdings beispielsweise

aQuery.sql.clear schreiben möchte, meckert der Compiler verständlicherweise, dass er sql nicht kennt...

kann ich dann:

TADOQuery(aQuery).SQL.Clear; schreiben?

[sniper_w]

Nun ja. Es ist aber nachvollziehbar.
So geht das :

Delphi-Quellcode:

transferData(const aList: TStrings; UpdatePicturePath: boolean = false; aQuery: TObject = nil): boolean;
begin
  if aQuery is TADOquery then
  begin
   TADOquery(aQuery).sql....
  end
  else
  if aQuery is TZDOQuery then
  begin
   TZDOquery(aQuery).sql....
  end;
end;

[Gambit]

Jepp, Danke!

[Muetze1]

Moin!

Aber auch beachten das aQuery nun auch Nil sein kann!

MfG
Muetze1

[Gambit]

Zitat von Muetze1:

Aber auch beachten das aQuery nun auch Nil sein kann!

bedeutet?

[sniper_w]

Zugriff Verletzung.
Besser:

Delphi-Quellcode:

 if Assigned(aQuery) then
 begin
 end;

[Khabarakh]

Wenn du aQuery aber nur in den is-Blöcken benutzst, wird nil schon von is abgefangen.

[Gambit]

ja, nur in den is-Blöcken. Sollte eignetlich nix schief gehen...

Danke

Gambit