Guten morgen, ich habe eine Frage

also ich programmiere gerade ein schiffeversenken. Ich bin echt noch anfänger und hab öfters kleine Wissenslücken.
Meine Frage jetzt im moment wäre erstmal wie und genau wo setze ich die For - Schleife?

zusammenfalten · markieren

Delphi-Quellcode:

unit Schiffe;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TfrmSchiffe = class(TForm)
    StringGridSpielfeld: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

const COLS = 10;
      ROWS = 10;

var
  frmSchiffe: TfrmSchiffe;
  SpielfeldIntern :array[1..COLS, 1..ROWS] of integer;

implementation

{$R *.dfm}

procedure TfrmSchiffe.FormCreate(Sender: TObject);
begin

  StringgridSpielfeld.ColCount:=COLS;
  StringgridSpielfeld.RowCount:=ROWS;


end;

end.

Danke im Vorraus

Newcomer91

EDIT:

Habs schon...^^ muss jetzt die Schiffe generieren da wäre meine Frage wie mach ich das?

ty @

Na die Frage ist wie sollen deine Schiffe Repräsentiert werden.


Wenn ich mir deinen Source so ansehe willst du wohl jedem Schiff eine Nummer geben :

Zitat:

  SpielfeldIntern :array[1..COLS, 1..ROWS] of integer;

Dann Überleg dir doch erst mal wie du deine "Schiffe" zeichnest.

Der Einfachste weg wäre ja einfach ein Grid zu malen.

Dann würde ich sagen SpielfeldIntern[x,y] = 0 = Kein Schiff da

und bei SpielfeldIntern[x,y] <> 0 malst du erst mal irgendwas so, dass man erkennt dass das Feld belegt ist.

Und dann gehts weiter ..