Übergabe von TString-s(-List) aus Unit an eine andere (Anfängerfrage)

[Popov]

Ohne genau zu wissen was du genau willst, hier eine ungetestete Alternative, falls ich dein Code korrekt verstanden habe:

Delphi-Quellcode:

procedure TsqdForm.createMusicTabs();
var
  anzahlItems : integer;
  tabListe : TStringList;
begin
   // (leseAbschnittsKeys('musik'));
   tabListe := TStringList.Create;
   try
     leseAbschnittsKeys('musik', tabListe);
     //mach was mit den Daten
   finally
     tabListe.Free;
   end;
end;

procedure leseAbschnittsKeys(abschnittsName: string, namensListe: TStrings);
var
  aktDir : String;
begin
  aktDir := GetCurrentDir() + '\';
  //alternativ: aktDir := ExtractFilePath(ParamStr(0));
  iniFile := TIniFile.Create(aktDir + 'sqdplayer.ini' );
  try
    //soll es ReadSections oder ReadSection sein? Ich gehe vom Fehler aus und somit ReadSection, ohne s
    iniFile.ReadSection(abschnittsName, namensListe);
  finally
    iniFile.Free;
  end;
end;

Wie gesagt, nicht getestet, hier im Editfeld umgeschrieben.