работа с массивом

[novi4ok_Delphi]

я завожу в StringGrid массив размером = 20
мне нужна процедура,которая будет удалять последний отрицательный элемент массива!
Помогите, кто может!

[Secc]

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

[novi4ok_Delphi]

а как это реализовать?напиши, если не сложно...

[Google2010]

как то так)

for i:=19 downto 0 do
if strtoint(sg.cells[i,0])<0 then
k:=i;
break;
end;
for i:=k to 18 do
sg.cells[i,0]:=sg.cells[i+1,0];
sg.colcount:=19;

[novi4ok_Delphi]

я немного поправил и всё заработало,спасибо большое!!

procedure Del(StringGrid: TStringGrid);
var
  i, k: Integer;
begin
  for i := 0 to 19 do
    if StrToInt(StringGrid.Cells[i, 0]) < 0 then
      k := i;
  for i := k to 18 do
    StringGrid.Cells[i, 0] := StringGrid.Cells[i + 1, 0];
    StringGrid.ColCount := 19;
end;