Du muß selbstverständlich die Skalarproduktsumme immer wieder für jedes Element MEMatrix[i,j] neu-initialisieren, am besten setz mal die Summe direkt vor der k-Schleife auf Null:
Delphi-Quellcode:
for j := 0 to Length(MEMatrix[0])-1 do
begin
//Errechnen der Ergebniswerte aus den eingebenen Matritzen
summe := 0;
for k := 0 to Length(M1Matrix[i])-1 do
begin
summe := summe + (M1Matrix[i,k] * M2Matrix[k,j]);
end;
MEMatrix[i,j] := summe;
StringGrid3.Cells[j,i] := IntToStr(summe);
end;