Quelltext richtig sortieren, aber wie am besten?

[ChristianG]

Delphi-Quellcode:

unit Worker;


interface


  uses
   TSData,SessionData,System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Actions,
  FMX.ActnList, FMX.TabControl, FMX.StdCtrls, FMX.Layouts, FMX.Memo, Xml.xmldom,
  Xml.XMLIntf, Xml.XMLDoc, IdBaseComponent, IdComponent, StrUtils,
  IdTCPConnection, IdTCPClient, IdHTTP, FMX.Objects, FMX.Ani, System.Rtti,
  FMX.Grid, Data.DB, Datasnap.DBClient, FMX.Edit, Unit1,Unit2, FMX.ListBox,FMX.Styles;


type
 TWorker = class (TObject)
  private
    FTSData : TTSData;
  public
    constructor Create;
    destructor Destroy;override;

    function Login(const Benutzername, Password : string; var SessionID,Output : string) : integer;
  end;
implementation

{ TWorker }

constructor TWorker.Create;
begin
  FTSData := TTSData.Create;
end;

destructor TWorker.Destroy;
begin
  FreeandNIL(FTSData);
  inherited;
end;

Ich versuche die Frage näher zu erläutern:
Mein Worker soll alle rechenoperationen durchführen. Sprich die funktion TsData.login und SessionData müssen in der Funktion aufgerufen werden. Die werte aus SessionData(Benutzername, Password) sollen als constante in Worker.Login geschrieben werden. Ich weiß nur nicht genau wie ich ich es am besten machen soll.

Diese verschiedenen Units sollen für mich als Orientierungshilfe und für bugfixes nnützlich sein. Bei 2000 Zeilen verliert man einfach zu schnell den überblick. Darum will ich, dass in meiner Haupunit höchstens 5 Zeilen pro befehl stehen

Appversuch6.BTNAnmelden.click
begin
Worker.login;
Tabconrol1.ActiveTab := TabIdem5;// Provisorisches Beispiel und 100 Prozent nicht richtig. Nur zur Veranschaulichung
end;

Also so etwas wäre der Idealfall

[Puke]

Moinse,
ich hoffe ich habe die Frage einigermaßen verstanden.

1.
Sowas gibt immer Sinn. Dabei spielt die Zeilen-Anzahl keine Rolle. (Mich würde schon die Anzahl deiner eingebundenen Units, dazu verleiten paar Dinge einfach auszulagern)

2.
Zuerst einmal bietet sich als Ersatz für die "Konstante" ein Feld der Klasse an. Man muss es danach ja nicht zwangsläufig verändern. Meines Wissens nach, gibt es keine Möglichkeit eine wirkliche Konstante zur Laufzeit zu verändern.
Jetzt weiß ich allerdings nicht, was TSessionData ist. Aber vermutlich gibt es Daten per out -Parameter zurück. Also Felder einsetzen ... FERTIG

Gruß
Puke

Edit: Wer macht eigentlich dieses TsData.Login? Die Instanz der Klasse (FTSData) oder die Klasse selbst (TTSData)?

[ChristianG]

SessionData ist ein Speicher für alle Variablen. Da es schon mehr als 100 sind finde ich es sinnvoll, eine eigene Unit zu machen. Möglicherweise soll ich statt const eine Variable verwenden. Und dann gibt es noch die Frage ob ich bei SessionData eher eine Property oder eine Funktion benutzen soll.
Ich kann wirklich nicht gut erklären, darum versuche ich es mit einem Beispiel:
funktion worker.login(var Benutzernname, passwort): integer// Integer wegen dem Fehlercode, falls etwas nicht klappt
var
// Hilfsvariablen
begin
Sessiondata.login// Aus einem Edit werden Benutzername und passwort herausgelesen. Benutzername und Passwort ändern sich im worker.
TSData.login// Kommunikation mit einem Server
berechnung// Mit Daten aus dem Server/ FMX Datei
end;

Hauptunit.BtnLogin.click
begin
worker.login
end;

Das ist ein Praktisches Beispiel

[mkinzler]

[OT]Was spricht gegen die Verwendung von Codetags hier im Forum, das macht Deien Beiträge für andere leichter lesbar.

Bitte bearbeite Deine Beiträge und füge diese ein.[/OT]

[ChristianG]

Mache ich jetzt. Würde mich freuen wenn jemand einen Beispielquelltext schicken kann, welcher zeigt, wie ich die Funktion richtig zum laufen bringe. Dies ist mein erstes Größeres Projekt und deswegen habe ich keine wirkliche Ahnung wie man das so hinbekommt

[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

[ChristianG]

Vielen Dank für deine Tipps. Probiere es gleich mal aus