Wer macht den Free?

[DeddyH]

Wegen genau dieser Problematik meide ich Funktionen, die Klasseninstanzen zurückgeben, welche erst innerhalb der Funktion erzeugt werden, wie der Teufel das Weihwasser. Etwas anders ist es bei Interfaces, da ist es dann eben ein TInterfacedObject, aber das muss den Aufrufer ja nicht interessieren. Außerdem schließt man somit die unnötige Verschwendung von Bits und Bytes () wie hier aus:

Delphi-Quellcode:

function TMyClass.GetNames: TStrings;
var
  List: TStringlist;
begin
  List := TStringlist.Create;
  //Liste beispielhaft befüllen
  List.Add('Heinz');
  List.Add('Hans');
  List.Add('August');
  Result := List;
end;

procedure TMyClass.VerarbeiteNames;
var
  i: integer;
begin
  for i := 0 to GetNames.Count - 1 do
    Stringverarbeitung(GetNames[i]);
end;

[bernau]

Zitat von DeddyH:

Wegen genau dieser Problematik meide ich Funktionen, die Klasseninstanzen zurückgeben, welche erst innerhalb der Funktion erzeugt werden, wie der Teufel das Weihwasser.

Die Problematik ist ja nicht das Instanzieren innerhalb einer Funktion, sondern das Freigeben.

Gegen das Instanzieren innerhalb einer Funktion spricht überhaupt nichts, wenn es im Funktionsnamen ersichtlich ist. Ich verwende öfters Funktionen, die eine Instanz erzeugen. Kleines Beispiel: Eine Stringlist ist bei mir in den meisten Fällen sortiert und lässt keine Duplikate zu. Ist normalerweise ein Dreizeiler.

Delphi-Quellcode:

sl:=TStringlist.create;
sl.sorted := True;
sl.duplicates := dupignore;

Dafür gibt es bei mir folgende Funktion (so ähnlich)

Delphi-Quellcode:

Function TStringlistSortedDupIgnore_Create;
begin
  result := TStringlist.create;
  result.sorted := True;
  result.duplicates := dupignore;
end;

Aufrufen muss ich dann nur noch

sl := TStringlistSortedDupIgnore_Create;
Aus drei Zeilen mach eine. Finde ich sehr praktisch.

[himitsu]

Zitat von bernau:

Aus drei Zeilen mach eine. Finde ich sehr praktisch.

SL := TStringlist.Create; SL.Sorted := True; SL.Duplicates := dupIgnore;

Delphi-Quellcode:

type
  TStringListHelper = class helper for TStringList
    //constructor CreateDup;
    class function CreateDup: TStringList; static;
  end;

class function TStringListHelper.CreateDup: TStringList;
begin
  Result := TStringlist.create;
  Result.Sorted := True;
  Result.Duplicates := dupIgnore;
end;

Und dann auch nur noch SL := TStringList.CreateDup; , was Dank CodeInsight auch leichter zu finden ist.

Wäre nur toll, wenn Embarcadero es nach 11 Jahren endlich mal hinbekommt, dass man mehrere Helper an eine Klasse binden kann, ohne dort krankhaft mit Vererbung arbeiten zu müssen, was oftmal garnicht möglich ist.



Ja, statt Listen geben ich auch gern dynamische Arrays zurück, was aber nur gut nutzbar ist, wenn die Liste in der Funktion gefüllt und außerhalb nicht verändert wird.

[bernau]

Zitat von himitsu:

SL := TStringlist.Create; SL.Sorted := True; SL.Duplicates := dupIgnore;

Und der Codeformatter macht daraus wieder 3 Zeilen. (OK. Ich habe deinen Smiley gesehen)

Zitat von himitsu:

Und dann auch nur noch SL := TStringList.CreateDup; , was Dank CodeInsight auch leichter zu finden ist.

Wäre nur toll, wenn Embarcadero es nach 11 Jahren endlich mal hinbekommt, dass man mehrere Helper an eine Klasse binden kann, ohne dort krankhaft mit Vererbung arbeiten zu müssen, was oftmal garnicht möglich ist.

Helper setzte ich aus dem o.g. Grund nicht ein. Wenn man mehrere Helper pro Klasse verwenden kann, dann werde ich es mir überlegen.

Die Codevervollständigung geht auch so prima. Einfach TStringlist ohne Punkt tippen und dir werden nach Ctrl-Leer alle Funktionen angezeigt.

[Uwe Raabe]

Oder du arbeitest mit Delphi Berlin und hast

Delphi-Quellcode:

    /// <summary>
    ///    This constructor creates new string list with specified Duplicates,
    ///    Sorted and CaseSensitive property values.
    /// </summary>
    constructor Create(Duplicates: TDuplicates; Sorted: Boolean; CaseSensitive: Boolean); overload;

[bernau]

Zitat von Uwe Raabe:

Oder du arbeitest mit Delphi Berlin und hast

Delphi-Quellcode:

    /// <summary>
    ///    This constructor creates new string list with specified Duplicates,
    ///    Sorted and CaseSensitive property values.
    /// </summary>
    constructor Create(Duplicates: TDuplicates; Sorted: Boolean; CaseSensitive: Boolean); overload;

In welcher Klasse steht der Constuctor? Wenn dann in der "Ableitung" von TStringlist. Oder?
Dazu müsste aber der Constructor von TStringlist auch als Overload deklariert sein. Oder?
Kurz in die RTL (Berlin) geschaut.... Tatsächlich, das Create der TStringlist ist mit overload deklariert. Insgesamt gibt es Für die Stringlist fünf verschiedene Constructoren.

Man, man. Wenn man mal 2 Tage nicht in die RTL schaut

Seit wann ist das?

[Uwe Raabe]

Zitat von bernau:

Seit wann ist das?

Seit Delphi Berlin - ob erst mit dem letzten Update kann ich nicht sagen.

[sko1]

Das mit dem überladenen Construktor vom Create hätte ich ohne Euch nie gemerkt!

Genau so das TMemo.LoadFromFile(filename,Encoding) ...

Warum zeigt die Codevervollständigung nicht an dass es überladene Versionen des Create oder LoadFromFile gibt???

Mein Berlin 10.1 Update 2 tut dies jedenfalls nicht ;-(

Ciao
Stefan

[Uwe Raabe]

Zitat von sko1:

Warum zeigt die Codevervollständigung nicht an dass es überladene Versionen des Create oder LoadFromFile gibt???

Mein Berlin 10.1 Update 2 tut dies jedenfalls nicht ;-(

Doch! Du musst nur erst die Methode auswählen. Wenn du dann die Klammer öffnest, bekommst du alle Überladungen angezeigt.