Mehrere Dateien auslesen?

[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

[gnui]

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