Element an dynamisches Array anhängen

[Willie1]

Hallo Community,

ich will an ein StringDynArray noch ein Element anhängen. Ich habe mir Folgendes überlegt:

Delphi-Quellcode:

     if ShowModal = mrOK then begin
        if SelectDirectory('als Ziel für Liga-Dateien',WideString(InitDir),AuswDir) then begin
          FootballFiles := FindFootballFiles(tmp);
          if FileExists(IncludeTrailingPathDelimiter(tmp)+ZIPNAME) then begin
            FussbList := TStringList.Create;
            for s in FootballFiles do FussbList.Add(s);
            FussbList.Add(IncludeTrailingPathDelimiter(tmp)+ZIPNAME);
            SetLength(FootballFiles, FussbList.Count);
            for i := 0 to FussbList.Count - 1 do FootballFiles[i] := FussbList[i];
            FussbList.Free;
          end;
          FileReg.CopyFiles(AuswDir, FootballFiles, true, false);

Das funktioniert. Kommt mir aber umständlich vor. Kennt eine-r eine bessere Lösung?

Gruß Willie.