Function, Result als stringlist?

[Tom]

Zitat von himitsu:

Delphi-Quellcode:

function bla(s: string; c: char): TStringList;
begin
  {nur wenn StringList noch nicht erstellt} Result := TStringList.Create;

Wie sollte die StringListe vorher erstellt werden können bei diesem Beispiel?

[Pseudemys Nelsoni]

danke für die gute beschreibung =). nochmal die frage, wieso gibt es überhaupt "free" wenn "freeandnil" "besser" ist?

[Tom]

Wofür mußt Du einen Zeiger auf NIL setzen, wenn dieser garantiert nicht mehr gebraucht wird (z.B. Verwendung von lokalen Variablen)?

[Luckie]

Sicher ist sicher.

[OLLI_T]

Hallo Silent!

Free ist eine Klassenmethode, die überprüft ob das Objekt gültig ist und dann den Destructor aufruft, damit der alloktierte Speicher wieder freigegeben wird. Die Funktion FreeAndNil ruft auch Free auf!

FreeAndNil kannst Du demnach auch so abbilden:

SL.Free; SL:=NIL Wie Tom schon angemerkt hat, ist das bei lokalen Variablen nicht nötig. Da reicht es Free aufzurufen.

Gruss

OLLI

[choose]

Zitat von Luckie:

procedure Foo(s: String; c: Char; var sl: TStringList);

Hallo Luckie, hallo silent,

bei diesem Aufruf könnte der unbedachte Entwickler von Foo, der lediglich die Schnittstelle bekommt, folgendes Schreiben:

Delphi-Quellcode:

procedure Foo(s: string; c: Char; var sl: TStringList);
begin
  sl:= TStringList.Create;
  //...
end;

Schließlich geht er davon aus, dass in sl ein Ergebnis zu stehen hat. In diesem Fall (da CallByReference) würde alles "fehlerfrei" funktionieren, allerdings die ürsprüngliche Referenz (erzeugt beim Klienten) verloren sein!

Es bietet sich an, die Schlüsselworte const und out zu verwenden, um deutlich zu machen, ob eine Variable oder ein Exemplar unverändert bleibt (auch wenn das nicht von Delphi überprüft wird) oder ob ein Parameter lediglich als Ergebnis dient und, im Falle eines Objekts, innerhalb der Routine erzeugt werden soll.
Der verbleibende Fall, weder const nocht out, bedeutet dann konstequenterweise, dass ein (wahrscheinlich) initialisiertes Objekt übergeben und verändert werden kann, jedoch nicht innerhalb der Routine erzeugt wird...

Delphi-Quellcode:

//:Creates and fills a new object
procedure CreateNewInstance(out AnInstance: TMyClass);
//:Uses an object but doesnt modify it
procedure ReadFromInstance(const AnInstance: TMyClass);
//:Uses and may modify an object
procedure ReadFromAndWriteToInstance(AnInstance: TMyClass);

Diese Konvention hat sich in der Praxis gut bewährt und reichte zusammen mit sprechenden Bezeichnungen oft als Schnittstellenbezeichnungen für einfache Routinen aus

Zitat von Tom:

Wofür mußt Du einen Zeiger auf NIL setzen, wenn dieser garantiert nicht mehr gebraucht wird (z.B. Verwendung von lokalen Variablen)?

@TOM: Auch wenn man selbst eine Variable nicht länger braucht, kann ein anderer das nicht ahnen... Hat er die Aufgabe, Deinen Code zu erweitern und findet er die passende Variable, könnte es sein, dass er die Freigabe übersehen hat. Ein neue eingeführter Code der Art

Delphi-Quellcode:

//signature and intent of new code
Assert(Assigned(sl));
if sl.Count>0 then
  FooBar(sl[0]);

würde ihn sofort auf seinen Fehler aufmerksam machen.

[sakura]

Spät, aber ich möchte kurz auf Luckies Lösung einsteigen:

Code:

procedure Foo(s: String; c: Char; [color=#1b00ff]var[/color] sl: TStringList);
begin
  ...;
end;

Dieses var stört mich ein wenig. Var impliziert eigentlich, daß die Prozedur den Zeiger ändern könnte. Z.B. könnte, wenn SL als nil übergeben wird, diese erstellt werden, oder ähnliches. Sollte dieses in der Prozedur nicht geschehen, dann sollte das var auch weggelassen werden. Der Inhalt der StringListe kann ja weiterhin manipuliert werden

......

[Tom]

Zitat von choose:

@TOM: Auch wenn man selbst eine Variable nicht länger braucht, kann ein anderer das nicht ahnen...

Häh? Bei lokalen Variablen kann das ein anderer nicht ahnen? Prozeduren/Funktionen/Methoden sollten doch eh auf eine Bildschirmseite passen ...

[Pseudemys Nelsoni]

danke

[OLLI_T]

Hallo Sakura!

Zitat:

Dieses var stört mich ein wenig

Das Var kann aber auch recht nüttzlich sein. So kann die Funktion das Objekt bei Bedarf initialisieren.

Delphi-Quellcode:

procedure Foo(s: String; c: Char; var sl: TStringList); 
begin 
  If SL = NIL Then SL:=TStringList.Create;
  ...
end;

Mahlzeit