Schleife zum Zuweisen von Strings funktioniert nicht

[Geser]

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:

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]

[Luckie]

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

[DeddyH]

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]

[hoika]

Hallo,

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

[messie]

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

Grüße, Messie

[Geser]

Danke