Gibt es irgendeine Möglichkeit eine private Funktion aufzurufen?

Ich müßte von TPicture die private function ReadData/WriteData aufrufen

ich kann diese funktion nicht nachbauen, da mir der Zugriff auf die variable/funktion FileFormats - verwehrt bleibt

gibt es hier irgendwelche workarounds?

private Funktionen sind ja grad privat, damit keiner von außerhalb drauf zugreifen kann

stimmt schon, aber auf private properties kann man ja (wenn auch so richtig dirty) zugreifen ... deshalb die frage, ob es auch solche workarounds für proceduren gibt?

es gibt ReadDate/WriteData auch nochmal im Protected-Abschnitt und auf diese kannst du in einer Ableitung zugreifen

Zitat von himitsu:

es gibt ReadDate/WriteData auch nochmal im Protected-Abschnitt und auf diese kannst du in einer Ableitung zugreifen

aber nur bei TGraphics und nicht bei TPicture ...

Hallo,

TPicture enthält ein property Graphic, reicht das nicht ?

TPicture ist ja nur ein Container für ein TGraphic.


Heiko

Zitat von hoika:

Hallo,

TPicture enthält ein property Graphic, reicht das nicht ?

TPicture ist ja nur ein Container für ein TGraphic.


Heiko

nein, da ich auch mitspeichern muß/soll von welchen Typ das Element ist, und dann auch wieder laden kann ...

zusammenfalten · markieren

Delphi-Quellcode:

type TMyPicture = class(TPicture)
    procedure Save;
  end;

procedure TMyPicture.Save;
  begin
    //LoadFromStream
    SaveToStream(...);
  end;



// var Picture: TPicture;

TMyPicture(Picture).Save;

[add]
wobei FGraphic ja SaveToStream/LoadFromStream ja frei zugänglich hat

Picture.Graphic.SaveToStream(...);

zusammenfalten · markieren

Delphi-Quellcode:

type TMyGraphic = class(TGraphic)
    procedure Save;
  end;

procedure TMyGraphic.Save;
  begin
    //ReadData(Stream);
    WriteData(Stream);
  end;



// var Picture: TPicture;

TMyGraphic(Picture.Graphic).Save;