Mein Sudoku Programm friert ein, komme nicht weiter

[qb-tim]

Hi,

die folgende Prozedur soll aus s ein Sudoku machen. Folgendes ist vorab zu erwähnen:

=> ResetSudoku ist eine Prozedur, die das Programm zurücksetzt
=> c ist ein CHAR
=> x, y, i, j sind INTEGERs
=> s ist ein String
=> Edit[x, y] ist ein modifizierter TEdit (weitere PROPERTY "Sollution" (=Lösung) hinzugefügt)

Das Programm startet mit Form1 ohne Fehlermeldung. Sobald ich aber die Prozedur auslöse friert das Programm!
Die Decodierung sollte so funktionieren:

1. ASCII-Wert lesen
2. ASCII-Wert - 100 = ab
3. Trenne beide Ziffern
4. Setzte Ziffern in Edit[x, y] ein

Jedes ASCII-Zeichen steht für zwei Zahlen!

Delphi-Quellcode:

procedure TForm2.SetSudoku(s: String);
begin
  ResetSudoku;
  for i := 1 to 40 do
  begin
    c := s[i];
    y := Ord( c ) - 100;
    x := Round( Int( y / 10 ) );
    y := y - ( x * 10 );
    j := i * 2 - 1;
    Edit[Round( j - ( 9 * Int( j / 9 ) ) ), Round( Int( j / 9 ) )].Text := IntToStr(x);
    j := i * 2;
    Edit[Round( j - ( 9 * Int( j / 9 ) ) ), Round( Int( j / 9 ) )].Text := IntToStr(y);
  end;
  i := 41;
  c := s[i];
  y := Ord( c ) - 100;
  x := Round( Int( y / 10 ));
  y := y - ( x * 10 );
  j := i * 2 - 1;
  Edit[Round( j - ( 9 * Int( j / 9 ) ) ), Round( Int( j / 9 ) )].Text := IntToStr(x);
  for i := 42 to 81 do
  begin
    c := s[i];
    y := Ord( c ) - 100;
    x := Round( Int( y / 10 ) );
    y := y - ( x * 10 );
    j := i * 2 - 1;
    Edit[Round( j - ( 9 * Int( j / 9 ) ) ), Round( Int( j / 9 ) )].Sollution := IntToStr(x);
    j := i * 2;
    Edit[Round( j - ( 9 * Int( j / 9 ) ) ), Round( Int( j / 9 ) )].Sollution := IntToStr(y);
  end;
  i := 82;
  c := s[i];
  y := Ord( c ) - 100;
  x := Round( Int( y / 10 ));
  y := y - ( x * 10 );
  j := i * 2 - 1;
  Edit[Round( j - ( 9 * Int( j / 9 ) ) ), Round( Int( j / 9 ) )].Sollution := IntToStr(x);
  SollutionAvailable := True;
end;

[Klaus01]

Hast Du bei begin schon 'mal einen Breakpoint/Haltepunkt gesetzt und bis mit
F8 durch die Procedure gelaufen.
Dann sollltest Du sehen, wo es denn hängt.

Grüße
Klaus

[fkerber]

Hi!

Könntest du dem Thread bitte noch einen Titel verpassen, unter dem man sich eher vorstellen kann, um was es geht?
Das wäre prima - danke!


Ciao, Frederic

[qb-tim]

OK.. Titel geändert...

@ Klaus08:

[Klaus01]

Zitat von qb-tim:

OK.. Titel geändert...

@ Klaus08: :wiejetzt:

Also du gehst mit dem Cursor in diese Zeile

Delphi-Quellcode:

procedure TForm2.SetSudoku(s: String); 
begin                 //<-- hier Breakpoint setzten (siehe Bild)
  ResetSudoku

;


Dann drückst Du F9, Dein Programm wird gestartet und hält wenn die Methode aufgerufen wird.
Dann kannst Du mit F7 oder F8 in dem Quelltext das Programm schrittweise weiterlaufen lassen.
Du solltest dann eigentlich sehen, wo das Programm hängt, wenn es in dieser Methode hängen sollte.

Grüße
Klaus

[qb-tim]

OK.. Ich probiere das gleich aus

[qb-tim]

OK! Ich habe mir die "ASCII-Werte" angesehen (c) und gesehen das irgendwelche komischen zeichen (vielleicht hexidecimal) aber auf jeden Fall keine Unicode ASCII-Werte widergegeben werden!

Daraus folgt die Frage: Wie lese ich aus einem String die ASCII-Werte (Unicode) in Form von Integers aus?

Was müsste ich am folgenden Codeabschnitt dafür ändern bzw hinzufügen...

Delphi-Quellcode:

for i := 1 to 40 do
  begin
    c := s[i];
    y := Ord( c ) - 100;
    x := Round( Int( y / 10 ) );
    y := y - ( x * 10 );
    j := i * 2 - 1;
    Edit[Round( j - ( 9 * Int( j / 9 ) ) ), Round( Int( j / 9 ) )].Text := IntToStr(x);
    j := i * 2;
    Edit[Round( j - ( 9 * Int( j / 9 ) ) ), Round( Int( j / 9 ) )].Text := IntToStr(y);
  end;

[qb-tim]

Bitte zum Thema "ASCII" in diesem ( http://www.delphipraxis.net/internal...=730332#730332 ) Thread posten...

"Neue Frage = Neues Thema"

[Phoenix]

Zitat von qb-tim:

Daraus folgt die Frage: Wie lese ich aus einem String die ASCII-Werte (Unicode) in Form von Integers aus?

ASCII ist immer ungleich Unicode!
Entweder, eine Datei ist ASCII-Kodiert, ODER sie ist Unicode (UTF)-Kodiert, aber das eine schliesst das andere schon prinzipbedingt aus.

Per Zufall (oder eher historisch gewachsen), sind die ersten 128 UTF-Zeichen mit denen die im ASCII-Standard definiert sind identisch, aber ASCII ist eine 7-Bit Codierung und UTF mindestens mal eine 8-Bit, wenn nicht sogar 16-Bit oder noch breitere Codierung, je nach Version.

[DGL-luke]

lange rede kurzer sinn, dann muss man den unicdoe-string halt in einen ASCII-String gemäß der am besten passenden/aktiven Codepage umwandeln.

oder?