Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#8

Re: Konstantenausdruck erwartet in Funktionsdekleration

  Alt 21. Mai 2008, 12:42
Zitat von Darko:
Ich verwende bei mir im Programm die Funktion 'FindAllFiles'. Nun habe ich diese etwas abgeändert, weil ich bei verschiedenen Sachen verschiedene Memos brauche.
Das war keine gute Idee!
Du hast damit aus einer universell verwendbaren Procedure eine speziell angepasste Procedure gemacht, die aber keinerlei Vorteile hat.

Es ist doch kein Problem, die Procedure so aufzurufen:
Delphi-Quellcode:
// mir feht jetzt die Deklaration der Orginal-Funktion und kann deshalb nur raten,
// dass noch ein Argument vom Typ TStrings da sein muss
FindAllFiles('C:\', '*.*', True, Memo_Monitorfiles.Lines);
Und wenn dir das zu viel Schreibarbeit ist, dann gibt es immer noch die Möglichkeit die orginale Prozedure
über eine eigene Procedure zu schleusen:
Delphi-Quellcode:
procedure THauptform.FindAllFiles2(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True);
begin
  // einfache Weiterleitung
  FindAllFiles(RootFolder, Mask, Recurse, Memo_Monitorfiles.Lines);
end;
Merke: universelle einsetzbare Funktionen (z.B. aus Code-Library) nicht verändern, sondern höchstens ein Hülle drum bauen.
Andreas
  Mit Zitat antworten Zitat