So ich hab noch einwenig Probiert...
Delphi-Quellcode:
var //DCL Abweichung
AbweichungsQuadrat: single;
Standardabweichung: single;
begin
//Abweichung ermitteln
Mittelwert:= summe / (sgMess.RowCount-1);
AbweichungsQuadrat:=0;
for i:= 1 to sgMess.RowCount-1 do
AbweichungsQuadrat:=AbweichungsQuadrat + (StrToFloat(sgMess.Cells[1,i]) - Mittelwert) * (StrToFloat(sgMess.Cells[1,i]) - Mittelwert);
Standardabweichung:= SQRT((AbweichungsQuadrat)/(sgMess.RowCount-1)*(StrToFloat(sgMess.Cells[1,i])) -1);
edAbw.text:=FloatToStr(Standardabweichung);
end;
Ich erhalte aber wieder folgende
Exception:
http://img233.imageshack.us/img233/2...tmapah7.th.jpg
Da in den Klammern nichts steht, wurde wohl auch noch gar kein Wert benutzt?!