Problem mit Search procedure

[Darksniper]

Hi all.

Kann mir jemand hierbei helfen.
Immer wenn ich mit dieser procedure suche dann tritt eine Exeption auf.

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt TXT.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 00456CB2 in Modul 'TXT.exe'.
Lesen von Adresse 00000000' aufgetreten.

Hier mal der Code:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Memo1: TMemo;
    Splitter1: TSplitter;
    Datei: TMenuItem;
    Aktualisieren1: TMenuItem;
    ListBox1: TListBox;
    procedure Aktualisieren1Click(Sender: TObject);
  private
    { Private-Deklarationen }

  public
   mompath:string;
   files:TStrings;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure FindAllFiles(var FileList: TStrings; RootFolder: string; Mask: string =
  '*.*'; Recurse: Boolean = True);

var
  SR: TSearchRec;
begin
  RootFolder := IncludeTrailingPathDelimiter(RootFolder);

  if Recurse then
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
    try
      repeat
        if SR.Attr and faDirectory = faDirectory then
          if (SR.Name <> '.') and (SR.Name <> '..') then
            FindAllFiles(FileList, RootFolder + SR.Name, Mask, Recurse);
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  if FindFirst(RootFolder + Mask, faAnyFile, SR) = 0 then
  try
    repeat
      if SR.Attr and faDirectory <> faDirectory then
      begin
       FileList.Add(RootFolder + SR.Name); // hier tritt der Fehler auf
      end;
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;


procedure TForm1.Aktualisieren1Click(Sender: TObject);
var i:integer;
begin
FindAllfiles(files,'C:\Programme\Selfmade\Reader\TXT files','*.txt',false);

for i:=0 to files.count -1 do
Listbox1.Items.addObject(extractFileName(files.Strings[i]),TObject(files.Strings[i]));
end;
end.

[Bernhard Geyer]

und wo wird deine StringListe "files" erzeugt?

[Darksniper]

Danke für den Hinweis.
Jetzt geht's.

[DeddyH]

Wieso wird die Liste eigentlich als Var-Parameter übergeben? :gruebel:

[Darksniper]

Weil ich sie noch mehrmals im programm brauchen werde.

[DeddyH]

Ich meinte den Funktionskopf.

Zitat:

Delphi-Quellcode:

procedure FindAllFiles(var FileList: TStrings;...

[Darksniper]

Da musst du hier schauen:

[DeddyH]

Gut, dann schau Du mal hier :lol: :zwinker:

[s-off]

Hallo,

wenn Du Code von irgendwo kopierst, dann ist das vollkommen ok.
Allerdings solltest Du um deinetwillen auch versuchen, das Ganze zu verstehen.

Zitat:

Zitat von Darksniper

Da musst du hier schauen:

zeigt, dass Du es in diesem Fall nicht verstanden hast.

=> nachholen? ;)

[Darksniper]

Ich habs verstanden.
Die Stringlist wird während der Procedure verändert also muss des eine variable sein.
Weis aber jetzt dass man Stringlisten erstellen/freigeben muss.

[DeddyH]

Das wäre prinzipiell richtig, aber hier handelt es sich um eine Objektinstanz, d.h. intern ist das bereits ein Zeiger, die Übergabe erfolgt also automatisch By Reference. An Deiner Stelle würde ich die Liste als const-Parameter übergeben, denn der Zeiger (die Referenz) ändert sich nicht bei der Abarbeitung der Prozedur.