Aber genau das möchte ich nicht.
Dieses TBla wird generell als DTO (Daten-Transfer-Object) verwendet und in eine andere Klasse konvertiert. Ich müsste dazu Konverterier-Routine duplizieren und wenn ich Webservice-Funktionen befüttern möchte, müssten ich dann ebenfalls zwei (n) Funktionen zum Konvertieren zu einen DTO erstellen, die das identische machen.
Wenn ich es richtig verstehe soll dies gescheehen:
Delphi-Quellcode:
function Convert(const ABla: Unit1.TBla): TMeineAndereKlasse;
begin
Result := TMyAndereKlasse.Create;
// ... fülle Result mit Daten aus ABla (Typ aus Unit1)
end;
function Convert(const ABla: Unit2.TBla): TMeineAndereKlasse;
begin
Result := TMyAndereKlasse.Create;
// ... fülle Result mit Daten aus ABla (Typ aus Unit2)
end;
Ich habe keine Lösung, aber ich bewundere das Problem
