Array Rückgabewert Funktion

[Kuehter]

Ich hätte mal ne frage Wie kann ich ein Array result wieder auslesen?

Delphi-Quellcode:

type
Tintegerarray = array of integer;

function bedingung: Tintegerarray;

SetLength(result,6);
Result[0] := Generierer[0] + Generierer[1]; //A2 + A1 = C1
Result[1] := Generierer[2] + Generierer[0]; //B1 + A1 = C2
Result[2] := Generierer[1] + Generierer[3]; //A2 + B2 = D1
Result[3] := Generierer[2] + Generierer[3]; //B1 + B2 = D2
Result[4] := Result[0]+Result[2]; //engergebnis

und jetzt möchte ich gerne die werte wieder auslesen die ich in der Result bekomme

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
__________________________________________________________________________________________________________________
var
rec: Integerarray;

begin

Edit1.Text := InttoStr(rec[1]);

end;

habe nur bei dem hier immer einen stack overflow

[DeddyH]

Dein rec enthält ja keine Elemente, da es keine Funktionsrückgabe ist.

P.S.: Verwende doch bitte künftig Delphi-Tags (die Helm"-Schaltfläche im Beiragseditor), dann ist der Code viel besser zu lesen.

[Kuehter]

Einmal der gesamte code sorry ich weiß aber nicht wie du das meinst damit daskein funktionsaufruf da ist ich weiß auch nicht wo ich die am besten aufrufen kann ein boolean ist ja in der if einen int weiß ich auch wie ich den am besten aufrufen kann nur ich weiß nicht wie ich das hin bekomm das array da raus zu ziehen

Delphi-Quellcode:

function bedingung: Tintegerarray;
var
  max, min: integer;
  counter: integer;
  Generierer: array[0..4] of integer;

begin

  max := 250;
  min := 1;
  for counter := 0 to 3 do
  begin
     Generierer[counter] := trunc(random(max))+min;
  end;

  SetLength(result,6);
  Result[0] := Generierer[0] + Generierer[1];    //A2 + A1 = C1
  Result[1] := Generierer[2] + Generierer[0];    //B1 + A1 = C2
  Result[2] := Generierer[1] + Generierer[3];    //A2 + B2 = D1
  Result[3] := Generierer[2] + Generierer[3];    //B1 + B2 = D2
  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 ');

end;

procedure TForm1.Button1Click(Sender: TObject);

var
  rec: Integerarray ;

begin
  bedingung;
   Edit1.Text := InttoStr(rec[1]);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
       Randomize;
end;

danke schon mal im vorraus

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  rec: Integerarray ;

begin
  rec := bedingung; //Zuweisung nicht vergessen!!
   Edit1.Text := InttoStr(rec[1]);

end;

[Kuehter]

Vielen Danke für die Schnelle hilfe

[ExceptionOverflow]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  rec: Integerarray ;

begin
  bedingung;
// Die Funktion wurde aufgerufen aber das rec nicht befüllt
   Edit1.Text := InttoStr(rec[1]);

end;

daher:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  rec: Integerarray ;

begin
  rec := bedingung;
   Edit1.Text := InttoStr(rec[1]);

end;

Edit:

war zu langsam, damit sorry für den "fast" doppelpost ^^

[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 ');