Delphi-Quellcode:
function filetype(file2 : string) : Boolean;
var
filetype2: Array of String;
i: Integer;
begin
SetLength(filetype2,7);
filetype2[0] := '.jpg';
filetype2[1] := '.jpeg';
filetype2[2] := '.png';
filetype2[3] := '.gif';
filetype2[4] := '.bmp';
filetype2[5] := '.tif';
filetype2[6] := '.tiff';
filetype2[7] := '.swf';
for i := 0 to Length(filetype2) do
if (filetype2[i] = ExtractFileExt(file2)) then
begin
Result := true;
break;
end;
end;
Die Funktion habe ich dadraus entwickelt aber sobald sie ausgeführt wird gibs ne "Accces Violation".
Ich weiß echt nicht wo dran es liegt.
bye
Fredyy
PS: Danke für all eure Antworten