Mehrere Dateien auslesen?

[gnui]

Hi, also ich möchte mit OpenDialog von mehreren Dateien das Datum auslesen und diese dann in einem Feld gespeichert haben.
Bisher habe ich es nur hinbekommen von einer Datei das Datum auszulesen.

Delphi-Quellcode:

var
  Form1: TForm1;
   fileName   : string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  fileDate   : Integer;
begin
   fileDate := FileAge(fileName);

  if fileDate > -1 then
    ShowMessage(fileName+' Datum = '+
                DateToStr(FileDateToDateTime(fileDate)));
end;

procedure TForm1.auswhlen1Click(Sender: TObject);
begin
OpenDialog1.Execute;
filename := opendialog1.FileName;
end;

ich weiß auch wie ich opendialog dazu bringe mehrer dateien auswählbar zu machen aber dann fehlts mir.

danke schonmal

[Prototypjack]

Moin,

Du kannst Multi-Selektion vom Opendialog so auslesen:

Delphi-Quellcode:

var
  I: Integer;
begin
  if dlgOpen1.execute then
  begin
    for I := 0 to dlgOpen1.Files.Count - 1 do
    begin
      MachWas(dlgOpen1.Files.Strings[I]);
    end;
  end;
end;

Grüße,
Max

[marabu]

Hallo Max,

weil Strings die default property ist, kannst du auch so zugreifen:

Delphi-Quellcode:

begin
  with OpenDialog do
  begin
    Options := Options + [ofAllowMultiSelect];
    if Execute then
      for i := 0 to Pred(Files.Count) do
        DoProcess(Files[i]);
  end;
end;

Grüße vom marabu

[Prototypjack]

Moin,

Ah, sehr interessant. Fiel mir bis jetzt noch gar nicht auf.

Danke für den Hinweis ;)

Grüße,
Max

[gnui]

Delphi-Quellcode:

procedure TForm1.auswhlen1Click(Sender: TObject);
var i:integer;
begin
OpenDialog1.Execute;

for i := 1 to 10 do
  begin
        filename[i] := opendialog1.Files.Strings[i];
        auslesen(Filename[i],i);
  end;
end;

das habe ich jetzt, im einzelschrittmodus seh ich auch wie er verschiedene dateien anwählt, aber sobal er die 2. hat sagt er "listindex überschreitet maximum (2)" oder so ähnlich.
wo liegt mein fehler?

[marabu]

Files ist eine StringList - deren Items werden von 0 bis Pred(Count) indiziert ...

[gnui]

Delphi-Quellcode:

for i := 0 to Pred(Files.Count) do
  begin
        filename[i] := opendialog1.Files.Strings[i];
        auslesen(Filename[i],i);
  end;

bei dem sagt er mir aber dass "files" ein undefinierter bezeichner ist, sorry ich kenn mich da nicht so aus, ich glaub das ist was ganz dummes was ich hier falsch mache.

[gnui]

ah ich habs, vor das files musste ja noch ein "opendialog1."
jetzt klappt es, ich dank euch allen für die super hilfe :-D

[gnui]

sorry wenn ich hier wieder was neues schreibe aber ganz 100%ig geht es noch nocht, zwar zeigt er nun alles exakt an aber wenn ich das programm beenden will gibt es eine fehlermeldung:

"Im Projekt Projekt2.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: ' Zugriffsverletzung bei Adresse 00403E46 in Modul 'Projekt2.exe'. Lesen von Adresse 3682943B'. Prozess wurde angehalten. Mit einzelne Anweisung oder Start fortsetzen."

mh ich denke irgendwie hat er ein Problem mit den Zugriffsrechten oder so, was ich da herauslesen kann.

hier mein jetziger kompletter quellcode:

Delphi-Quellcode:

var
  Form1: TForm1;
   fileName   :array[1..10] of string;
   fileDate   :array[1..10] of Integer;
implementation

{$R *.dfm}
procedure auslesen(i:integer);
begin
fileDate[i] := FileAge(fileName[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;
begin
  for i := 0 to Pred(opendialog1.Files.Count) do
  begin
  if fileDate[i] > -1 then
    memo1.lines.add(fileName[i]+' last modified date = '+
                DateToStr(FileDateToDateTime(fileDate[i])));
  end;
end;

procedure TForm1.auswhlen1Click(Sender: TObject);
var i:integer;
begin
OpenDialog1.Execute;

for i := 0 to Pred(opendialog1.Files.Count) do
  begin
        filename[i] := opendialog1.Files.Strings[i];
        auslesen(i);
  end;
end;

[DeddyH]

Deklarier die Arrays mal um, statt von Index 1 bis 10 auf Index 0 bis 9.

[marabu]

Besser du verwendest ein dynamisches Array. Du kannst dann auch mal weniger oder mehr als 10 Dateien auswählen und die Länge deines Arrays einfach anpassen.

Delphi-Quellcode:

var
  FileNames: array of string;

procedure TDemoForm.FileSelectItemClick(Sender: TObject);
var 
  i: Integer;
begin
  if OpenDialog.Execute then
  begin
    SetLength(FileNames, OpenDialog.Files.Count);
    for i := Low(FileNames) to High(FileNames) do
      FileNames[i] := OpenDialog.Files[i];
  end;
end;

[DeddyH]

Das ist natürlich der Königsweg neben einer StringListe.

[gnui]

danke nur nun kommt die selbe nachricht schon beim klick auf den button zur ausgabe und ausgeben tut er gar nichts mehr.

Delphi-Quellcode:

var
    Form1: TForm1;
   fileNames   :array of string;
   fileDate   :array of Integer;
implementation

{$R *.dfm}
procedure auslesen(i:integer);
begin
fileDate[i] := FileAge(fileNames[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;
begin
  for i := Low(FileNames) to High(FileNames) do
  begin
  if fileDate[i] > -1 then
    memo1.lines.add(fileNames[i]+' last modified date = '+
                DateToStr(FileDateToDateTime(fileDate[i])));
  end;
end;

procedure TForm1.auswhlen1Click(Sender: TObject);
var i:integer;
begin
OpenDialog1.Execute;
SetLength(FileNames, OpenDialog1.Files.Count);
for i := Low(FileNames) to High(FileNames) do
  begin
        filenames[i] := opendialog1.Files.Strings[i];
        auslesen(i);
  end;
end;

[DeddyH]

Delphi-Quellcode:

procedure TForm1.auswhlen1Click(Sender: TObject);
var i:integer;
begin
OpenDialog1.Execute;
SetLength(FileNames, OpenDialog1.Files.Count);
SetLength(FileDate, OpenDialog1.Files.Count); //dieses Array fehlte
for i := Low(FileNames) to High(FileNames) do
  begin
        filenames[i] := opendialog1.Files.Strings[i];
        auslesen(i);
  end;
end;

[mkinzler]

Das wäre aber mit einer Stringliste nicht passiert :zwinker:

[gnui]

achja mensch glatt vergessen. ok jetzt klappt es. vielen dank für eure hilfe und die viele geduld. :-D