Hallo ich bin noch ein echter Anfänger in der Programmierung und brauche bei einem problem eure Hilfe!
ich programmiere grade Schiffeversenken ( mein erstes größeres Projekt)
und wollte nur eine prozedur schreiben die in einem StringGrid allen Feldern einen Leerstring zuweist.
ich wollte mir die mühe sparen, das jedem feld einzeln zu tun und hab es mit einer Schleife versucht:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.replacebtnClick(Sender: TObject);

var
x, y, i :integer;

begin
i := 1;
x := 1;
y := 1;
StringGridSeaComp1.Cells [x,y] := '';

Repeat
i := i+1 ;
x := x+1 ;
y := y+1 ;
StringGridSeaComp1.Cells [x,y] := '';

Until i = 9 ;

end;

das hat aber nicht geklappt !
warum nicht?
ich hoffe ihr könnt mir das erklären,
danke im voraus

[edit=Christian Seehase]Delphi-Tag geschlossen. Mfg, Christian Seehase[/edit]

Bitte formulier den Titel des Topics so, dass er etwas über dein Problem aussagt. Dazu brauchst du nur deinen ersten Beitrag zu editieren. Danke.

Hallo, wenn Du gleichzeitig X und Y erhöhst, ergibt das eine Diagonale. Du musst 2 Schleifen verschachteln, eine für die X- und eine für die Y-Richtung.

[EDIT]P.S.: Willkommen in der DP[/EDIT]

Hallo,

zusammenfalten · markieren

Delphi-Quellcode:

var
  iCol: Integer;
  iRow: Integer;
begin
  for iCol:= 0 to StringGrid.ColCount-1 do
  begin
    for iRow:= 0 to StringGrid.RowCount-1 do
    begin
      StringGrid.Cells[iCol,iRow]:= '';
    end;
  end;
end;

Hier siehst du auch gleich mal eine bessere Variablen-Benennung.
Das macht das Lesen des Codes einfacher.


Heiko

Ergänzend ist noch wichtig, daß die Indizierung bei 0 beginnt, Du also mit StringGridSeaComp1.Cells [0,0] := ''; beginnst.

Grüße, Messie

Danke