ich habe ne Variable Session ein einfaches Property of string.
jetzt habe ich 2 Klassen in der einen wird session angelegt, der anderen ist die nicht bekannt.
Wie kann ich diese jetzt der 2 Klasse bekannt machen ohne das ich diese über 4>5 Funktionen durchschleifen muss.
Delphi-Quellcode:
TTheMDB = class
private
FSession: string;
public
property Session: string read GetSession write SetSession;
Delphi-Quellcode:
TMovieDataList = class
private
procedure addMovieData(aJson: TJSON; QueryMode: BOOL; Session: string);
procedure fillfromJson(const aJsonString: string; QueryMode: BOOL; Session: string);
procedure FillList(aJson: TJSON; QueryMode: BOOL; Session: string);
public
constructor create(const aJsonString: string; QueryMode: BOOL; Session: string);
Delphi-Quellcode:
function TTheMDB.GetMovieInfo(MovieTitle:
string): boolean;
var
lWideFileData:
string;
begin
Result := False;
try
if GetMovieInfoString(MovieTitle, lWideFileData)
then
begin
Session := UpperCase(MidStr(MovieTitle, Length(MovieTitle) - 6, 7));
flist := TMovieDataList.create(lWideFileData, QueryMode, Session);
end;
Result := ValidData;
except
on e:
exception do
ShowMessage(e.
Message);
end;
end;
Ich möchte also Session nicht durch die ganzen Funktionen durchschleifen.
Geht das eleganter?
gruss