Alle Kombinationen ausgeben

[Kegasetu]

Zitat von Michael II:

Die beschriebene Rekursion findest du in

function bewerte( brett : TBrett ; n, k : integer ) : TRes; Du kannst ja mal im Debugger einen Breakpoint setzen am Anfang der Funktion und dann durchsteppen, damit du in etwa siehst was abläuft.

Jedes Mal, wenn in bewerte eine neue Kombination gefunden worden ist wird
function meingebewertungsfunktion( brett : TBrett) : TRes; aufgerufen. In dieser Funktion nimmst du die Bewertung vor. Die gefundene Kombination findest du im Array brett.wo.

Du fragst, was ein record ist - da liest du am besten kurz im Hilfe zu Delphi. Im Wesentlichen ist es eine Zusammenfassung von Variablen.

Zitat:

Und die Hoffung des es irgendwie mit einem simplen Array funktionert ist nach wie vor da

Genau diesen simplen Array hast du in brett.wo.

Hättest du vielleicht ein Beispiel mit 5 Halterungen und 20 Plätzen? Und als Ausgabe dann eine simple showMessage mit den Werten