Элементы массива(Delphi)

[Nastya2]

да за что сори то)спасибо за старания)надеюсь у тебя получится)

[VIK_aka_TOR]

держи... по вопросам стучись в аську... все работает...

procedure TForm1.Button1Click(Sender: TObject);
var mass: array [1..10] of integer;
mass1, mass2: array [1..5] of integer;
m1,m2,i : integer;
begin

for i := 0 to 9 do
mass[i+1]:= StrToInt(StringGrid1.Cells[i,0]); // считывание значений в массив из начального значений в таблице

m1:=0;
m2:=0;
for i:=1 to 10 do
 if (i mod 2) = 0 then
    begin
    inc(m2);
    mass2[m2]:=mass[i];
    end
    else
    begin
    inc(m1);
    mass1[m1]:=mass[i];
    end;
   for i:=0 to 4 do
   begin
   StringGrid2.Cells[i,0]:=inttostr(mass1[i+1]);  // с нечетными индексами
   StringGrid3.Cells[i,0]:=inttostr(mass2[i+1]); // c четными индексами
   end;
end;

если помогло... жми на весы)

[Nastya2]

Запускаю...выдаёт ошибку вот такую : Priject Project1.exe raised exception class EConvertError with message "" is not a valid integer value'.Process stopped.Use Stop or Run to continue

[Nastya2]

может скинешь полный код программы?может поможет...

[VIK_aka_TOR]

держи весь проект)

[VIK_aka_TOR]

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

[Nastya2]

спасибо огромное при огромное...очень помог!!!)))

[VIK_aka_TOR]

жми весы) +репу)

[Nastya2]

уже нажала)))