Thema: Delphi String durchsuchen

Einzelnen Beitrag anzeigen

Benutzerbild von Uncle Cracker
Uncle Cracker

Registriert seit: 30. Mär 2003
Ort: Freital
694 Beiträge
 
#9

Re: String durchsuchen

  Alt 31. Dez 2003, 00:36
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
I wish it was legal to marry software because I'm madly in love with Delphi...
  Mit Zitat antworten Zitat