D4: Query.ParamByName('').AsBlob := '' ersetzen

[Uwe Raabe]

Zitat von hoika:

ich muss ein grosses Projekt von D2007 auf D4 portieren (jaja ).

...

(Der Code soll schrittweise umgestellt werden, soll also mit D2007 und XE4 laufen.)

Nun erschreck uns doch nicht erst so...

Das kannst du auch in einen Class-Helper packen, dann kann der restliche Code so bleiben.

Delphi-Quellcode:

type
  TDAParamHelper = class helper for TDAParam
  public
    function GetAsBlob: string;
    procedure SetAsBlob(const AValue: string);
    property AsBlob: string read GetAsBlob write SetAsBlob;
  end;

function TDAParamHelper.GetAsBlob: string;
begin
  Result := Value;
end;

procedure TDAParamHelper.SetAsBlob(const AValue: string);
begin
  DataType := ftBlob;
  Value := AValue;
end;

Den Class-Helper in eine separate Unit packen, über ein IFDEF für D2007 ausblenden bzw. für XE4 einblenden, die Unit an den nötigen Stellen ans Ende der Uses-Anweisung stellen und gut isses.