| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

поиск array[1..n] of byte в array[1..m] of byte

Кокандокало ©   (2002-11-20 20:48:00) 

Привет, Мастера!
Предложите алгоритм поиска array[1..n] of byte в array[1..m] of byte, где n < m
Желательно возвратить смещение =)

---

Кокандокало   (2002-11-21 12:01:00) [1]

дык не пашет =(((
Вот в моем исполнении тоже самое и не пашет...

function findArr(A,SubA: array of byte):integer;
var
i,j: integer;
begin
i := Low(A);
j := Low(SubA);
while i<=High(A)-High(SubA)+Low(SubA) do
begin
if A[i]=SubA[j] then
begin
inc(j);
if j>High(SubA) then
begin
dec(i, High(SubA)-Low(SubA));
j := Low(SubA);
ShowMessage("Index = " + inttostr(i));
findArr := i;
Exit;
end;
end
else
j := Low(SubA);
inc(i);
end;
ShowMessage("Not found");
end;

Может кнут у кого под рукой есть? там алгоритм поиска подстроки в строке есть.. может кто посмотрит?

---

TTCustomDelphiMaster   (2002-11-20 22:50:00) [2]

Поправочка

while i<=High(A)-High(SubA)+Low(SubA) do
begin
if A[i]=SubA[j] then
begin
inc(j);
if j>High(SubA) then
begin
dec(i, High(SubA)-Low(SubA));
j := Low(SubA);
ShowMessage("Index = " + inttostr(i));
end;
end
else
j := Low(SubA);
inc(i);
end;

---

TTCustomDelphiMaster   (2002-11-20 22:02:00) [3]

var
A: array [2..15] of byte;
SubA: array [1..3] of byte;
i, j: integer;
begin
A[4] := 4;
A[5] := 5;
A[6] := 4;
A[7] := 5;
A[8] := 4;
SubA[1] := 4;
Suba[2] := 5;
SubA[3] := 4;

i := Low(A);
j := Low(SubA);
while i<=High(A)-High(SubA)+Low(SubA) do
begin
if A[i]=SubA[j] then
begin
inc(j);
if j>High(SubA) then
begin
dec(i, High(SubA)-Low(SubA));
j := Low(SubA);
ShowMessage("Index = " + inttostr(i));
end;
end;
inc(i);
end;
end;

---

Наверх