Wie lang sind eure Delphi Quellen?

[David Martens]

Ich wollte mal auf das eigentliche Thema zurück.

Ich habe gerade eine Funktion vor mir, die ist über 2600 Zeilen lang.

Sieht allerdings so aus:

Delphi-Quellcode:

function TFilterZugriff.GetFilterWerte(Filter: TFilterEnum): TStringList;
begin
  case Filter of
    {$REGION 'feFilterABC :'}
    feFilterABC : begin
                    ...
                  end;
    {$ENDREGION}
    {$REGION 'feFilterXYZ :'}
    feFilterXYZ : begin
                    ...
                  end;
    {$ENDREGION}
    ...
  else
    Result := TStringList.Create;
  end;
end;

Ohne Regionen wäre es noch unübersichtlicher.

[Florian Hämmerle]

Zitat:

Zitat von David Martens (Beitrag 1084377)

Ich habe gerade eine Funktion vor mir, die ist über 2600 Zeilen lang.

Nice. Da hat man doch Freude, wenn man etwas umstellen / erweitern muss ;)

Florian

[ele]

Zitat:

Zitat von David Martens (Beitrag 1084377)

Ich wollte mal auf das eigentliche Thema zurück.

Ich habe gerade eine Funktion vor mir, die ist über 2600 Zeilen lang.

Sieht allerdings so aus:

Delphi-Quellcode:

function TFilterZugriff.GetFilterWerte(Filter: TFilterEnum): TStringList;
begin
  case Filter of
    {$REGION 'feFilterABC :'}
    feFilterABC : begin
                    ...
                  end;
    {$ENDREGION}
    {$REGION 'feFilterXYZ :'}
    feFilterXYZ : begin
                    ...
                  end;
    {$ENDREGION}
    ...
  else
    Result := TStringList.Create;
  end;
end;

Ohne Regionen wäre es noch unübersichtlicher.

Ich denke in dem Fall wäre es angebracht den Filter als Klasse zu Modellieren. Alle Filter von einem BasisFilter ableiten, dann könnte manu z.B. direkt Filter.GetFilterWerte() ausführen. Die einzelne Filter könnte man sogar je in einer eigenen Unit unterbringen.

[David Martens]

Das schöne an dem Ansatz ist ja das ich für die Filterwerte einfach :

Delphi-Quellcode:

TStrings := FFilterZugriff.FilterWerte[feFilterXYZ];

eingebe und ich die Werte des gewünschten Filters habe.

Ich unterscheide die einzelnen Filter nur noch nach dem "fe" und nicht nach der Klasse.

[ele]

Ja aber das macht die Methode unglaublich lang und unübersichtlich...

Wenn du das ganze als Klasse hättest, sähe deine Zeile einfach so aus:

Delphi-Quellcode:

MyStrings := Filter.GetFilterWerte();

oder was ich eigentlich besser fände (weil man sonst Gefahr läuft zu vergessen die Stringliste wieder freizugeben):

Delphi-Quellcode:

Filter.GetFilterWerte(MyStrings);

Ist meiner Meinung nach einfacher zu Schreiben, einfacher zu Erweitern und einfacher zu Warten. OOP lohnt sich - vorallem bei grösseren Projekten.

[Hansa]

Zeige mal die 2600 Zeilen, aber als Anhang ! Wetten, dass das innerhalb von 10 Min. übersichtlich wird ?

[EWeiss]

Hab mal nachgemessen 2,05 Zentimeter.

gruss