String durchsuchen

[Uncle Cracker]

Ich habe mich jetzt mal ein bisschen rangesetzt und eine schöne kleine Funktion geschrieben, die überprüft ob die eingegeben Datei eine DLL-Datei ist, egal wie die geschrieben ist:

Delphi-Quellcode:

function isDll(Dateiname: string): Boolean;
var
  i : Integer;
  s : String;
begin
  if(pos('.',Dateiname) > 0) then
    begin
      i := length(Dateiname);
      while(Dateiname[i] <> '.') do dec(i);
      s := lowercase(copy(Dateiname,i,99));
      if length(s)=4 then
        begin
          if(pos('.dll',s) > 0) then
            Result := true
          else Result := false
        end else Result := false
     end
  else
    Result := false
end;

Auch wenn der der Dateiname .exe.dll oder dll.exe heißt, kommt man zum richtigen Ergebnis.
Ist sicher ein bisschen umständlich programmiert, aber es läuft