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

[p80286]

[QUOTE=Drosera;1204343]

Delphi-Quellcode:

function leseAbschnittsKeys(abschnittsName : string):TStrings;
var
    namensListe : TStringList;
    aktDir : String;
begin
    aktDir := GetCurrentDir()+'\';
     iniFile := TIniFile.Create( aktDir + 'sqdplayer.ini' );
    try
      namensListe := TStringList.Create;
       namensListe.Clear;
        leseAbschnittsKeys := iniFile.ReadSections(namensListe);
      finally               // das
        namensListe.Clear;  // und das ist doch nicht Dein Ernst?
    end;
end;

und wenn es schon eine Funktion sein muß dan vllt. so:

Delphi-Quellcode:

function leseAbschnittsKeys(abschnittsName : string):TStrings;
var
  namensListe : TStringList;
  aktDir : String;
  Myfilename : string;
begin
  aktDir := GetCurrentDir()+'\';
  MyFilename:= aktDir + 'sqdplayer.ini' ;
  namensListe := TStringList.Create;
  if fileexists(Myfilename) then begin
    iniFile := TIniFile.Create(MyFilename);
    iniFile.ReadSections(namensListe);
  end;
  result:=namensliste;
end;

Gruß
K-H