Сравнение массивов., Количество одинаковых символов. Опции

[Roma]

Можно ли узнать сколько первых N символов равно в двух массивах, быстрее чем такой функцией:

Код

function compare():integer;
var
j:integer;
begin
j:=0;
while(s1[j+1]=s2[j+1]) do j:=j+1;
compare:=j;
end;

[volvo]

Можно... Вот такой:

function compare:integer;
var
  j: integer;
begin
  j:=1;
  while(s1[j]=s2[j]) do inc(j); { Это будет выполняться быстрее }
  compare:=pred(j);
end;