OpenDialog Mehrfachauswahl, Filename

[Klaus01]

.. sollte so funktionieren:
ShowMessage(extractFilename(OpenDialog1.FileName)); Wenn Du allerdings mit Multiselselect arbeitetest solltest Du dir OpenDialog1.Files anschauen.

Grüße
Klaus

[Freyr77]

Zitat von Klaus01:

.. sollte so funktionieren:
ShowMessage(extractFilename(OpenDialog1.FileName)); Grüße
Klaus

Ja, Danke, damit sieht das ganze schon ordentlicher aus.
Ich wollte allerdings mehrere Dateien auf einmal anwählen und deren "Filenames" dann einzeln anzeigen lassen.

[Klaus01]

.. habe ich oben bereits ergänzt.
OpenDialog1.Files
Dies ist eine Liste mit den Dateinamen.

Grüße
Klaus

[Freyr77]

Super, Danke!

[himitsu]

Und nimm besser den TFileOpenDialog (VistaDialoge), statt dem TOpenDialog.

Emba war zwar auf die saudämliche geniale Idee gekommen den neuen Dialog intern zu verwenden, wenn man TOpenDialog verwendet und Windows diese API unterstützt/aktiviert hat,
aber ein paar neue Features wurden vergessen durchzureichen.

[Freyr77]

Irgendwie komm ich trotzdem nicht weiter.

Ich brauche dringend irgendeine Möglichkeit mehrere .dprojs auswählen und verarbeiten zu können. Ob durch Mehrfachauswahl auf einmal oder mehrere einzelne Auswahlen nacheinander.

Die ganze Prozedur mit der Auslesung und der Eintragung sieht (unfertig) so aus:

Delphi-Quellcode:

procedure TVersionNumberViewer.Button2Click(Sender: TObject);
var
  ProgrammName: string;
  iNummer, iName: integer;
  Abfrage: string;
  MaxAnzahl: integer;
begin
  MaxAnzahl := 8;
  OpenDialog1.Execute();

  // Programmname auslesen
  ProgrammName := (extractfilename(OpenDialog1.FileName));
  EditNameAuswahl.Text := (extractfilename(OpenDialog1.FileName));

  // XML-Dokument laden
  CurrentXML := NewXMLDocument;
  CurrentXML.LoadFromFile(String(OpenDialog1.FileName));
  CurrentXML.Active := True;

  // Versionsnummer auslesen
  for iNummer := 1 to MaxAnzahl do
  begin
    VersionsNummern[iNummer] := '0.0';
  end;

  // Eintragungen StringGrid
  for iNummer := 1 to MaxAnzahl do
  begin
    StringGrid1.Cells[0, 1] := ProgrammName;
    StringGrid1.Cells[1, iNummer] := inttostr(VersionsNummer);
  end;

Damit wird aber nur eins eingetragen. Weil dieses Programm aber unbedingt effizient werden muss, bräuchte ich hier dringend einen Lösungsansatz.

[uligerhardt]

Zitat von Freyr77:

Damit wird aber nur eins eingetragen.

Weil du immer noch FileName und nicht Files benutzt?

BTW: Das

Zitat von Freyr77:

Delphi-Quellcode:

OpenDialog1.Execute();
...

schreibt man besser so:

Delphi-Quellcode:

if OpenDialog1.Execute then
begin
  ...
end;