ViaThinkSoft CodeLib
Dieser Artikel befindet sich in der Kategorie:
CodeLib → Programmierhilfen → Delphi
function IndexOf(array_to_search: array of string; search_for: string): integer;
var
i: integer;
begin
result := -1;
for i := 0 to length(array_to_search) - 1 do
begin
if array_to_search[i] = search_for then
begin
result := i;
break;
end;
end;
end;Daniel Marschall
ViaThinkSoft Mitbegründer
ViaThinkSoft Mitbegründer