Mit OpenDialog mehrere Dateien gleichzeitig hinzufügen

[Hawkeye219]

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:

Delphi-Quellcode:

for i := 0 to OpenDialog1.Files.Count - 1 do           
  sgfiles.cells[0, 1 + i]:= OpenDialog1.Files[i];

Gruß Hawkeye

[danku]

jo das könnt so passen. :roll:
auf das [i] hätte ich auch kommen können... :wall:
zumal ich schon mal das dastehen hatte..

ich mach jetzt mal jetzt mal die einträge abhängig von der zeile beim einfügen :coder2:

Edit:

Delphi-Quellcode:

//Füllen der StringGrid mit Opendialog1Daten
          for i := 0 to  OpenDialog1.Files.Count - 1 do
            sgfiles.cells[0,1 + i]:= OpenDialog1.Files[i];
            if OpenDialog1.Files.Count >= sgfiles.rowcount
            then sgfiles.RowCount:=sgfiles.RowCount+1;
            end;
          end;

Natürlich musste wieder ein Extremfall passieren...

Wenn man mehrere Dateien im opendialog wählt, geht das ja,
aber so bald man dateien aus der 2.spalte im dialog auswählt
gibts probs...

Wobei ich gerade merkte das (rowcount=2) sobald mehr als

wieso?

[danku]

kann mir da einer helfen?

[Hawkeye219]

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:

Delphi-Quellcode:

// 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 - 1 do
  sgfiles.Cells[0, 1 + i] := OpenDialog1.Files[i];

PS: Pushen von Beiträgen frühestens nach 24 Stunden :wink:

//Edit: ich sehe gerade, daß ein Logikfehler in deinem Code vorliegt. Die FOR-Schleife überträgt nur alle Dateien, danach erhöhst du evtl. die Zeilenzahl im Grid um 1. Die Einrückung läßt vermuten, daß ein BEGIN fehlt. Die Zeilenzahl solltest du trotzdem vor der Schleife setzen.

Gruß Hawkeye

[danku]

es geht ohne dein "begin"

Delphi-Quellcode:

  //Füllen der StringGrid mit Opendialog1Daten
   i:=opendialog1.files.count-1;
   sgfiles.RowCount := OpenDialog1.Files.Count + 1;

   for i := 0 to  OpenDialog1.Files.Count - 1 do
   begin
   sgfiles.cells[0,1 + i]:= OpenDialog1.Files[i];
   end;
   inc(i);

[Hawkeye219]

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.

Gruß Hawkeye

[danku]

wie kann ich erreichen das die komplette stringgrid "durchcompiliert" wird und die leerzeichen gelöscht werden?

Delphi-Quellcode:

if rgmenue.ItemIndex = 0
      then begin

      PROBLEM 1

      for i:= 0 to 1000 do  //Komplett search_text in Zelle gelöscht ->beschleunigt abschnittsw. l.
            begin
            Position := 1;
            S := sgfiles.Cells[0,1];            
              for zaehlen := 0 to length(S) do //search_text abschnittsweise löschen
                begin
                //Position des Search_Text ('_')
                  Position := GetPosNumX(Search_Text, S, Position);
                //Löscht diese Stelle
                  Delete(S, Position, length(Search_Text));

                  PROBLEM 2

                  end;
              sgfiles.Cells[0,1]:= S;
              inc(a,i);
              end;

              ///// Löschen 
              for i:= 0 to 1000 do
                begin
                Position := 1;
                S := sgfiles.Cells[0,1];

                  for zaehlen := 0 to length(S) do
                    begin
                      Position := GetPosNumX(Search_Text, S, Position);
                      Delete(S, Position, length(Search_Text));

                      end;
                  sgfiles.Cells[0,1]:= S;
                  inc(a,i);
                  end;

problem1:
Es wird jeweils zuerst nur in der Zelle nach dem (Search_Text = '_') gesucht und dieser gelöscht. aber das passiert nur abschnittsweise. und nicht in der gesamten zelle komplett.

problem2:
wäre es besser eine replace-prozedur zur schreiben, um '_' durch '' zu ersetzen oder doch lieber bei meiner jetzigen variante und dann noch nach dem löschen ein leerzeichen dazuzufügen?

[turboPASCAL]

Der Thread hat den Titel:

Zitat:

Mit OpenDialog mehrere Dateien gleichzeitig hinzufügen

und deine Frage ist:

Zitat:

wie kann ich erreichen das die komplette stringgrid "durchcompiliert" wird und die leerzeichen gelöscht werden?

:gruebel:


Mach dazu bitte einen eigenen neuen Thread auf.