Сравнение колонок StringGrid по строкам

[royun]

Здравствуйте.
Есть StringGrid1 и в нем есть колонки КолA, КолB, кол-во повторов по строкам (см. вложения). Необходимо сделать:

1. сравнение по строкам, т.е. встречается ли пара StringGrid1.Cells[1,i], StringGrid1.Cells[2,i]
2. удалить повторы
3. вывести кол-во повторов

procedure TForm1.Button2Click(Sender: TObject);
var
kolvoAB, AllAB: array of integer;
i,j,k,kolAB, n: integer;
begin
n:=StringGrid1.RowCount;
SetLength(AllAB,n);
SetLength(kolvoAB,n);
for i:=1 to n do
    begin
    AllAB[i]:= StrToInt(StringGrid1.Cells[0,i]+StringGrid1.Cells[1,i]);
    end;
i:=1;
while i <= n  do
begin
kolAB:=1;
j:=i+1;
    while j <= n do
    begin
    if AllAB[i]=AllAB[j] then
      begin
      for k:=j to n-1 do AllAB[k]:=AllAB[k+1];
      kolAB:=kolAB+1;
      n:=n-1;
      end
    else j:=j+1;
    end;
kolvoAB[i]:=kolAB;
i:=i+1;
end;
StringGrid1.RowCount:=n;
for i := 1 to n do
StringGrid1.cells[2,i]:=IntToStr(kolvoAB[i]);
end;

Проблема заключается в том, что
1.ошибка "Invalid pointer operation" выскакивает на 2-й строке с конца и данные до конца не отображаются
2.Как решить задачу, если массив AllAB это массив чисел int64

[type_Oleg]

У динамических массивов индексы : 0 ... n-1, а не 1 .. n

Кстати, Cells - тоже динамичеческий.

[royun]

Вот в этом коде все нормально работает.

m:=Form1.StringGrid2.RowCount;
SetLength(AbB,m);
SetLength(kolvoB,m);
StringGrid3.RowCount:=m;
for l:=1 to m do
    begin
    StringGrid3.Cells[1,l]:=deletesimbol(Form1.StringGrid2.Cells[3,l]);
    AbB[l]:= StrToInt64(StringGrid3.Cells[1,l]);
    end;
x:=1;
while x <= m  do
begin
kolB:=1;
y:=x+1;
    while y <= m do
    begin
    if AbB[x]=AbB[y] then
      begin
      for z:=y to m-1 do AbB[z]:=AbB[z+1];
      kolB:=kolB+1;
      m:=m-1;
      end
    else y:=y+1;
    end;
kolvoB[x]:=kolB;
x:=x+1;
end;
StringGrid2.RowCount:=m;
for x := 1 to m do
begin
StringGrid2.cells[0,x]:=IntToStr(x);
StringGrid2.cells[1,x]:=IntToStr(AbB[x]);
StringGrid2.cells[2,x]:=IntToStr(kolvoB[x]);
end;
AbB:=nil;
kolvoB:=nil;

Похоже я где-то что-то пропустил в предыдущем коде.
А как быть если массив AllAB это массив чисел int64 ?

[royun]

Сообщение от type_Oleg

У динамических массивов индексы : 0 ... n-1, а не 1 .. n

Кстати, Cells - тоже динамичеческий.

Действительно Вы были правы.
А как быть если массив AllAB это массив чисел int64 ?

[type_Oleg]

А что такого в этом Int64.
AllAB:array of int64;

[royun]

Когда цифры маленькие, то все работает, а когда большие (у меня в каждой колонке в среднем 10-значные цифры), то выскакивает ошибка во вложении

[Vanta11a]

Вот тут обсуждалась аналогичная проблема. 19 знаков - максимум, правда.
А так - "длинная" арифметика только.

up: в вашем скриншоте - число из 20 знаков. Логично, что перебор.

[royun]

Действительно, 20-значное число выходит за рамки int64.
Я понимаю что механизм сравнения у меня неправильный. И хотел бы послушать Ваши предложения.

[type_Oleg]

royun, ну так смотрите справку по Int64 : -2^63..2^63-1
Примерно 9*10^18 - максимум

[royun]

Сообщение от type_Oleg

royun, ну так смотрите справку по Int64 : -2^63..2^63-1
Примерно 9*10^18 - максимум

В том-то и дело что int64 не хватает.