funktion soll TStringList zurückliefern

[Dax]

So macht man das

[edit]Ganz verrückte Leute (zB ich) geben keine Typen, sondern Typeninterfaces zurück, dann muss man sich um die freigabe des Speichers nicht mehr kümmern

[Sanchez]

Ja, so könnte es gehen.
Du musst halt daran denken, die zurückgegebene Stringliste in der aufrufenden Funktion dann freizugeben.
Übrigens musst du in dem Beispiel nicht die Liste durchmarschieren und alle Elemetnte addieren.
Mit TStringliste.Text kommst du an den gesamten Inhalt.

grüße, daniel

[Dax]

Und wo wir schon dabei sind, du brauchst deine Funktion gar nicht. TStringList.Delimiter und TStringList.DelimitedText können das für dich tun

[idontwantaname]

danke für den tipp, wollte es halt selber machen
ne, wusste nur nicht, das es sowas gibt

Zitat von Dax:

Ganz verrückte Leute (zB ich) geben keine Typen, sondern Typeninterfaces zurück, dann muss man sich um die freigabe des Speichers nicht mehr kümmern

und wie macht man sowas ??

[Dax]

Am besten kuckst du dir ein paar Interface-Tutorials an, an der entsprechenden DP-Sparte gibts sogar eins.

Aber ein kleines Beispiel kann ja nicht Schaden

Delphi-Quellcode:

type
  IMyType = interface
    procedure SetText(New: string);
    procedure GetText: string;
    property Text: string read GetText write SetText;
  end;

  TMyType = class(TInterfacedObject, IMyType)
  private
    fText: string;
    // Die beiden Funktionen brauche ich wohl nicht zu vervollständigen ^^
    procedure SetText(New: string);
    procedure GetText: string;
  public
    property Text: string read GetText write SetText;
  end;

function GetTextWith(Text: string): IMyType;
begin
  Result := TMyType.Create;
  Result.Text := Text;
end;

Wenn du jetzt GetTextWith in einer Funktion(z.B. MyRead) aufrufst, wird die in GetTextWith erstellte Instanz von TMyType beim verlassen der Funktion (MyRead) zerstört, weil dort der Gültigkeitsbereich des Interfaces zuende ist.

Ich weiss, das Beispiel ist ein wenig dumm gewählt und die Erklärung nicht vollständig, aber ich will dir ja nicht den Spass verderben, die Tuts zu lesen