Klein und großschreibung bei suche

[hanibal]

wie kann ich nach dateien suchen, ohne das die grß und kleichschreibung dabei beachtet wird?

das ist meine bisherige funktion:

Code: Alles auswählen

Procedure FindFiles (aPath, aFindMask: String; aWithSub: Boolean; aResult: tStrings; bResult: tStrings);
Var
  FindRec: tSearchRec;
Begin
  // Wenn die Stringliste nil ist oder aPath oder aFind nicht angegeben ist
  // dann raus
  If (aPath = '') or (aFindMask = '') or Not Assigned (aResult) Then
  begin
     showmessage('Fehler beim hinzufuegen der Dateien');
     Exit;
  end;
 
 
  // Wenn am Ende der Pfadangabe noch kein \ steht, dieses hinzufügen
  If aPath[Length (aPath)] <> '/' Then
    aPath := aPath + '/';
 
 
  // Im aktuellen Verzeichnis nach der Datei suchen
  If FindFirst (aPath + aFindMask, faAnyFile, FindRec) = 0 Then
    Repeat
      If (FindRec.Name <> '.') and (FindRec.Name <> '..') Then
        // ...Ergebnis in die Stringlist einfügen
        aResult.Add (FindRec.Name);
        bResult.Add(aPath + findrec.Name);
 
    Until FindNext (FindRec) <> 0;
 
 
  FindClose (FindRec);
 
 
  // Wenn nicht in Unterverzeichnissen gesucht werden soll dann raus
  If Not aWithSub Then
    Exit;
 
 
  // In Unterverzeichnissen weiter suchen
  If FindFirst (aPath + '*', faAnyFile, FindRec) = 0 Then
    Repeat
      If (FindRec.Name <> '.') and (FindRec.Name <> '..') Then
        // Feststellen, ob es sich um ein Verzeichnis handelt
        If Boolean (FindRec.Attr and faDirectory) Then
          // Funktion erneut aufrufen, um Verzeichnis zu durchsuchen (Rekursion)
          FindFiles (aPath + FindRec.Name, aFindMask, aWithSub, aResult,bresult);
    Until FindNext (FindRec) <> 0;
 
 
   FindClose (FindRec);
End;

PS: unter linux

[theo]

Da musst du wohl nach allen Dateien suchen und dann "von Hand" vergleichen, mit AnsiCompareFileName

[hanibal]

was ist ansicomparefilename?

[schnullerbacke]

if AnsiCompareStr(LowerCase(SearchFileName), LowerCase(FindFileName)) = 0 then blabla;

Ob mit oder ohne Pfad mußt du selbst entscheiden. Benutz am besten die rekursive Dateisuche aus den Downloads.

[theo]

was ist ansicomparefilename?

Na was wohl? Schaut doch mal selber was nach.
http://www.freepascal.org/docs-html/rtl ... ename.html

[hanibal]

habs jetzt gelöst, ich suche einfach nach "*", und gucke dan mit pos, ob das suchwort im datei nahmen vorkommt, vorher werden natürlich dateiname ud suchnahme lowercase.