Hallo Leute,
wieder mal ein leidiges Thema
Folgende Procedure habe ich für das Löschen einer BESTIMMTEN Zeile in einer StringGrid.
Delphi-Quellcode:
...
type
TStringGridHack = class(TStringGrid)
protected
procedure DeleteRow(ARow: Longint); reintroduce;
end;
...
...
procedure TStringGridHack.DeleteRow(ARow: Longint);
var
GemRow: Integer;
begin
GemRow := Row;
if RowCount > FixedRows + 1 then
inherited DeleteRow(ARow)
else
Rows[ARow].Clear;
if GemRow < RowCount then Row := GemRow;
end;
...
und ausführen mit
...
TStringGridHack(air_dg).DeleteRow(2); // Hier an der 2 Stelle
Ich möchte das die Zeile gelöscht wird, die ich makiere.
Mit einer For-Schleife habe ich es probiert, aber da kam nur murks raus
Delphi-Quellcode:
for line:=0 to einnahmen_dg.RowCount-1 do
StringgridDelete(einnahmen_dg,line);