Compléter SelectDirectory troisième surcharge avec Delphi 10

Question

Pourquoi ne pas compiler? Cela semble simple mais je ne comprends pas ... le tableau de chaîne est-il le problème? L'erreur est:

[dcc32 Error] Unit1.pas(94): E2250 There is no overloaded version of 'SelectDirectory' that can be called with these arguments. 

Voici le code:

{ 
function SelectDirectory(const StartDirectory: string; out Directories: TArray<string>; Options: TSelectDirFileDlgOpts = []; 
    const Title: string = ''; const FolderNameLabel: string = ''; const OkButtonLabel: string = ''): Boolean; overload; 
} 

procedure TForm2.Browse1Click(Sender: TObject); 
var 
    iStartFolder: string; 
    iDirectories: Array of string; 
    iSelectedFolder: string; 
begin 
    iStartFolder := DesktopFolder; 
    if SelectDirectory(iStartFolder, iDirectories, 
    [sdHidePinnedPlaces, sdNoDereferenceLinks, sdForceShowHidden, 
    sdAllowMultiselect], 'Select Folder', 'Folder', 'Ok') then 
    ShowMessage(iDirectories[0]); 
end; 

Answer 1

Le deuxième paramètre du troisième SelectDirectory() surcharge est un paramètre out, vous devez donc fournir une variable qui est du même type que le paramètre . Vous essayez de transmettre une variable array of string où une variable System.TArray<String> est attendue, d'où l'erreur. Utilisez ceci:

procedure TForm2.Browse1Click(Sender: TObject); 
var 
    iStartFolder: string; 
    iDirectories: TArray<string>; 
    iSelectedFolder: string; 
begin 
    iStartFolder := DesktopFolder; 
    if SelectDirectory(iStartFolder, iDirectories, 
    [sdHidePinnedPlaces, sdNoDereferenceLinks, sdForceShowHidden, 
    sdAllowMultiselect], 'Select Folder', 'Folder', 'Ok') then 
    ShowMessage(iDirectories[0]); 
end; 

Bien que TArray<String> est juste un alias pour array of string, ils sont effectivement différents types lorsqu'ils sont utilisés avec out paramètres.