Arraytypfehler

[DeddyH]

Dynamische Arrays sind immer 0-indiziert.

Delphi-Quellcode:

procedure TMain.BtRechnenClick(Sender: TObject);
var i, j: Byte;
begin
SetLength(MatrixArray, N, M);
For i:= 0 to N - 1 do
begin
  For j:= 0 to M - 1 do
  Begin
    MatrixArray[i,j]:=StrToFloat(EditArray[i + 1,j + 1].Text);
  end;
end;

Ungetestet.

[KLS]

Mal nen bisschen OT.

"EditArray: array[1..200, 1..200] of TEdit;"

Wofür brauchst du 40.000 Edits?

[Kytrix]

Delphi-Quellcode:

...
    begin
      for i2 := i3 to M do
        for i1 := N downto 0 do
          Matrixarray[i1, i2] := Matrixarray[i1, i2] / Matrixarray[i3, i2];// HIER !!!!

      for i4 := i3 + 1 to M do
        for i5 := N downto 0 do
...

Nun bekomme ich als Fehlermeldung :"Projekt LGS_Rechner.exe raised exception class EInvalidOp with message'Invalid floating point Operation'.Process stopped."

(@ KLS weil ichs dynamisch nicht hinbekomme ....)

[mkinzler]

Ersetze / durch DIV

[DeddyH]

Delphi-Quellcode:

MatrixArray: array of array of Real;

Da wird div nicht gehen.

[Kytrix]

genau es geht nicht mit div :?

[Klaus01]

Ist es möglich, dass Matrixarray[i3, i2] zwischzeitlich mal den Wert 0 hat?

Grüße
Klaus

[DeddyH]

Kommt dann nicht eine andere Exception (EDivByZero)?

[Kytrix]

bei mir kommt keine "EDivByZero" Meldung.... es hängt jetzt nur noch an diesem "div" bzw " / " denn wenn ich dafür igendeine andere rechenoperation setze bekomme ich ergebnisse (die dann aber logischerweise falsch sind ) .... ka was ich da machen könnte

[Klaus01]

Delphi-Quellcode:

  
  for i3 := 0 to M do
    begin
      for i2 := i3 to M do
        for i1 := N downto 0 do
          Matrixarray[i1, i2] := Matrixarray[i1, i2] / Matrixarray[i3, i2];

Sollten diese Schleifen nicht auch bis M -1 und von N-1 bis 0 laufen.

Denn wenn Du 10 Zeilen/Spalten definiert hast, läuft
Dein dynamisches Array von 0 -> 9.
Ich würde da aber einen anderen Fehler als EInvalidOp erwarten.

Grüße
Klaus