OpenDialog Mehrfachauswahl, Filename

[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;

[Freyr77]

Zitat von uligerhardt:

Zitat von Freyr77:

Damit wird aber nur eins eingetragen.

Weil du immer noch FileName und nicht Files benutzt?

Das mit Files hat nicht so funktioniert wie ich mir das vorgestellt hatte Er zeigt mir trotz Mehrfachselektierung nur einen Programmnamen an. Damit komm ich nicht weiter.

[uligerhardt]

Dann machst du was falsch.
Das funktioniert bei mir:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
  FileName: string;
begin
  ListBox1.Clear;
  if OpenDialog1.Execute(Handle) then
  begin
    for FileName in OpenDialog1.Files do
      ListBox1.Items.Add(FileName);
  end;
end;

[ConnorMcLeod]

Muss man dem StringGrid nicht noch vorher sagen, wieviele Rows es hat?

Delphi-Quellcode:

  
  StringGrid1.RowCount := StringGrid.FixedRows + OpenDialog1.Files.Count;
  // Eintragungen StringGrid
  for iNummer := 0 to OpenDialog1.Files.Count-1 do
  begin
    StringGrid1.Cells[0, StringGrid.FixedRows + iNummer + 1] := OpenDialog1.Files[iNummer];  //  <= !!
    StringGrid1.Cells[1, StringGrid.FixedRows + iNummer + 1] := inttostr(VersionsNummer);
  end;

[Freyr77]

Zitat von ConnorMcLeod:

Muss man dem StringGrid nicht noch vorher sagen, wieviele Rows es hat?

Delphi-Quellcode:

  
  StringGrid1.RowCount := StringGrid.FixedRows + OpenDialog1.Files.Count;
  // Eintragungen StringGrid
  for iNummer := 0 to OpenDialog1.Files.Count-1 do
  begin
    StringGrid1.Cells[0, StringGrid.FixedRows + iNummer + 1] := OpenDialog1.Files[iNummer];  //  <= !!
    StringGrid1.Cells[1, StringGrid.FixedRows + iNummer + 1] := inttostr(VersionsNummer);
  end;

Das hab ich in den Eigenschaften manuell gemacht mit den Rows. Vielen Dank, auf genau das bin ich nicht gekommen!

[Freyr77]

Nochmal gleiches Thema:

Ich habe jetzt folgende Prozedur um die XML-Datei rekursiv zu durchsuchen:

Delphi-Quellcode:

var
  i: integer;

begin
  if pParentNode.NodeName = 'VerInfo_Keys' then
  begin
    fVersionInfo := pParentNode;

  end
  else
  begin
    for i := 0 to pParentNode.ChildNodes.Count - 1 do
    begin
      GetVersionInfo(pParentNode.ChildNodes[i]);
    end;
  end;

Damit möchte ich jetzt bei Button-Klick auslesen lassen, das sieht so aus:

Delphi-Quellcode:

var
  lFileName: string;
  iZaehler: integer;

begin
  OpenDialog1.Execute();
  // InternalName = FileName


  for iZaehler := 0 to MaxAnzahl -1 do
  begin

    // XML-Dokument laden

    CurrentXML := NewXMLDocument;
    CurrentXML.LoadFromFile(String(OpenDialog1.FileName));
    CurrentXML.Active := True;

    // XML-Dokument auslesen
    GetVersionInfo(CurrentXML.DocumentElement);
    GetFileName(CurrentXML.DocumentElement);

    if fVersionInfo <> nil then
    begin

    end;

    if fFileInfo <> nil then
    begin

    end;

    // Überschriften StringGrid
    StringGrid1.Cells[0, 0] := 'Projekt';
    StringGrid1.Cells[1, 0] := 'Version';

    // Eintragungen StringGrid
    begin
      StringGrid1.Cells[0, iZaehler] := '';
      StringGrid1.Cells[1, iZaehler] := '';
    end;

    // Aktualisieren sichtbar
    Button1.Visible := True;
  end;

... funktioniert aber nicht. Mir ist auch bewusst das die Eintragungen ins StringGrid gerade leere Strings sind. Weiß einer von euch wie ich die Prozedur jetzt richtig aufrufe?

[DeddyH]

Du liest MaxAnzahl mal dieselbe Datei ein, wozu soll das gut sein?