So wie ich die Sache sehe, ist _RAdresse doch eh unitglobal bzw. CDatabase global?
Dann halt so?
Delphi-Quellcode:
function {CDatabase.}GetSearchString(const SearchFlag: TSearchFlag): string;
begin
case SearchFlag of
sfVorname:
Result := _RAdresse.Vorname;
..
end;
end;
If GetSearchString(SearchFlag) = SearchString then // Um diese Zeile geht es