Inhalt einer TStringList in ein dynamisches String Array

[HeikoAdams]

Um den Inhalt einer TStringList in ein String Array zu kopieren, reicht folgende Funktion:

Delphi-Quellcode:

type
   TStringArray = array of string;

function CopyListToArray(List: TStringList): TStringArray;
var
  sCopyArray: TStringArray;
  nCount: Integer;
begin
  SetLength(sCopyArray, List.Count);

  for nCount := Low(sCopyArray) to High(sCopyArray) do
    sCopyArray[nCount] := List.Strings[nCount];

  Result := sCopyArray;
end;

Die Definition des Typs TStringArray ist notwendig, da Delphi keine arrays als Rückgabewert einer Funktion zu akzeptieren scheint.

[mirage228]

Es sei noch anzumerken, dass, wenn man die Unit Types eingebunden hat, es bereits einen Typ TStringDynArray gibt und dann die separate Definition überflüssig wird

[Bernhard Geyer]

Und das arbeiten erst mit einer lokalen Variable bremmst du Angelegenheit nur.

Delphi-Quellcode:

function CopyListToArray(List: TStringList): TStringArray;
var
  nCount: Integer;
begin
  SetLength(result, List.Count);

  for nCount := Low(result) to High(result) do
    result[nCount] := List.Strings[nCount];
end;

[himitsu]

Zitat von Bernhard Geyer:

Und das arbeiten erst mit einer lokalen Variable bremmst du Angelegenheit nur.

Dynamische Arrays sollten ja eigentlich 'ne Referenzzählung besitzen
und das Result selber ist auch nur eine "lokale/temporäre" Variable

(Bezüglich der Exceptionbehandlung wird Result ja erst nach Funktionsende an die externe Variable übergeben)

Aber stimmt schon, wozu nocheine Variable, wo es doch eh an das Result geht.

Allerdings vermute ich hier den Einfluß von C und Co. wo mit Zuweisen des Return-Wertes die Funktion verlassen wird.

[Bernhard Geyer]

Zitat von himitsu:

Dynamische Arrays sollten ja eigentlich 'ne Referenzzählung besitzen

Wirklich? Wäre mir neu.

[HeikoAdams]

Zitat von himitsu:

Allerdings vermute ich hier den Einfluß von C und Co. wo mit Zuweisen des Return-Wertes die Funktion verlassen wird.

Nein, laut Delphi-Hilfe wird eine Funktion erst verlassen, wenn sie vollständig abgearbeitet wurde oder wenn eine Exit-Anweisung auftaucht.

[Dax]

Zitat von Bernhard Geyer:

Wirklich? Wäre mir neu.

Arrays und Strings sind referenzgezählt. Sonst müsste man die Arrays (wie auch die Strings, fwiw) explizit freigeben, was man ja nicht muss.

[Luckie]

Zitat von HeikoAdams:

Zitat von himitsu:

Allerdings vermute ich hier den Einfluß von C und Co. wo mit Zuweisen des Return-Wertes die Funktion verlassen wird.

Nein, laut Delphi-Hilfe wird eine Funktion erst verlassen, wenn sie vollständig abgearbeitet wurde oder wenn eine Exit-Anweisung auftaucht.

Ich bin mir sicher, das himitsu das weiß. Aber der Code sieht mit der lokalen Variablen nach C/C++ aus und da wird mit return die Routine verlassen.

[himitsu]

Zitat von Bernhard Geyer:

Zitat von himitsu:

Dynamische Arrays sollten ja eigentlich 'ne Referenzzählung besitzen

Wirklich? Wäre mir neu.

siehe FType.pas Abschnit "Compiler Intern Data-Types"

Delphi-Quellcode:

Const DynArrayInfo  = SizeOf(Header);  // Herader = RefCount + ElementCount
  MaxLengthOfMyType = (High(Integer) - DynArrayInfo) div SizeOf(TMyType);

Type TDynArrayInfo = packed Record
    RefCount:     LongInt;
    ElementCount: LongInt;
    Data:         packed Array[0..MaxLengthOfMyType-1] of TMyType;
  End;

und wie bekannt ist, zeigt der interne Pointer auf Data ...

PS: AnsiString und UnicodeString sind auch nur ein dynamisches Array (allerdings mit noch einem zusätzlichen 0#-Data-Feld am Ende) und WideString ist ein OLEStr

[add]

Zitat:

Aber der Code sieht mit der lokalen Variablen nach C/C++ aus und da wird mit return die Routine verlassen.

genau das meinte ich ... in Delphi ist das ja nicht so, aber viele übersetzen C-Code halt direkt und mit der nun "unnötigen" Temp-Variable

[Bernhard Geyer]

Zitat von Dax:

Arrays und Strings sind referenzgezählt. Sonst müsste man die Arrays (wie auch die Strings, fwiw) explizit freigeben, was man ja nicht muss.

Und was ist mit Widestrings (im Gegensatz zu String/UnicodeString)? Diese muss man nicht freigeben, sind aber nicht referenzgezählt