Prozedur in einer Prozedur

[Luckie]

Genaue Fehlermeldung?

[Freyr77]

Zitat von Luckie:

Genaue Fehlermeldung?

Aussehen tut es bei mir so (beide Prozeduren natürlich oben deklariert).

Delphi-Quellcode:

procedure TVersionNumberViewer.GetFilesInDirectory(Directory: string; const Mask: string;List: TStrings;WithSubDirs, ClearList: Boolean);
procedure TVersionNumberViewer.ScanDir(const Directory: string);
var
  SR: TSearchRec;
begin
  if FindFirst(Directory + Mask, faAnyFile and not faDirectory, SR) = 0 then try
    repeat
      List.Add(Directory + SR.Name)
    until FindNext(SR) = 0;
  finally
    FindClose(SR);
  end;

  if WithSubDirs then begin
    if FindFirst(Directory + '*.*', faAnyFile, SR) = 0 then try
      repeat
        if ((SR.attr and faDirectory) = faDirectory) and
           (SR.Name = '.') and (SR.Name = '..') then
          ScanDir(Directory + SR.Name + '');
      until FindNext(SR) = 0;
    finally
      FindClose(SR);
    end;
  end;
end;

begin
  List.BeginUpdate;
  try
    if ClearList then
     List.Clear;
   if Directory = '' then Exit;
    if Directory[Length(Directory)] = '' then
      Directory := Directory + '';
    ScanDir(Directory);
  finally
    List.EndUpdate;
  end;
end;

Fehlermeldungen gibt es bei der zweiten Prozedur folgende:

';' erwartet, aber '.' gefunden
'=' erwartet, aber ')' gefunden

Außerdem erkennt er die Parameter der ersten Prozedur im Code nicht.

Er erkennt "List", "Mask" und "WithSubDirs" nicht.

[Neutral General]

In der inneren Prozedur muss der Klassenname aus dem Namen:

Delphi-Quellcode:

procedure TVersionNumberViewer.GetFilesInDirectory(Directory: string; const Mask: string;List: TStrings;WithSubDirs, ClearList: Boolean);
procedure ScanDir(const Directory: string);

...

[Freyr77]

Zitat von Neutral General:

In die innere Prozedur gehört der Klassenname nicht:

Delphi-Quellcode:

procedure TVersionNumberViewer.GetFilesInDirectory(Directory: string; const Mask: string;List: TStrings;WithSubDirs, ClearList: Boolean);
procedure ScanDir(const Directory: string);

...

Dann bekomme ich die Fehlermeldung "Ungenügende Forward-oder External-Deklaration". Oder muss ich die zweite Prozedur gar nicht deklarieren?

[Neutral General]

Argh..... der komplette Code:

Delphi-Quellcode:

procedure TVersionNumberViewer.GetFilesInDirectory(Directory: string; const Mask: string;List: TStrings;WithSubDirs, ClearList: Boolean);
procedure ScanDir(const Directory: string);
var
  SR: TSearchRec;
begin
  if FindFirst(Directory + Mask, faAnyFile and not faDirectory, SR) = 0 then try
    repeat
      List.Add(Directory + SR.Name)
    until FindNext(SR) = 0;
  finally
    FindClose(SR);
  end;

  if WithSubDirs then begin
    if FindFirst(Directory + '*.*', faAnyFile, SR) = 0 then try
      repeat
        if ((SR.attr and faDirectory) = faDirectory) and
           (SR.Name = '.') and (SR.Name = '..') then
          ScanDir(Directory + SR.Name + '');
      until FindNext(SR) = 0;
    finally
      FindClose(SR);
    end;
  end;
end;

begin
  List.BeginUpdate;
  try
    if ClearList then
     List.Clear;
   if Directory = '' then Exit;
    if Directory[Length(Directory)] = '' then
      Directory := Directory + '';
    ScanDir(Directory);
  finally
    List.EndUpdate;
  end;
end;