[Sobol]

Здравствуйте, столкнулся со следующей проблемой
Имеются таблицы TTable, допустим таблица Ученики, в DBride выделяю одного из учеников и нажимаю кнопку , она должна выводить информацию именно об этом ученике в Excel.
Искал информацию по курсорам в дбгриде с последующей передачей в.., что то никак не могу найти. Помогите пожалуйста.

[Sobol]

все вчера сделал. Кому интересно выложу код.
n:= form1.DBGrid1.SelectedField.FieldNo;
form1.Edit1.Text:= intToSTR(n);
for i:=0 to n do
begin
Sheet.Cells[2,3]:=form1.TTable1.Fields.Fields[1].AsString;
Sheet.Cells[6,2]:=form1.TTable1.Fields.Fields[3].AsString;
Sheet.Cells[6,3]:=form1.TTable1.Fields.Fields[4].AsString;
Sheet.Cells[6,4]:=form1.TTable1.Fields.Fields[5].AsString;
Sheet.Cells[7,4]:=form1.TTable1.Fields.Fields[6].AsString;
Sheet.Cells[8,4]:=form1.TTable2.Fields.Fields[5].AsString;
n:=n+1;
end;

[NumLock]

Сообщение от Sobol

все вчера сделал. Кому интересно выложу код.
n:= form1.DBGrid1.SelectedField.FieldNo;
form1.Edit1.Text:= intToSTR(n);
for i:=0 to n do
begin
Sheet.Cells[2,3]:=form1.TTable1.Fields.Fields[1].AsString;
Sheet.Cells[6,2]:=form1.TTable1.Fields.Fields[3].AsString;
Sheet.Cells[6,3]:=form1.TTable1.Fields.Fields[4].AsString;
Sheet.Cells[6,4]:=form1.TTable1.Fields.Fields[5].AsString;
Sheet.Cells[7,4]:=form1.TTable1.Fields.Fields[6].AsString;
Sheet.Cells[8,4]:=form1.TTable2.Fields.Fields[5].AsString;
n:=n+1;
end;

расскажите зачем "красные" строки нужны?

[M.A.D.M.A.N.]

Автор, видимо, не понял их назначения.