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
(ist immer was anderes wichtiger)
Gruß oki