Ich glaub, er will die Lösung als Liste von Positionen anzeigen. Da jeweils nur eine Dame pro Spalte vorkommen darf, sollte eine Ausgabe wie z.B.
1,4,6,8,2,5,3,7 ausreichen.
Bastel Dir die Lösung zuerst in einen String und den fügst Du dann an die ListBox.Items an:
Delphi-Quellcode:
Function ArrayToStr (anArray : Array Of Integer) : String;
Var
i : Integer;
Begin
Result := '';
For i:=Low(anArray) To High (anArray) do
Result := Result + IntToStr (anArray[i])+',';
If Length (Result)>0 Then // Letztes ',' wieder wegschnippeln
SetLength (Result, Length (Result) - 1);
End;
Procedure TForm1.AddSolution (aSolution : Array Of Integer);
Begin
ListBox1.Add (ArrayToStr (aSolution))
End;