1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| if objetTemplist.I is TobjetresultatsSST then
begin
with TobjetresultatsSST(objetTemplist.I) do
begin
resultattemp:= ObjetTemplist.rangekutta4(Temps[k], Temps[k+1], 1, T1, CourantCat[k]);
T1:=resultattemp.Cells[1,2];
objettemplist.theta.AddXY(Temps[k],T1);
end;
end else objetTemplist.I is TObjetResultatsMultimetre then
begin
with TobjetresultatsSST(objetTemplist.I) do
begin
resultattemp:= ObjetTemplist.rangekutta4(Temps[k], Temps[k+1], 1, T1, CourantCat[k]);
T1:=resultattemp.Cells[1,2];
objettemplist.theta.AddXY(Temps[k],T1);
end;
end; |
Partager