Abstrakter Fehler beim auslesen von Ordner

[Fussel9]

Hi ich hab den Quelltext von hier:http://www.delphipraxis.net/108297-v...re-masken.html

in mein projekt eingebunden aber ich bekomme immer die meldung : ''Im Projekt ist eine Exception der Klasse EAbstractError mit der Meldung 'Abstrakter Fehler' aufgetreten.''


Hier der relevante Quelltext...
wenn ich auf Anhalten klicke steht er auf : '' until FindNext(SR) <> 0; '' in der FindAllFiles procedure

Titelliste ist als globale variable deklariert

Delphi-Quellcode:

procedure TFormMain.BLoadClick(Sender: TObject);
var
  i: Integer;
  titel: TInhalt;
begin
Findallfiles(Titelliste,EPfad.Text,['.mp3','.wav'],True);
//for i := 0 to Titelliste.count - 1 do
//  begin
//    //code
//    chatserver.titeleinfuegen(titel);
//  end;
ShowMessage(Titelliste[1]);
mprot.Visible:=True;
mteil.Visible:=True;
Label5.Visible:=True;
Label1.Visible:=True;
SBackgr.Visible:=False;
Label3.Visible:=False;
EPfad.Visible:=False;
BLoad.Visible:=False;
end;



procedure TFormMain.FindAllFiles(const FileList: tstrings;RootFolder: string; Maske: array of string; Recurse: Boolean = True);
var
  SR: TSearchRec;
  i : integer;
begin
  RootFolder := IncludeTrailingPathDelimiter(RootFolder);

  if Recurse then
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
    try
      repeat
        if SR.Attr and faDirectory = faDirectory then
            // --> ein Verzeichnis wurde gefunden
            // der Verzeichnisname steht in SR.Name
            // der vollständige Verzeichnisname (inkl. darüberliegender Pfade) ist
            // RootFolder + SR.Name
          if (SR.Name <> '.') and (SR.Name <> '..') then
            FindAllFiles(FileList, RootFolder + SR.Name, Maske, Recurse);
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  i := 0;
  repeat
    begin
      if FindFirst(RootFolder + '*' + Maske[i], faAnyFile, SR) = 0 then
      try
        repeat
          if SR.Attr and faDirectory <> faDirectory then
          begin
            // --> eine Datei wurde gefunden
            // der Dateiname steht in SR.Name
            // der vollständige Dateiname (inkl. Pfadangabe) ist
            // RootFolder + SR.Name
            FileList.Add(RootFolder + SR.Name);
          end;
        until FindNext(SR) <> 0;
      finally
        FindClose(SR);
      end;
      i := i + 1;
    end
  until
    i = high(maske) + 1;
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
Titelliste:=TStrings.Create;
end;

[Uwe Raabe]

Da isser!

Zitat:

Zitat von Fussel9 (Beitrag 1073506)

Delphi-Quellcode:

Titelliste:=TStrings.Create;

TStrings ist eine abstrakte Klasse und darf nicht instantiert werden. Nimm TStringList.

[Fussel9]

:balloon::party::balloon:

Juhu! Danke, jetz geht's den Fehler hat nichtmal mein Infolehrer gesehn :-D