Forum: Object-Pascal / Delphi-Language
Delphi
by Bummi,
19. Nov 2011
statt
VX:= 0;
VY:= 0;
case Block of
0: begin VX:= 0; VY:= 0; end;
1: begin VX:= 3; VY:= 0; end;
2: begin VX:= 6; VY:= 0; end;
3: begin VX:= 0; VY:= 3; end;
4: begin VX:= 3; VY:= 3; end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Bummi,
4. Nov 2011
Du läufst die Zeilen ab
Du läufst die Spalten ab
Du läufst 3*3 die (3*3) Blöcke ab
Jedes mal wird hier eine Array für die Zahlen 1-9 mit 0 initalisiert
beim Ablaufen der o.g. Bereiche für jede Zahl das auftreten um 1 erhöht
wenn eine Zahl mehrfach vorkommt muß in dem Array irgendwo eine Zahl>1 stehen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Bummi,
4. Nov 2011
vielleicht kannst Du damit was anfangen, schnell hingetippt,nicht großartig getestet
procedure TForm1.Button1Click(Sender: TObject);
type TZCount=Array of Integer;
var
x,y,xx,yy:Integer;
ZCount:TZCount;
Procedure ClearZCount;