Funktion erweitern

[DeddyH]

procedure TForm1.scan(path: string; parent: TTreeNode;Maske:String;DateiendungAnzeigen:Boolean=true); So sollte es aber auch funktionieren, es sei denn, Du hast woanders noch eine gleichnamige Routine und beim Aufruf lässt sich nicht eindeutig zuordnen, welche gemeint ist.

[Muellermilchtrinker]

Hier mal die komplette Unit:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    TreeView1: TTreeView;
    procedure Button1Click(Sender: TObject);
    procedure scan(path: string; parent: TTreeNode = nil;Maske:String;DateiendungAnzeigen:Boolean=true); //hier kommt der Error
//[DCC Fehler] Unit1.pas(15): E2238 Für 'Maske' ist ein Vorgabewert erforderlich
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.scan(path: string; parent: TTreeNode = nil;Maske:String;DateiendungAnzeigen:Boolean=true); //hier kommt auch der Error
//[DCC Fehler] Unit1.pas(53): E2238 Für 'Maske' ist ein Vorgabewert erforderlich
var SR: TSearchRec;
  s:string;
  tmparray: array of  string;
begin
  path := IncludeTrailingPathDelimiter(path);
  SetLength(tmparray,0);
  if FindFirst(path + '*', faAnyFile, SR) = 0 then
    try
      repeat
        if (SR.Name <> '.') and (SR.Name <> '..') then
          if SR.Attr and faDirectory = 0 then
          begin
            //TreeView1.Items.AddChild(parent, SR.Name);
            s := SR.Name;
            if not DateiendungAnzeigen then
            s := ChangeFileExt(s, '');
            TreeView1.Items.AddChild(parent, S);
          end
          else
            scan(path + SR.Name, TreeView1.Items.AddChild(parent, SR.Name),Maske,DateiendungAnzeigen);
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
scan(Edit1.Text,TreeView1.Items.Item[0],'*.txt',false);
end;

end.

[DeddyH]

Lass die "nil"-Zuweisung davor weg. Sobald ein Default-Parameter definiert ist, müssen alle folgenden auch Default-Werte aufweisen.

[himitsu]

Oder einfach diesen Parameter nach hinten verlagern.

Bei Verwendung einer Maske wird es schwieriger,
denn die Verzeichnisse dürfen ja nicht über die Maskte gesucht werden.
Also muß man entweder selber den Dateinamen mit der Maske vergleichen oder man sucht in zwei Schritten.

Delphi-Quellcode:

procedure TForm1.scan(path: string; Maske:String;DateiendungAnzeigen:Boolean=true;parent:TTreeNode=nil);
var SR: TSearchRec;
  s:string;
begin
  path := IncludeTrailingPathDelimiter(path);
  if FindFirst(path + '*', faAnyFile, SR) = 0 then
    try
      repeat
        if (SR.Name <> '.') and (SR.Name <> '..') 
            and (SR.Attr and faDirectory <> 0) then
          scan(path + SR.Name, Maske, DateiendungAnzeigen,
            TreeView1.Items.AddChild(parent, SR.Name));
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  if FindFirst(path + Maske, faAnyFile, SR) = 0 then
    try
      repeat
        if SR.Attr and faDirectory = 0 then
        begin
          s := SR.Name;
          if not DateiendungAnzeigen then
            s := ChangeFileExt(s, '');
          TreeView1.Items.AddChild(parent, S);
        end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
end;

[Muellermilchtrinker]

Hab das nil weggelassen und hat geklappt. Aber leider klappt der Filter immer noch nicht. Bei den Unterordnern klappt die Maske nicht mehr.

[himitsu]

Maske: siehe meine letzer editierter Beitrag.

[Muellermilchtrinker]

Hat funktioniert. Hat aber jemand noch ne Idee wie ich den Pfad wieder bekomme???
Hab des so gemacht:
Dateipfad := Hauptpfad + TreeView1.Selected.Text Aber das klappt ja bei den Unterordnern nicht mehr. Jemand ne Idee???

[himitsu]

Entweder su speicherst dir den kompletten Pfad in den Node.Data

oder du setzt dir den Pfad zusammen.
in etwa so:

Delphi-Quellcode:

Dateipfad := ''; 
Node := TreeView1.Selected;
while Assigned(Node) do
begin
  Dateipfad := Node.Text + '\' + Dateipfad;
  Node := Node.Parent;
end;
Dateipfad := IncludeTrailingPathDelimiter(Hauptpfad)
  + ExcludeTrailingPathDelimiter(Dateipfad);