TStrings/TStringlist : funktioniert aber ...

[Uwe Raabe]

Zitat von dummzeuch:

Naja, das Objekt, das da übergeben wird (OpenDialog.Files.Text), ist ja auch keine TStringList, insofern ist der Typecast sogar falsch.

Wieso? OpenDialog.Files ist zwar als TStrings deklariert, aber:

Delphi-Quellcode:

SelectedFiles := OpenDialog.Files;

...

    property Files: TStrings read GetFiles;

...

function TOpenDialog.GetFiles: TStrings;
begin
  Result := FFiles;
end;

...

constructor TOpenDialog.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FHistoryList := TStringList.Create;
  FOptions := [ofHideReadOnly, ofEnableSizing];
  FFiles := TStringList.Create;
...