Thema: Delphi Matrizen-Addition

Einzelnen Beitrag anzeigen

krutho

Registriert seit: 12. Jun 2007
9 Beiträge
 
#1

Matrizen-Addition

  Alt 13. Jun 2007, 16:35
Hallöchen erstmal. Bin neu hier und absoluter Delphi-Laie.
Ich hab da ein Problem mit einem Programm. Es sollte zwei Matrizen(Stringgrids) als
2D-Arrays einlesen, summieren und in ein drittes Stringgrid einfügen. Jedoch bekomme
ich hierbei eine Fehlermeldung:

" " Ist kein gültiger Gleitkommawert"

Hier nun der Quelltext

Delphi-Quellcode:
procedure TForm2.Matrixadd(Sender:TObject);

var matrixA: array of array of double;
      matrixB: array of array of double;
      matrixC: array of array of double;
      n,m,x,y:integer;


begin
      n:=StrToInt(EditN.Text);
      m:=StrToInt(EditM.Text);
      SetLength(matrixA,m,n);
      SetLength(matrixB,m,n);
      SetLength(matrixc,m,n);
      For x:= 0 to m-1 do
        for y:= 0 to n-1 do
          matrixA[x,y]:=StrToFloat(SG1.Cells[x,y]);
          MatrixB[x,y]:=StrToFloat(SG2.Cells[x,y]);
          matrixc[x,y]:=(matrixA[x,y])+(matrixB[x,y]);
          SG3.Cells[x,y]:=FloatToStr(matrixc[x,y]);


end;
Kann mir einer von euch sagen, wo der Fehler liegt? Schon mal Danke im Voraus .
  Mit Zitat antworten Zitat