Inhalt von Stringrid auf einmal löschen

[tom_po]

super, spider, vielen dank, das war's
klappt super

hatte zwischenzeitlich noch einen anderen vorschlag zum löschen bekommen:

Delphi-Quellcode:

procedure tlote.ClearGrid(var Grid: TStringGrid);
var
  i: integer;
begin
  for i := 0 to Grid.RowCount - 1 do
    Grid.Rows[i].Clear;
end;

was hälst du davon?

[tom_po]

habe doch noch ein Problem:

ich habe ja in der ersten Zeile des Stringrids Menu-Name eingetragen, die ich nicht löschen will,
habe aber auch in der ersten Spalte eine fortlaufende Nummer eingetragen, die ich auch nicht löschen will, wie mache ich das?

[Klaus01]

Delphi-Quellcode:

procedure tLote.ClearStringGrid (sg : TStringGrid);
var
  r_ndx,c_ndx: Integer;
begin
  with sg do
  begin
    for r_ndx := FixedRows +1 to Pred(RowCount) do
       for c_ndx := FixedColls +1 to Pred(CollCount) do
         cells[c_ndx,r_ndx] := '';
  end;
end;

sollte ungefähr so gehen, nicht getestet.

Grüße
Klaus

[Hawkeye219]

Die einfachste Lösung besteht darin, mit zwei Schleifen jede Zelle einzeln zu löschen:

Delphi-Quellcode:

with Grid do
  for ndy := FixedRows to RowCount - 1 do
    for ndx := FixedCols to ColCount - 1 do
      Cells[ndx, ndy] := '';

Gruß Hawkeye

//Edit @Klaus01: sehe gerade, daß du deinen Beitrag korrigiert hast. Es heißt trotzdem "Cols" und das Cells-Array ist nullbasiert

[tom_po]

super jetzt habe ich es so wie ich es wollte:

Delphi-Quellcode:

procedure tLote.ClearStringGrid (sg : TStringGrid);
var
  ndx,ndy: Integer;
begin
  with sg do
  for ndy := FixedRows to RowCount - 1 do
    for ndx := FixedCols to ColCount - 1 do
      Cells[ndx, ndy] := '';
end;

Hawkeye219, kannst du noch kurz mir deine meinung über diese alternative sagen, bitte:

Delphi-Quellcode:

procedure tlote.ClearGrid(var Grid: TStringGrid);
var
  i: integer;
begin
  for i := 1 to Grid.RowCount - 1 do
    Grid.Rows[i].Clear;
    grid.Cols[i].Clear;
end;

[Hawkeye219]

Die Alternative dürfte nicht funktionieren, sie enthält mehrere Fehler:

• Die Schleife durchläuft alle Zeilen des Grids und löscht diese komplett - also inklusive der festen Zellen (FixedCols).
• Nach der Schleife erfolgt ein Zugriff auf das Spalten-Array mit dem undefinierten Wert der Schleifenvariablen i. Um die Spalten zu löschen, wäre hier eine weitere Schleife über alle Spalten notwendig.
• Die Clear-Methoden löschen komplette Zeilen bzw. Spalten. Der Inhalt der festen Zellen (FixedRows, FixedCols) wird ebenfalls gelöscht. Somit wird dieses Lösung in keinem Fall zum Ziel führen.

Gruß Hawkeye

[Die Muhkuh]

[edit] Sorry, ich hab nicht gesehen, dass es eine zweite Seite gibt [/edit]

[tom_po]

Danke für die Hilfe