Array Rückgabewert Funktion

[Kuehter]

Vielen Danke für die Schnelle hilfe

[himitsu]

In den Projektoptionen kann man auch einstellen, daß Results immer zugewiesen werden müssen (ist das Standardverhalten von ur-ur-uralten Delphiversionen). Dann gibt der Compiler eine Fehlermeldung aus, wenn man das Result nicht verwendet/zuweist.
Nur da Viele gern alle möglichen Results einfach so ignorieren, werden viele Codes nicht mehr kompilieren.

[add]

Zitat:

habe nur bei dem hier immer einen stack overflow

Erstmal hättest du hier einen Haltepunkt auf die Fehlerzeile Edit1.Text := InttoStr(rec[1]); machen sollen und dort mit dem Debugger nachschauen was im rec drin steckt.

Alternativ kann man in den Projektoptionen auch einfach mal die Bereichsprüfung aktivieren.
Diese baut dann Prüfcode in alle Array-Zugriffe und prüft, ob man auf gültige/existierende Indize zugreift.

[Jumpy]

Delphi-Quellcode:

  Result[4] := Result[0]+Result[2]; //engergebnis
  if (Result[4] = Result[0] + Result[2]) and (Result[4] = Result[1] + Result[3]) then
        Result[4] := Result[1]+Result[3]
  else
        ShowMessage('Die Zahlen stimmen nicht ');

Läßt sich der Part nicht "kürzen" zu:

Delphi-Quellcode:

  Result[4] := Result[0]+Result[2]; //engergebnis
  if (Result[4] <> Result[1] + Result[3]) then
    ShowMessage('Die Zahlen stimmen nicht ');