Einzelnen Beitrag anzeigen

gnui

Registriert seit: 8. Jun 2007
40 Beiträge
 
#1

Mehrere Dateien auslesen?

  Alt 10. Nov 2007, 12:36
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
  Mit Zitat antworten Zitat