Delphi. Графы. Матрица смежности. StringGrid.

[Mr_freeman]

Здравствуйте. Пишу программу для работы с графами. Присутствует таблица (StringGrid), в которую вводится граф в виде матрицы смежности. Как известно, матрица симметрична относительно главной диагонали.
У меня такой вопрос: можно ли сделать автоматическое заполнение симметричных ячеек? Т.е. если вводится элемент в ячейку [2,6] - тут же заполняется ячейка [6,2] таким же элементом. Заранее очень благодарен.

[JUDAS]

А чем Вам не нравится свойство StringGrid1.Cells ?

procedure TForm1.FormCreate(Sender: TObject);
var i, j: integer;
begin
  for i:=1 to StringGrid1.Rowcount -1 do
   for j:=i to StringGrid1.ColCount -1 do
   if i<>j then
   begin
   // вместо 12 значение с массива
    StringGrid1.Cells[i,j]:=inttostr(12); 
    StringGrid1.Cells[j,i]:=inttostr(12); 
   end else
   // диагональ
   StringGrid1.Cells[i,j]:='diag';
end;

[Step_UA]

установи обработчик onSetEditText

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
if Acol<>Arow then StringGrid1.Cells[Arow,Acol]:=Value;
end;

[JUDAS]

Step_UA, в случае с наличием Вашего обработчика, в моём коде можно убрать строку
StringGrid1.Cells[j,i]:=inttostr(12);

[Step_UA]

2 JUDAS, насколько я понимаю нужно при вводе с клавиатуры.

[JUDAS]

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

StringGrid1+клавиатура?
варианта 2
- делфи фор Линукс
- паскаль со стринггридом

[Step_UA]

не по теме конечно: может я что-то не так понял, но что вас смущает в StringGrid1+клавиатура? options - goEditing и вперед ...

[JUDAS]

аа вы в этом ракурсе, ну так товарищь хочет автоматом заполнить )

[Mr_freeman]

Да, я как раз говорил про клавиатуру - чтоб вводить не всю матрицу - а ток половину(чтоб вторая сразу заполнялась). Нужно что то напобобие onChange как у TEdit..
onSetEditText - я так понял это оно и есть??

[Serge_Bliznykov]

onSetEditText - я так понял это оно и есть??

в точку!

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