Eine TStrings Element mit for-schleife durchlaufen !

[Sharky]

Hai,

Zitat von Nillen:

....Aaaber es gibt keine Methode mit der ich mir die Länge von OpenDialog.Files geben lassen kann!...

Warum denn nicht?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
begin
  if (OpenDialog1.Execute) then
  begin
    for ndx := 0 to Pred (OpenDialog1.Files.Count) do
    begin
      ShowMessage (OpenDialog1.Files[ndx]);
    end;
  end;
end;