Sudoku

[juelin]

hier noch ein Programm zum runterladen für alle SUDOKU Fans

Gruss
Jürgen

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Programmieren allgemein" nach "Open-Source" verschoben.

[SirThornberry]

Ich glaub das ganze ist in OpenSource am besten aufgehoben. Könntest du noch etwas zum Download dazu schreiben für alle die nicht wissen worum es sich handelt. Sozusagen etwas Werbung dafür machen warum man es sich runterladen solte :)

[oki]

Hi juelin,

erst mal schön, dass du das hier gepostet hast. Ich wollte schon die ganze Zeit mal was über die Algorythmen für diese Lösungen durcharbeiten. Damit hab ich nun die Möglichkeit es an einem kompletten Projekt zu tun.

Ich hab mal kurz in deinen Code geschaut. Erst mal war ich beeindruckt, wie viel Mühe du dir beim Schreiben gemacht hast. Nun bin ich persönlich aber immer zu faul mir so viel Arbeit zu machen.

ein Beispiel:
dein Code

Delphi-Quellcode:

procedure TForm1.Bloe;
begin
  Label2.Caption:='';
  Label9.Caption:='';
  Label10.Caption:='';
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  Edit6.Text:='';
  Edit7.Text:='';
  Edit8.Text:='';
......
  Edit80.Text:='';
  Edit81.Text:='';
  Edit1.ReadOnly:=True;
  Edit2.ReadOnly:=True;
  Edit3.ReadOnly:=True;
......
  Edit81.ReadOnly:=True;
  Combobox1.Text:=IntToStr(anzvor);
  ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(IntToStr(anzvor));
  Combobox1.Color:=clInfoBk;
//  Form1.Refresh;
//  Form1.Repaint;
end;

das ist schon Wahnsinn.

Ich würde es eher so machen:

Delphi-Quellcode:

procedure TForm1.Bloe;
var Counter : Integer;
begin
  For Counter := 0 to self.ComponentCount - 1 do begin
    IF Components[Counter] is TEdit then begin
      TEdit(Components[Counter]).Text := '';
      TEdit(Components[Counter]).ReadOnly:= True;
    end;
  end;
end;

Ich glaube, dass macht es dir auch an anderen Stellen 'ne Menge einfacher.

Ich habe grad nur mal kurz reingeschaut, (will mir heute auch nicht mehr so viel Zeit nehmen) denke aber, dass du dir da noch ne Menge Arbeit und Zeit spaaren kannst. Das soll jetzt aber kein rumkritisieren sein, sondern nur 'ne hilfe für dich. Ich habe übriegens mein kleines Sudoku immer noch nicht zu ende gebracht :wink: (ist immer was anderes wichtiger)

Gruß oki

[jmit]

Hallo juelin,

fehlt in Deinem Anhang noch das File eingabe.pas ?

Gruß Jörg

[juelin]

hier noch die fehlendesn quellcodes EINGABE dazu

[jmit]

Hallo juelin,

mit eingabe.pas läuft jetzt Dein Programm.
Was mir noch aufgefallen ist, beim Start des Programms wird dieses im Vollbildmodus gestartet, es lässt sich aber dann auf die entsprechende Größe anpassen.
Da ich bei meinem Notebook eine relative hohe Auflösung eingestellt habe, werden trotzdem die Button sehr groß dargestellt. Dies ist bei einer geringeren Aufösung dann noch extremer.

Gruß Jörg