Verstehe jetzt nicht wie du das meinst.
Delphi-Quellcode:
TMovieDataList = class
private
FSession: string;
procedure addMovieData(aJson: TJSON; QueryMode: BOOL);
procedure fillfromJson(const aJsonString: string; QueryMode: BOOL);
procedure FillList(aJson: TJSON; QueryMode: BOOL);
public
constructor create(const aJsonString: string; QueryMode: BOOL; Session: string);
implementation
constructor TMovieDataList.Create(...)
begin
inherited Create;
FSession:= Session;
...
end;
Einmalig übergeben, in der Klasse speichern und nutzen. Geht natürlich nur, wenn es immer dieselbe Session ist.
Grüße
Dalai