Niemals, Daten eines Objektes irgendwohin auslagern. Die Variablen gehören dem Objekt (wichtiger Bestandteil der
OOP). Also diese bitte als Felder anlegen.
Du musst nur zwei Felder bei TWorker anlegen:
Delphi-Quellcode:
TWorker = class(TObject)
private
FBenutzername: string;
FPasswort: string;
{...}
Nun nurnoch die
function
bei TWorker.Login aufrufen:
Delphi-Quellcode:
function TWorker.login(IN_Benutzernname, IN_Passwort: string): integer// Integer wegen dem Fehlercode, falls etwas nicht klappt
begin
FBenutzername := IN_Benutzername;
FPasswort := IN_Passowrt;
TSData.Login(FBenutzername, FPasswort);
{...}
end;
Gruß
Puke