Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Mit OpenDialog mehrere Dateien gleichzeitig hinzufügen

    Delphi
    by Hawkeye219, 29. Apr 2006
  Das BEGIN hätte auch nur deinen alten Code korrigiert, der neue ist auf jeden Fall besser. Die erst und die letzte Zeile kannst/solltest du allerdings noch ersatzlos streichen. Die erste Zuweisung zur Variablen i wird durch die FOR-Schleife sowieso überschrieben, beim "Inc (i)" greifst du nach der FOR-Schleife auf die Schleifenvariable zu. Deren Inhalt ist aber hinter der Schleife undefiniert.
  ...
• Forum: Sonstige Fragen zu Delphi

  Re: Mit OpenDialog mehrere Dateien gleichzeitig hinzufügen

    Delphi
    by Hawkeye219, 29. Apr 2006
  Hallo danku,
  
  warum erhöhst du die Zeilenzahl des Grids bei jedem Durchlauf? Du kennst doch die Anzahl der ausgewählten Dateien und kannst somit die Zeilenzahl vor der Schleife setzen:
  
  
  // 1 Headerzeile + 1 Zeile pro ausgewählter Datei
  sgfiles.RowCount := OpenDialog1.Files.Count + 1;
  
  // Füllen des StringGrids mit den Namen der ausgewählten Dateien
  for i := 0 to OpenDialog1.Files.Count...
• Forum: Sonstige Fragen zu Delphi

  Re: Mit OpenDialog mehrere Dateien gleichzeitig hinzufügen

    Delphi
    by Hawkeye219, 28. Apr 2006
  Hallo danku,
  
  im Code von turboPASCAL (Beitrag #8) steht bereits die Lösung deines Problems. Bei mehreren ausgewählten Dateien erfolgt der Zugriff nicht über OpenDialog.FileName sondern über das Array OpenDialog.Files.
  
  In deinem Beispiel sieht das dann so aus:
  
  
  for i := 0 to OpenDialog1.Files.Count - 1 do
  sgfiles.cells:= OpenDialog1.Files;