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
