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.