Delphi StringGrid!!!!

[Даша:)]

Помогите пожалуйста!!! Вообще не понимаю компонент StringGrid, и не могу нигде найти информацию!!! Заранее очень благодарна.

Создайте приложение, при выполнении которого на экране появляется окно формы с таблицей StringGrid (с вкладки Additional Палитры компонентов).

При вводе и редактировании данных в ячейке на пересечении i-й строки и k-го столбца таблицы этот же текст должен появляться в ячейке на пересечении k-й строки и i-го столбца таблицы.

[demon416]

Код: Выделить всё

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
stringgrid1.Cells[arow,acol]:=stringgrid1.Cells[acol,arow] ;
end;

и не забудьте включить возможность редактирования
object inspector -> properties -> options -> goediting true

[BHy4ok]

Вы наверно путаете. В гриде сначало идет столбец потом строка: "(StringGrid.Cell[Col, Row])".

[syntax='Delphi']
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: string);
var
i,k:integer;
begin
i:=StringGrid1.Row;
k:=StringGrid1.Col;
StringGrid1.Cells[i,k]:=StringGrid1.Cells[k,i];
end;
[/syntax]

Файл проекта прикреплен ниже. Не скомпилированный(без ".exe"), как компилировать надеюсь вы знаете.

[demon416]

Вы наверно путаете. В гриде сначало идет столбец потом строка: "(StringGrid.Cell[Col, Row])".

задание выглядело так:

При вводе и редактировании данных в ячейке на пересечении i-й строки и k-го столбца таблицы этот же текст должен появляться в ячейке на пересечении k-й строки и i-го столбца таблицы.

приведенный мной код это делает

[Даша:)]

спасибо всем огромное!!!!!!все работает!!!!!очень очень благодарна!!!!!

[BHy4ok]

задание выглядело так:
.............
приведенный мной код это делает

Если бы вы внимательно посмотрели на то что я написал, то возможно бы поняли, что это было адресовано не вам, а автору темы. У вас как раз таки идет "столбец, строка".