Funktion erweitern

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