Zitat von
computer-glossar.de:
AnsiIndexText gibts aber noch nicht in delphi5 ...
Dann halt der Haudrauf-Weg.
Delphi-Quellcode:
function InArray(s: string; const StrArray: array of string): boolean;
var i: integer;
begin
result := false;
for i := 0 to high(StrArray)-1 do
begin
if s=StrArray[i] then
begin
result := true;
break;
end;
end;
Aufruf wäre etwa so:
Delphi-Quellcode:
const
FileTypes: array [0..4] of string = ('avi', 'mpg', 'mpeg', 'wmf', 'wmv');
//...
if InArray(s, FileTypes) then DoSomething;
Ist jetzt grob zusammen gezimmert
