Mehrere Datein mit einem ÖffnenDialog

[Inventio]

Hallo ihr,
ich versuche gerade mit einem TOpenDialog mehrere Datein einzulesen. D.h., dass der User im Dialogfenster mehrere Datein markieren kann, um diese dann in das Programm einzubinden. Wie kann ich das realisieren ?
Normalerweise fange ich ja über OpenDialog.Filename den Pfad der Datei ab, kann man das also auch iwi mit mehreren Datein machen ?

[Komoluna]

Hallo Inventio

Einfach Opendialog1.Files benutzten (TStrings) anstatt von Opendialog1.Filename (string)

LG Komoluna

[theo]

Zuerst noch bei den Options ofAllowMultiSelect dazunehmen.

[Inventio]

Danke! Ich werde es morgen mal ausprobieren!

Lg Inventio

[Inventio]

Hey ihr,
habe das ganze jetzt ausprobiert und es erscheint mir auch richtig, jedoch bekomme ich einen SIGSEGV error, wenn ich datein einbinden möchte.
Was ich genau machen will. In ein Array of String (DateiName) die dateipfade speichern.
So sieht das ganze bei mir aus:

Code: Alles auswählen

 
  OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
  if OpenDialog1.Execute then
  begin
      for u := 0 to OpenDialog1.Files.Count - 1 do
      begin
          DateiName[u] := OpenDialog1.Files.Strings[u];
      end;
  end;
 

Wo ist mein Fehler? Für mich scheint der code richtig.

Mfg Inventio

[theo]

Was ich genau machen will. In ein Array of String (DateiName) die dateipfade speichern.

Nimm einfach eine TStringList und benutze Assign. Man muss das Rad nicht immer neu erfinden.

[Inventio]

Was ich genau machen will. In ein Array of String (DateiName) die dateipfade speichern.

Nimm einfach eine TStringList und benutze Assign. Man muss das Rad nicht immer neu erfinden.

Hast du da ein kleines Code-Beispiel für mich ? Hab mit sowas leider noch nie gearbeitet...


LG

[theo]

Einfach suchen. Z.B. hier http://www.delphibasics.co.uk/RTL.asp?Name=TStringList

[m.fuchs]

habe das ganze jetzt ausprobiert und es erscheint mir auch richtig, jedoch bekomme ich einen SIGSEGV error, wenn ich datein einbinden möchte.

Da kann es hilfreich sein, sich mit F7 und F8 schrittweise durch den relevanten Code zu hangeln. Dann weiß man nämlich auch an welcher Stelle der Fehler kommt.

Code: Alles auswählen

 
  OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
  if OpenDialog1.Execute then
  begin
      for u := 0 to OpenDialog1.Files.Count - 1 do
      begin
          DateiName[u] := OpenDialog1.Files.Strings[u];
      end;
  end;
 

Wie gesagt, probier es mit schrittweisen Debugging. Ein Ansatzpunkt wäre das Array DateiName. Ist es überhaupt groß genug?

[Inventio]

habe das ganze jetzt ausprobiert und es erscheint mir auch richtig, jedoch bekomme ich einen SIGSEGV error, wenn ich datein einbinden möchte.

Da kann es hilfreich sein, sich mit F7 und F8 schrittweise durch den relevanten Code zu hangeln. Dann weiß man nämlich auch an welcher Stelle der Fehler kommt.

Code: Alles auswählen

 
  OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
  if OpenDialog1.Execute then
  begin
      for u := 0 to OpenDialog1.Files.Count - 1 do
      begin
          DateiName[u] := OpenDialog1.Files.Strings[u];
      end;
  end;
 

Wie gesagt, probier es mit schrittweisen Debugging. Ein Ansatzpunkt wäre das Array DateiName. Ist es überhaupt groß genug?

Es ist ein dynamisches Array of String

[m.fuchs]

[...]ein Ansatzpunkt wäre das Array DateiName. Ist es überhaupt groß genug?

Es ist ein dynamisches Array of String

Das ist keine Antwort auf meine Frage.

[Inventio]

Dann habe ich deine Frage nicht verstanden....mit "groß genug" habe ich die länge des Arrays assoziiert

[Socke]

Dann habe ich deine Frage nicht verstanden....mit "groß genug" habe ich die länge des Arrays assoziiert

Dann hast du die Frage richtig verstanden.

Ein statisches Array kann seine Größe nicht ändern.
Ein dynamisches Array kann seine Größe ändern, muss dies aber nicht tun. Insbesondere ändert es sich nicht selbst.

[m.fuchs]

Um es noch weiter zu präzisieren: Hast du irgendwo die Größe des Arrays auf einen Wert gesetzt, der garantiert nicht kleiner als die Anzahl der vom Benutzer ausgewählten Dateien ist?

Oder fehlt vielleicht einfach vor deiner For-Schleife folgende Zeile:

Code: Alles auswählen

SetLength(DateiName, OpenDialog1.Files.Count)

[Inventio]

Um es noch weiter zu präzisieren: Hast du irgendwo die Größe des Arrays auf einen Wert gesetzt, der garantiert nicht kleiner als die Anzahl der vom Benutzer ausgewählten Dateien ist?

Oder fehlt vielleicht einfach vor deiner For-Schleife folgende Zeile:

Code: Alles auswählen

SetLength(DateiName, OpenDialog1.Files.Count)

Ich habe es jetzt mit einer TStringList gelöst, das passt! Danke für eure Hilfe!
Jetzt sieht das ganze so aus:

Code: Alles auswählen

//variablen
type
  TFrage = record
    ID : Integer;
    Frage : String[255];
    Ant1  : String[255];
    Ant2  : String[255];
    Ant3  : String[255];
    Correct : String[1];
end;
 
Gesamte_Fragen = Array[1..600] of TFrage;
Fragebogen = Gesamte_Fragen;
 
var DateiName : TStringList;
      FragenKatalog: Array of Fragebogen;
 
//Code
procedure TPerformancePusher.DateiPfadeSpeichern;
var i : integer;
begin
 OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
 if OpenDialog1.Execute then
  begin
    DateiName := TStringList.Create;
    with OpenDialog1.Files do
    for i := 0 to Count - 1 do
    begin
      DateiName.Add(Strings[i]);
    end;
  end;
end;

Das funktioniert soweit auch, sodass jedes Element einem Pfad einer vom User ausgewählten Datei entspricht.
Nur jetzt bekomme ich natürlich Fehler beim Lesen der Datein. Hierbei ist zu sagen, dass ich ein Record TFrage erstellt habe, dass eine Frage mit ihren Attributen (Der Frage und ihren Antworten) speichert.
Ich habe eine Variable Datei vom Typ Gesamte_Fragen (Gesamte_Fragen = Array[1..600] of TFrage), einen Fragebogen (Fragebogen = Gesamte_Fragen; Das habe ich so gewählt, da ich das früher schon so programmiert habe und sich das leider nicht ändern lässt...) und einen Fragenkatalog (Fragenkatalog : Array of Fragebogen).
Nun möchte ich mit folgendem Code den Fragenkatalog füllen, sodass an jeder Stelle von FragenKatalog ein Fragebogen vorhanden ist. Also ist FragenKatalog[1] ein Fragebogen.
So sieht mein Code daür aus :

Code: Alles auswählen

 
//variablen
var Datei : File of Gesamte_Fragen;
 
 
//Code
procedure TPerformancePusher.DateiLaden;
var i : integer;
begin
 for i := 0 to DateiName.count -1 do
 begin
   AssignFile(Datei, DateiName[i]);
   {$I-}Reset(Datei);
   Read(Datei, Fragenkatalog[i]);
   IF IORESULT <> 0 THEN
   begin
     Showmessage('Fehler beim Lesen der Daten! Ende.');
   end;
   CloseFile(Datei);{$I+}
 end;
end; 

Jedoch bekomme ich in der Runtime des Programms dann meine programmierte Fehlermeldung, er konnte also keine Datei laden... Was mache ich falsch ?