Не могу устранить ошибку EAccessViolation

[k1r1ch]

Написал процедуру поиска в таблице для моей программы. Вводишь букву в строку и в таблице остаются только результаты с этой буквы. Вводишь еще одну - остаются только результаты, которые начинаются с двух этих букв. В теории все работает, но когда ввожу букву в строку, вылетает ошибка EAccessViolation и подсвечивается строка:

Compare := Compare + (GameList.Cells[0,i])[i2];

Вот полный код:

procedure TMainForm.FindChange(Sender: TObject);
var i, i2, Max, Num, x, y: integer; Compare: string;
begin
  if Find.Text <> '' then
    begin
      Ini := TIniFile.Create(extractfilepath(Application.ExeName) + 'Games.ini');
      Ini.ReadSection('General', StrGrid);
      Compare := '';
      Num := 1;
      Max := 1;
      while GameList.Cells[0,Max] <> '' do
        if GameList.Cells[0,Max] <> '' then Max := Max + 1;
      for i := 1 to Max - 1 do
        begin
          for i2 := 1 to length(Find.Text) do
            if GameList.Cells[0,i] = '' then break;
            Compare := Compare + (GameList.Cells[0,i])[i2];
          if Compare = Find.Text then
            begin
              GameList.Cells[0,Num] := GameList.Cells[0,i];
              GameList.Cells[1,Num] := GameList.Cells[1,i];
              GameList.Cells[2,Num] := GameList.Cells[2,i];
              GameList.Cells[3,Num] := GameList.Cells[3,i];
              GameList.Cells[4,Num] := GameList.Cells[4,i];
              Num := Num + 1;
            end;
          for x := 0 to 4 do
            for y := Num to 100 do
              GameList.Cells[x,y] := '';
        end;
    end;
  if Find.Text = '' then IsChange := true;
end;

Вроде бы такая ошибка означает выход за границы массива, но где тут он может быть? Вроде выполнил проверку, чтобы он не брал пустые строки. Надеюсь на вашу помощь!

[lexaltd]

Если на вскидку ,то
1).

 while GameList.Cells[0,Max] <> '' do
  if GameList.Cells[0,Max] <> '' then Max := Max + 1;

это вроде цикл , он происходит только в этой строке if GameList.Cells[0,Max] <> '' then Max := Max + 1; это правильно?

2).

for i2 := 1 to length(Find.Text) do
 if GameList.Cells[0,i] = '' then break;

Это цикл происходит только с этой строкой if GameList.Cells[0,i] = '' then break; , мне так кажется для этой строки он не нужен , если этот цикл нужен ещё для чего то то нужно поставить begin end;

Скорей всего надо так:

for i2 := 1 to length(Find.Text) do
 begin
  if GameList.Cells[0,i] = '' then break;
  Compare := Compare + (GameList.Cells[0,i])[i2];
 end;

[k1r1ch]

Действительно, во втором случае я просто забыл поставить begin...end! Спасибо большое, теперь все работает.

Похожая ошибка, поэтому продолжил писать в этой теме. Стал я изменять процедуру дальше, подстраивая под нужды программы. И сейчас программа выдает такую ошибку при вводе чего-либо в строку поиска:
First chance exception at $7C812AFB. Exception class EStringListError with message 'List index out of bounds (4)'. Process Project1.exe (412)
И ничего не подсвечивает. Как я понимаю, программа ссылается на строчку, которой не существует.
Вот код:

var  
  Ini: TIniFile;
  StrGrid: TStrings;

procedure TMainForm.FindChange(Sender: TObject);
var i, i2, Num, x, y: integer; Compare: string;
begin
  IsChange := true;
  TimerTimer(Sender);
  if Find.Text <> '' then
    begin
      Ini := TIniFile.Create(extractfilepath(Application.ExeName) + 'Games.ini');
      Ini.ReadSection('General', StrGrid);
      for i := 0 to StrGrid.Count - 1 do
        Num := 1;
        Compare := '';
        for i2 := 1 to length(Find.Text) do Compare := Compare + (StrGrid[i])[i2];
          if Compare = Find.Text then
            begin
              GameList.Cells[0,Num] := StrGrid[i];
              GameList.Cells[1,Num] := Ini.ReadString(GameList.Cells[0,Num], 'Genre', '');
              GameList.Cells[2,Num] := Ini.ReadString(GameList.Cells[0,Num], 'Dev', '');
              GameList.Cells[3,Num] := Ini.ReadString(GameList.Cells[0,Num], 'Pub', '');
              GameList.Cells[4,Num] := Ini.ReadString(GameList.Cells[0,Num], 'Year', '');
              Num := Num + 1;
            end;
  for x := 0 to 4 do
    for y := Num to 99 do
      GameList.Cells[x,y] := '';
  Ini.Free;
  New.Caption := Compare;
end;

Что делать?

[Stilet]

Ну а на какой строке вылетает ошибка?

[k1r1ch]

Так вот именно что оно ничего не выделяет! А число в скобках меняется в зависимости от кол-ва записей в General Ini-файла.

[Stilet]

Тогда прикрепляй сюда весь проект.

[k1r1ch]

Вот проект:
http://files.getdropbox.com/u/1278190/GameBrowser.rar
Это моя первая программа вообще, так что смеяться не надо)

[lexaltd]

Опять тоже самое
Вот у тебя цикл

for i := 0 to StrGrid.Count - 1 do
        Num := 1;

И что он делает - Num := 1;
Наверно опять , нужно поставить begin end


Наверно надо так

for i := 0 to StrGrid.Count - 1 do
begin
        Num := 1;
        Compare := '';
        for i2 := 1 to length(Find.Text) do Compare := Compare + (StrGrid[i])[i2];
          if Compare = Find.Text then
            begin
              GameList.Cells[0,Num] := StrGrid[i];
              GameList.Cells[1,Num] := Ini.ReadString(GameList.Cells[0,Num], 'Genre', '');
              GameList.Cells[2,Num] := Ini.ReadString(GameList.Cells[0,Num], 'Dev', '');
              GameList.Cells[3,Num] := Ini.ReadString(GameList.Cells[0,Num], 'Pub', '');
              GameList.Cells[4,Num] := Ini.ReadString(GameList.Cells[0,Num], 'Year', '');
              Num := Num + 1;
            end;
end;

[k1r1ch]

Да, это причина ошибки! Но все равно поиск работает криво. Может поможете сделать что-нибудь? Просто он то ищет, то не ищет...