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
