Objekte in TreeView

[sakura]

Fange ich mal von vorne an:

Delphi-Quellcode:

    entries := TStringList.Create; 
    entries := getAllFiles(MAIN_PATH+langs[i]+'\*.*'#0);

Die erste Zeile erstell ein Speicherloch, da getAllFiles eine neue StringListe zurückliefert.

Delphi-Quellcode:

function getAllFiles(path: string): TStringList;
var
  tempResult: TStringList;
  s: string;
  i   : integer;
  stl : tstringlist;
  lastindex: integer;
begin
  tempResult := TStringList.Create;
  s := path;
  stl:=tstringlist.Create;
  lastindex := -1;
  try
/// FEHLER 1: tempResult.count ist immer NULL (0), da gerade erst erstellt
    for i := 0 to tempResult.count - 1 do
    begin
      stl.Add(GetToken(tempResult.strings[lastIndex], '.', 1));
      inc(lastIndex);
    end;
/// FOLGEFEHLER: wird immer leer sein
    tempResult.CommaText:=stl.commatext;
  finally
    stl.Free;
  end;
  result := tempResult;
end;