Inhalt von Stringrid auf einmal löschen

[tom_po]

ich möchte mit einem Button den Inhalt aller Zeilen und Spalten auf einmal löschen, habe gesucht, aber noch nichts gefunden.
Ich kann zwar die gesamte Zeile eines Grid löschen, das will ich aber nicht.
Danke für Eure Hilfe.

[Sharky]

Hai tom_po,

meinst Du so etwas?:

Delphi-Quellcode:

procedure ClearStringGrid (sg : TStringGrid);
var
  ndx: Integer;
begin
  with sg do
  begin
    for ndx := FixedRows to Pred(RowCount) do
    begin
      Rows[ndx].Clear;
    end;
  end;
end;

procedure TDemoForm.btn_ClearClick(Sender: TObject);
begin
  ClearStringGrid(StringGrid1);
end;

[tom_po]

Zunächst danke Sharky für deine hilfe

Hab's probiert, bekomme aber dann diesen Kompilierfehler:

"[Fehler] loteunit.pas(41): Ungenügende Forward- oder External-Deklaration: 'Tlote.ClearStringGrid'"

weisst du woran es liegt?

[fkerber]

Hi!

Du hast sicherlich versucht, die Prozedur oben bei den Prozeduren der Klasse Tlote einzutragen.
Wenn du das tust (warum auch immer), dann müsstest die erste Zeile der eigentlichen Prozedur lauten:

Delphi-Quellcode:

procedure Tlote.ClearStringGrid (sg : TStringGrid);

Nur dann ist sie auch wirklich "Bestandteil" der Klasse.


Ciao Frederic

[Sharky]

Zitat:

Zitat von fkerber

Hi!

Du hast sicherlich versucht, die Prozedur oben bei den Prozeduren der Klasse Tlote einzutragen....

Eher umgedreht.

Ich glaube tom_po hat die Procedure so im Code stehen:

Delphi-Quellcode:

procedure Tlote.ClearStringGrid (sg : TStringGrid);

Aber sie nicht im Type-Abschnitt der Klasse eingetragen.

Delphi-Quellcode:

Type = class(TForm)
   .
   .
   .
  private
    { Private-Deklarationen }
     procedure ClearStringGrid (sg : TStringGrid);[/
  public
    { Public-Deklarationen }
  end;

Wobei das eigentlich nicht notwendig ist. Es reicht wenn die Procedure von mir im Quellcode vor dem ersten Aufruf steht.
Sie muss keine Methode der Klasse sein.

[fkerber]

Hi!

nein, dann käme:

Zitat:

[Error] Unit1.pas(26): Undeclared identifier: 'ClearStringGrid'

Trägt er sie hingegen oben ein und schreibt sie unten ohne Tlote. dann kommt der beschriebene Fehler.


Ciao Frederic

[tom_po]

ich hatte wirklich das tlote bei der procedure vergessen, sorry.
bekomme jetzt aber diesen fehler:
[Fehler] loteunit.pas(473): Nicht genügend wirkliche Parameter

[fkerber]

Hi!

Wie genau rufst du die Prozedur denn auf? Und was steht in Zeile 473?


Ciao Frederic

[tom_po]

dir procedure rufe ich über button2 auf:

Delphi-Quellcode:

procedure Tlote.Button2Click(Sender: TObject);
begin
 clearstringgrid;
end;

in der zeile 473 steht das

Delphi-Quellcode:

clearstringgrid;

über der aufruf mit dem button steht meine procedure:

Delphi-Quellcode:

procedure tLote.ClearStringGrid (sg : TStringGrid);
var
  ndx: Integer;
begin
  with sg do
  begin
    for ndx := FixedRows to Pred(RowCount) do
    begin
      Rows[ndx].Clear;
    end;
  end;
end;

fehlermeldung:
[Fehler] loteunit.pas(473): Nicht genügend wirkliche Parameter

[Die Muhkuh]

Hi,

du musst als Parameter dein Stringgrid mitgeben:

Delphi-Quellcode:

ClearStringGrid(NameDeinesStringGrids);