Forum: Object-Pascal / Delphi-Language
Delphi
by Melvyn,
12. Mai 2009
hmm es funktioniert schon so wie ich es hatte ;) ich hatte bloß ein sehr schweres Sudoku genommen für das er sehr lange gebraucht hätte. mit einem einfachen is die lösung auch innerhalb von ms da.
weil ich dieselbe prozedur auch für ein Mojidoku möchte, hab ich die ausgabe zeile verändert:
StringGrid1.Cells:=chr(ord(S.a)+26);
allerdings müsste ich dann ja immernoch zahlen eingeben. ich...
Forum: Object-Pascal / Delphi-Language
Delphi
by Melvyn,
11. Mai 2009
mmh das kann sein. ich bin sehr ungeduldig... allerdings kann es auch sein das mein rechner dafür zu lahm ist.
Forum: Object-Pascal / Delphi-Language
Delphi
by Melvyn,
11. Mai 2009
Gut dann werd ich mal konkretisieren. Die Lösen-Funktion des Sudokus funktioniert noch nicht. Beim drücken des Buttons zur laufzeit hängt sich das programm dann auf. Im moment sieht diese Prozedur jetzt so aus:
procedure TForm1.BitBtn3Click(Sender: TObject);
var x,y,bes:integer;
n:string;
function SIndex(x,y:integer):integer; begin result:= (x+(y*9))+1; end;
begin
Start();
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Melvyn,
11. Mai 2009
Ja, ich kenne den Sinn eines Forums. Aber den ganzen Quelltext zu diskutieren hat wenig Sinn...
Aber eine Frage: Kannst du mir helfen?
Forum: Object-Pascal / Delphi-Language
Delphi
by Melvyn,
11. Mai 2009
Hallo Leute,
ich bin gerade dabei einen Sudokulöser mit Delphi7 zu schreiben. Er lässt sich bereits starten, aber funktioniert noch nicht obwohl Delphi keinen Fehler anzeigt. Kann mir jemand helfen den Fehler im Quelltext zu suchen?
Danke bereits im Vorraus
Melvyn