String durchsuchen

[Uncle Cracker]

Du hast Recht, denn ich habe mir LastDelimiter nicht nochmal richtig angeguckt, denn die ist in der SysUtils, aber das Programm soll NonVCL laufen, und da hätte ich LastDelimiter noch extra machen müssen.

Himitsus Variante ist schon gut, ich habe auch auf dieser aufgebaut, jedoch musst man zusätzlich noch einbauen, das es nur 4 Zeichen sein dürfen (.dll), denn bei dieser Variante würd .dll2 funtkionieren, und es wird als DLL-Datei erkannt, deswegen wird nochmal überprüft, ob es wirklich nur 4 sind.

Zusätzlich zu meiner Funktion muss man noch die Funktion von Luckie einbauen, also LowerCase:

Delphi-Quellcode:

function LowerCase(const s: string): string;
var
  i : integer;
begin
  Result := '';

  if(length(s) > 0) then
    begin
      SetLength(Result,length(s));
      for i := 1 to length(s) do
        case s[i] of
          'A'..'Z','Ä','Ö','Ü':
            Result[i] := CHR(BYTE(s[i]) + 32);
          else
            Result[i] := s[i];
        end;
    end;
end;

Und schon ist meine Vaiante, mit Luckies Funktion auch NonVCL Tauglisch, wenn auch ein bisschen umständlich :wink: