0

Помогите, пожалуйста, написать приложение в делфи... Нужно заполнить таблицу SG числами по диагонали!

8
  • SG - это что такое? Мне это не понятно.
    – DelphiM0ZG
    28 дек 2011 в 18:41
  • StringGrid 28 дек 2011 в 18:43
  • А по какой диагонали? Снизу вверх или наоборот?
    – DelphiM0ZG
    28 дек 2011 в 18:45
  • Наоборот сверху вниз 28 дек 2011 в 18:50
  • То есть, по главной!?
    – DelphiM0ZG
    28 дек 2011 в 18:51

2 ответа 2

1

Ну, как-то так:

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  i, j, n: Integer;
begin
  N:=StringGrid1.ColCount-1;
  Randomize;
  For i:=0 To n Do
    StringGrid1.Cells[i, i]:=IntToStr(Random(1000)-1000);
end;
4
  • Спасиб большое!Супер всё работает!! 28 дек 2011 в 18:55
  • А как заполнить снизу вверх??? 28 дек 2011 в 19:18
  • 1
    Только проверочку бы, ColCount = RowCount
    – Dex
    28 дек 2011 в 22:46
  • В общем-то, смысл заполнения по диагонали есть лишь тогда, когда ColCount = RowCount, думаю, что запихнуть это в условный оператор, и обработать условие, труда не составит.
    – DelphiM0ZG
    29 дек 2011 в 3:57
0

Снизу вверх :)

procedure TForm1.Button2Click(Sender: TObject);
Var
      i, n: Integer;
begin
  n:=StringGrid1.ColCount-1;
  Randomize;
  For i:=0 To n Do
     StringGrid1.Cells[n-i, i]:=IntToStr(Random(1000)-1000);
end;

end.

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.