Расчет дирекционного угла в StringGrid

[Multiman]

Здравствуйте. Нужно рассчитать значения дирекционного угла в столбиках стринггрида. Одно значение я рассчитываю так

procedure TForm1.Button4Click(Sender: TObject);
var
  rez:real;
begin
 rez:=(StrtoFloat(StringGrid1.Cells[3,1]))-(StrToFloat(StringGrid1.Cells[1,2])*60+StrtoFloat(StringGrid1.Cells[2,2]))+10800;
 StringGrid1.Cells[3,3]:=FloatToStr(rez);
end;

end.

Формула дирекционного угла: дирекцинный угол-внутренний гол+180 градусов.
Каждый последующий угол рассчитывается из предыдущего.Первый угол задается пользователем.

12934-(225*60+48)+10800=10186 Пока результат храню в минутах( не знаю пока как перевести точно)

Как сделать чтобы автоматически рассчитались все значения и чтобы они отображались между строчками? На рисунке интерфейс программы.

Заранее благодарен.

[Lesha]

а можно формулой записать?

типа такой



чтобы было понятно что за формула, а то у вас одни определения и непонятно что к чему

или файл екселя с таблицей ваших углов

[Multiman]

Я в delphi программу пишу...

[phomm]

Дельфи - не дельфи, какая разница ? язык математики один и тот же ! Вас же попросили формулу (в экселе её просто можно достаточно наглядно выразить)

Чтобы автоматически вычислялись результаты, надо написать функцию, вычисляющую вашу формулу независимо от ячеек грида ! в эту функцию вы будете передавать числа из ячеек грида, функция их считает, и выдает ответ, который вы записываете в нужную Вам клетку грида.
Автоматизма отображения можно добиться, но Вы малость не объяснили по какому событию должны активироваться расчеты, скорее всего, Вы ждете, чтобы работало как в экселе - нажал энтер после ввода числа и произошёл расчет (я предполагаю). Так вот это можно сделать по событию OnSetEditText - в нем указывается клетка которая вызвала событие - вот эту клетку и надо передать в функцию, она возвратит значение, которое Вы впишете в нужную клетку (это может быть клетка справа, тогда её индекс в данном событии будет [aCol +1, Arow]
Удачи !

[Multiman]

Мне надо чтобы на кнопочку нажал пользователь и все рассчиталось. Я всего лишь хотел узнать как выше приведенный код сделать не для одного угла а для неопределенного количества, т.е. сколько измерений внутренних углов по каждому пункту ввел пользователь столько и дирекционных углов в итоге рассчиталось...

[evg_m]

Я всего лишь хотел узнать как выше приведенный код сделать не для одного угла а для неопределенного количества,

совсем для неопределенного нельзя, а вот для числа заданного пользовтелем можно

n2:=strtoint(edi1.text);
for j:=1 to n2 do begin
 расчет одного угла
end;

[Multiman]

ок. а как вывести как у меня на рисунке, между строчек?

[Serge_Bliznykov]

ок. а как вывести как у меня на рисунке, между строчек?

у Вас нет "между строчек", у Вас в строчках, расположенным между нужными строчками.

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