Der Fehler tritt wohl auf, wenn in der Zelle kein Wert steht. Probier mal so.
Delphi-Quellcode:
var //DCL Abweichung
AbweichungsQuadrat: single;
Standardabweichung: single;
temp: double;
begin
//Abweichung ermitteln
Mittelwert:= summe / (sgMess.RowCount-1);
AbweichungsQuadrat:=0;
for i:= 1 to sgMess.RowCount-1 do
begin
try
temp := StrToFloat(sgMess.Cells[1,i]);
except
temp := 0;
end;
AbweichungsQuadrat:=AbweichungsQuadrat + (temp) - Mittelwert) * (temp) - Mittelwert);
Standardabweichung:= SQRT((AbweichungsQuadrat)/(sgMess.RowCount-1)*(temp) -1);
end;
edAbw.text:=FloatToStr(Standardabweichung);
end;
Oder sorg dafür das bei keinem Wert 0 drin steht.
Gruß
tr909