Копирование массивов записей

[Dima2011]

Добрый день. Помогите с проблемой.
есть 2 массива SP и SPALL записей типа

type
  TSportsmen=record
    name, surname, weight, city, age, razryad, weightcat,mesto,id_sportsmen : string;
    number,k,k2:integer;
  end;

При соблюдении определенного условия, я копирую элементы из одного массива в другой следующим способом:

procedure TForm4.Button3Click(Sender: TObject);
var
  i,j:integer;
begin
setlength(form5.SP,0);
for I := 0 to high(FORM5.SPALL) do
  BEGIN
    if FORM5.SPALL[i].weightcat=form4.ComboBox3.Text then
      begin
        Setlength(FORM5.SP,length(FORM5.SP)+1);
        FORM5.SP[i]:=FORM5.SPALL[i];
      end;
  END;

затем вывожу:

for I := 0 to high(form5.SP) do
  begin
      form5.memo1.lines.add(form5.SP[i].name);
  end;

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

но если выводить в том же цикле, когда я произвожу запись в новый массив, то все выводится правильно.

то есть, вроде массив копируется, но по завершению цикла в нем остаются пустые строки.

пробовал создавать массив другого типа, копировать каждую запись по отдельности, типа sp[i].name:=SPALL[i].name
ничего не помогает....
ПОМОГИТЕ ПЛИИИЗ



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

ошибка вот тут:

FORM5.SP[i]:=FORM5.SPALL[i];

кто Вам сказал, что в новом массиве эта запись будет такая же по счёту (иметь такой же индекс), как и в исходном массиве?!?!

попробуйте так, например:

    if FORM5.SPALL[i].weightcat=form4.ComboBox3.Text then
      begin
        Setlength(FORM5.SP,length(FORM5.SP)+1);
        FORM5.SP[length(FORM5.SP)]:=FORM5.SPALL[i];
      end;

[Dima2011]

Вы совершенно правы))) я уже нашел эту ошибку) тупанул что-то) спасибо БОЛЬШОЕ)