Stack Overflow???

[Рустам]

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

Procedure SortView(Cards: TCards; Index: Integer);
var i: integer;
begin
  if Index<>0 then begin
    for i:=1 to RCount do begin
      if Cards[i].Group=Index then begin
        With MyForm.CardList.items.add do begin caption:=inttostr(Cards[i].Article);
          with subitems do add(Cards[i].Disc_Name);
          with subitems do add(floattostr(Cards[i].Price));
        end;
      end;
    end;
  end else begin
    for i:=1 to RCount do begin
      With MyForm.CardList.items.add do begin caption:=inttostr(Cards[i].Article);
        with subitems do add(Cards[i].Disc_Name);
        with subitems do add(floattostr(Cards[i].Price));
      end;
    end;
  end;
end;

[alexBlack]

Напиши то-же самое без использования With.

var P:????
P := MyForm.CardList.items.add;
P.subItems ...

Это не намного длиннее, но гораздо понятнее.

Если ошибка останется, приведи хотя-бы описание типов CardList и TCards. Да, и проверь диапазон i:=1 to RCount

[mutabor]

Ошибка знакомая, не могу вспомнить точно, вроде floattostr может вызвать ее если не все параметры.

p.s. Учись делать отладку, тут работы на две минуты, если есть весь код, тем более тебе вникать не надо в отличие от нас.

[Рустам]

Нет alexBlack не помогло... при выводе сообщения об ошибке ставит курсор не в тело процедуры, на определенную строку, а на begin???

type
  TCards = array [1..100000] of Record
                                  Article   : Integer;
                                  Disc_Name : String;
                                  Price     : Real;
                                  Group     : integer;
                                end;

var Cards: Tcards;

mutabor, это не floattostr - вообще у меня с данной функцией проблем никогда небыло...

[Рустам]

ладно, ребята, спасибо за инфу....
пойдем другим путем...
всем спасибо, всем респект за помощь!!!

[Stilet]

А на какой конкретно строке вылазит ошибка если трасить пошагам?

[mutabor]

Недавно совсем была у меня такая ошибка, тоже не мог сообразить сразу, но не помню в чем причина была.
Ошибка эта - переполнение стека, бывает при неправильных рекурсиях. Ищи причину в вызове функции, может тип не подходит для этого.
Также попробуй добавить var
Procedure SortView(var Cards: TCards; Index: Integer);

[Рустам]

Спасибо ОГРОМНОЕ, уже не нужно...