Stringgrid (Delphi 7)

[Елена93]

Всем привет. Вот такое дело. 1. Нужно вывести из Stringgrid четные цифры в edit.
2. Повернуть отрицательные элементы на 90 градусов из Stringgrid2. Вот программа. Что дальше делать, не знаю. Заранее спасибо.

procedure TForm1.Button1Click(Sender: TObject);

begin
 randomize;

for j:=0 to 4 do
for i:=0 to 4 do
begin
 a[j,i]:=random(20);


StringGrid1.Cells[j,i]:=inttostr(a[j,i]);
 

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin
 for j:=0 to 4 do
for i:=0 to 4 do
begin
a[j,i]:=random(50)-10;


StringGrid2.Cells[j,i]:=inttostr(a[j,i]);
end;  end;

procedure TForm1.Button3Click(Sender: TObject);

begin
 for j:=0 to 4 do
for i:=0 to 4 do
 If a[j,i]<0  then
StringGrid2.Cells[j,i]:=inttostr(a[3-j+1,i]);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 for j:=0 to 4 do
for i:=0 to 4 do

 If a[j,i] mod 2 = 0 then
  StringGrid1.Cells[j,i]:=inttostr(a[j,i]);
edit1.Text:=inttostr(a[j,i]);
end;

end.

[Xardas]

Чтобы в эдит вывелись ВСЕ четные числа, нужно немного подправить вывод:

If a[j,i] mod 2 = 0 then
   //следующая строка тут вообще ни к чему
   //StringGrid1.Cells[j,i]:=inttostr(a[j,i]);
   edit1.Text := edit1.text + ' ' + inttostr(a[j,i]);

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

А что значит "повернуть отрицательные на 90 градусов", я, если честно, не понял.