Quelltext richtig sortieren, aber wie am besten?

[Puke]

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