Hallo kk
ich hätte da einige Tipps:
1. Randomize
sollte nur
einmal pro Application aufgerufen werden.
Entgegen der weit verbreiteten Meinung, dieses gehöre in die Create-Methode der Form,
empfehle ich den Befehl in der
dpr-Datei aufzurufen:
Delphi-Quellcode:
program Test1;
uses
Forms,
frmMain in 'frmMain.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Randomize;
Application.MainFormOnTaskbar := True;
Application.CreateForm( TForm1, Form1 );
Application.Run;
end.
2. Die Button_StartClick-Moloch-Procedure
würde ich ein wenig in einzelne Bereiche (Procedures) aufteilen, dann wird die nicht so unübersichtlich.
Beispielhaft habe ich das mal aufgeführt ... ist natürlich nicht vollständig.
Delphi-Quellcode:
type
TSpielFeld = array[ 0..9, 0..9 ] of boolean;
function IstFreieStelle( SpielFeld : TSpielFeld; PosX, PosY, Hochkant ) : boolean;
begin
// Prüfen, ob die Position so in Ordnung ist
Result := ...
end;
procedure ZufallPos( const Laenge : integer; var PosX, PosY : integer; var Hochkant : boolean );
var
a, b : integer;
begin
a := Random( 10 );
b := Random( 10 - Laenge );
Hochkant := ( Random( 2 ) = 0 )
if Hochkant then
begin
PosX := a;
PosY := b;
end
else
begin
PosX := b;
PosY := a;
end;
end;
procedure TForm1.button_startClick(Sender: TObject);
var
SchiffLaenge : integer;
SchiffPosX, SchiffPosY : integer;
SchiffHoch : boolean; // True = Hochkant; False = Waagerecht
begin
for SchiffLaenge := 1 to 5 do
begin
repeat
ZufallPos( SchiffLaenge, SchiffPosX, SchiffPosY, SchiffHoch );
until IstFreieStelle( Schiffe_Cpu, SchiffPosX, SchiffPosY, SchiffHoch );
PlatziereSchiff( Schiffe_Cpu, SchiffLaenge, SchiffPosX, SchiffPosY, SchiffHoch );
end;
ZeichneSpielFeld( Schiffe_Cpu );
end;
Wie du siehst ist deine Ursprungs-Procedure nicht mehr so überladen und durch geschickt gewählte Namen auch wesentlich "sprechender".
Vor allem sollte auffallen, dass die Function IstFreiStelle auch dafür benutzt werden kann, die Position der Spieler-Schiffe zu überprüfen
