Hallo,
kann es sein, dass ich die Delphi-Version in deinem Profil bisher übersehen habe?
Delphi-Quellcode:
function AnsiIndexText(const AText: string;
const AValues: array of string): Integer;
var
I: Integer;
begin
Result := -1;
for I := Low(AValues) to High(AValues) do
if AnsiSameText(AText, AValues[I]) then
begin
Result := I;
Break;
end;
end;
Viel Erfolg.