StringGrid Zeile löschen!

[aldi]

Hallo,

habe ein StringGrid, und möchte die selektierte Zeile löschen.
Wie muss der Quelltest aussehen?

Danke

[Komoluna]

Du meinst sicher Quelltext...
Die Klasse TStringGrid hat doch "DeleteRow" und "DeleteCol" Methoden oder?
(hab grade keinen Rechner zur Hand...)

Für die Selektierte Zeile such mal mit der Code-Autovervollständigung(STRG+SPACE) oder direkt im Quelltext (STRG+Linksklick auf TStringGrid)
nach "Selected..." oder "Selection..."

MFG

Komoluna

[aldi]

Hallo,
ja es sollte natürlich Quelltext heißen

Wir müssen noch etwas mehr in dieses Thema einsteigen,
habe es noch nicht so ganz verstanden!

Möchte eine selektierte Zeile im StringGrid löschen! Also die ganze Zeile mit Inhalt!
Unter Delphi-Treff habe ich diesen Quelltext gefunden:

Code: Alles auswählen

 
procedure GridDeleteRow(const Grid : TStringGrid; RowNumber : Intege[code=laz]

r);
var
i : Integer;
begin
for i := RowNumber to Grid.RowCount - 2 do
Grid.Rows.Assign(Grid.Rows[i+ 1]);
Grid.Rows[Grid.RowCount-1].Clear;
Grid.RowCount := Grid.RowCount - 1;
end;
 [/code]

Code: Alles auswählen

 procedure TForm1.Button1Click(Sender: TObject); 
begin 
  GridDeleteRow(StringGrid1, 1); 
end;
 

Dieser Quelltext bringt mich aber nicht weiter !

Also die aktuelle markierte Zeile möchte ich löschen!

Code: Alles auswählen

 
Stringgrid1.Options:=Stringgrid1.Options + [gorowselect]; 
 

[baumina]

Ich habe kein Lazarus (nur Delphi), aber anhand der Hilfe würde ich es mal so versuchen:

Code: Alles auswählen

StringGrid1.DeleteRow(StringGrid1.Row);

[wp_xyz]

Komoluna hat oben doch schon den Hinweis gegeben: DeleteRow

Code: Alles auswählen

 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if StringGrid1.Row >= StringGrid1.FixedRows then   
    StringGrid1.DeleteRow(StringGrid1.Row);
end;    
 

[aldi]

hallo wp_xyz,

danke für Deine Hilfe! Danke auch an Komoluna!

Komoluna, konnte erst mit Deinen Angaben nichts anfangen!
Was natürlich meine Dus­se­lig­keit ist!

Danke